ＣＧＩだけど、なんか質問ある？Part 5

[0717 Perl勉強中 02/02/19 15:28 ID:???]

open(OUT,"$logfile");
@file=<OUT>;
close (OUT);
foreach(@file){
@hoge=split/\t/;
if ($hoge[0] == "B子さん"){
print "@hoge\n";
}
}
これでも良し？