ファイルをコピーする方法（Perl）

Perlでファイルをコピーする方法は以下のとおりです。
Windows環境ではcopyコマンドだけで問題なく動作したにも関わらず、Linuxだと期待した動作をしなかったため、メモを残しておきます。

ファイルの存在確認をする
openする
closeする
copyする

具体的なコードは以下のとおりです。

if(-e $temporaryFile){
    #file exists
} else {
    #file does not exists
    open(TMPFILE,">$temporaryFile") or die $!;
    close(TMPFILE);
}
copy($actualFile, $temporaryFile);

タグ：Perl

HOME ＞ 2011年の記事＞ ファイルをコピーする方法（Perl）