ファイル I/O

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く

lesson004.pl

($dummy, $IN, $OUT) = @ARGV;
open READ,  "< $IN";

open WRITE, "> $OUT";
print WRITE while(<READ>);
close WRITE;

close READ;

実行結果

C:\>perl c:\study\perl\chapter003\lesson004.pl dummy c:\study\perl\chapter001\le

sson002.pl c:\study\perl\chapter003\test.txt
C:\>type c:\study\perl\chapter003\test.txt

$var1 = "Hello";

$var2 = "World";

print $var1, ", ", $var2, "!", "\n";