DATAと__END__ back スクリプト内で #!/usr/bin/perl : : : __END__ とすれば、それ以降は処理されない(コメントみたいなもん) でもって、それ以降の部分は、ファイルハンドル<DATA>で参照することができる ------------------------------ #!/usr/bin/perl #seek(DATA, 0, 1); while(<DATA>) { my $line = $_; chomp $line; print $line; print "\n"; } __END__ 実行すると この部分の 文章が 出力される ------------------------------ while で <DATA> を出力できるのは(多分)1回のみなので、 ループなので、複数回処理をしたい場合は、 予め @data = <DATA> とし