「ぎょーむ日誌」目次に戻る | KuboWeb top に戻る | twilog | atom

ぎょーむ日誌 2002-05-06

苦情・お叱りは, たいへんお手数かけて恐縮ですが, 久保 (kubo@ees.hokudai.ac.jp) までお知らせください.

2002 年 05 月 06 日 (月)

Cam [社交も重視]
すぐにヒトにすり寄る. ただしこれは人間あいての場合で ……
Cam, seeking something [かぎまわる犬]
ともかく臭いを確認せずにはいられないらしい. これというポイントでは頑として動かず, 納得がいくまで鼻をすりつけてかぎまわっている.
	my @buffer;
	open IN, $file or die "ERROR: Can't open $file";
	while (<IN>) {
		chomp;                    # 行末捨てる
		s/#.*$//go;               # "#" よりあと削除
		next if m/^\s*$/o;        # 空行なら次の行
		my @line = split /\s+/o;  # 空白で切り分けて 
		push @buffer, \@line      # @buffer に追加
	}
	close IN;

KuboLog | KuboWeb