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

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

1. ファイルの存在確認をする
2. openする
3. closeする
4. copyする

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

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

_^_

# Related Page(s)

• 2011年の記事

タグ：Perl

Site Search :

Short Url :