> なぁ、perl勉強初めて4日くらいなんだけど(;´Д`)仕様を知らないと
> 厳しい事が多くないか？例えば、while(<FileHundle>){}で勝手に
> 特殊変数$_に一行入ってprint;で勝手に$_を出すとか
> open関数は+>で読書両方できて+<でも読書両方できてとか
> open Filehundle;で$Filehundleが定義されているものと考えて、ファイルネーム
> を引っ張ってくるとか

while( !eof FileHundle ){
    my $line = <FileHundle>;
    print $line;
}

while ( my $line = <FileHundle> ) {
    print $line;
}
わかりやすく書けばいいだけじゃないかなぁ

参考：2017/03/12(日)16時06分30秒