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);
# Related Page(s)
タグ:Perl