ファイルの入出力

----------------------------------------------------
# ファイルを1行づつ入力
open(IN1,$ARGV[0]) || die "001 can't open $ARGV[0]¥n";
while( &ltIN1> )
{
処理(各要素は $_に代入されている)
}
close(IN1);
----------------------------------------------------
# ファイルを1行づつ出力
open(OUT,">$ARGV[1]") || die "002 can't open $ARGV[1]¥n";
foreach( @list ) {
print OUT $_;
}
close( OUT );
----------------------------------------------------