perl 將檔案複製到另一個檔案,不做任何改動。
最近一直都在用perl寫東西,感覺perl用起來很舒服,而且規範不是那麼嚴格,很喜歡!
例子:將檔案複製到另一個檔案,不做任何改動。(如果有perl的問題,歡迎提問,大家一起討論)
$input = @ARGV[0];
$output = @ARGV[1];
open INPUT, $input or die $!;
open OUTPUT, ">$output" or die $!;
while(<INPUT>)
{
$line = $_;
print OUTPUT $line;
}
close INPUT;
close OUTPUT;