- 759 名前：nobodyさん mailto:sage [2008/01/24(木) 00:24:58 ID:???]
- >>755
Perlでは（というか…）改行文字でレコードが分割されているので
@words = split(/\n/, $_); # <-はありえない
そもそも、こんなループを組むこと自体どうかとも思うが
my @words = [];
while (my $word = <F4>) {
push @words, $word; # $_でもいいけど
}
ファイルをループ先頭でseekするのもありかな、あとはお好きにﾄﾞｿﾞｰ。
