第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く (Append) lesson005.pl ($dummy, $IN, $OUT) = @ARGV;open READ, "< $IN"; open APPEND, ">> $OUT";print APPEND while(<READ>);close APPEND; close READ;実行結果 C:\>perl c:\stud</read>…