06/11/10 23:53:13 l2n6SZM/ BE:487144894-2BP(121)
sub file_read {
my $a = $_[0];
open( FH , $a );
while (<FH>) {
print;
}
close FH;
}
こんなサブルーチンを作ったのですがうまく動きません
なぜですか？
06/11/10 23:53:13 l2n6SZM/ BE:487144894-2BP(121)
sub file_read {
my $a = $_[0];
open( FH , $a );
while (<FH>) {
print;
}
close FH;
}
こんなサブルーチンを作ったのですがうまく動きません
なぜですか？