perl - 如何在perl中检查文件是否存在并重命名

Question

Possible duplicate: Renaming and Moving Files in Bash or Perl

我是 perl 的新手，正在寻找一个可以处理文件移动的脚本。

#!/usr/bin/perl -w
$filename = 'DUMBFILE';
$destination = '/some/location/';
if (-e $destination + $filename) {
  print "File Exists ! Renaming ..";
  move ('/tmp/' + $filename, $destination + $filename + '.1');
} else {
  move ('/tmp/' + $filename, $destination + $filename);
}

我可以将其重命名为 1，但我想以增量方式重命名，例如如果 file.1 存在，则重命名为 .2，如果存在 .2，则重命名为 .3。

编辑:并保持扩展名相同；像 file.exe 变成 file.exe.1、file.exe.2 等。

Answer 1

您需要连接 .而不是 + :

if (-e $destination . $filename) {

甚至更好。您可以使用 File::Spec模块:

use File::Spec;
...
if (-e File::Spec->join($destination, $filename)) {

请 use strict;
要移动文件，您可以使用 File::Copy 模块:

use File::Copy;
...
move($from, $to);