くだすれPerl（超初心者用）

くだすれPerl（超初心 ..

759:nobodyさん
08/01/24 00:24:58
>>755
Perlでは（というか…）改行文字でレコードが分割されているので
@words = split(/\n/, $_); # <-はありえない
そもそも、こんなループを組むこと自体どうかとも思うが

my @words = [];
while (my $word = <F4>) {
　　push @words, $word; # $_でもいいけど
}

ファイルをループ先頭でseekするのもありかな、あとはお好きにﾄﾞｿﾞｰ。

次ページ