Как проверить файл существует и переименовать в Perl

Question

Возможный дубликат: 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, и 0,3, если 0,2 существует.

РЕДАКТИРОВАТЬ: и сохранить расширение одинаково; как file.exe становится file.exe.1, file.exe.2 и т.д.

Answer 1

#!/usr/bin/perl 
use strict; 
use warnings; 

use File::Spec::Functions qw'catfile'; 
use File::Copy qw'move'; 
use autodie qw'move'; 

my $filename = 'DUMBFILE'; 
my $origin  = '/tmp'; 
my $destination = '/some/location'; 

my $path = catfile $destination, $filename; 
{ 
    my $counter; 
    while(-e $path){ 
    $counter++; 
    $path = catfile $destination, "$filename.$counter"; 
    } 
} 

move(catfile($origin, $filename), $path); 

Answer 2

Вы должны конкатенации . вместо +:

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); 

Answer 3

Возможно, что вы хотите сделать что-то вроде:

use File::Copy; 

sub construct_filename { 
    my ($dir, $name, $counter) = @_; 
    if ($name =~ /^(.*)\.(.*)$/) { 
     return "$dir/$1.$counter.$2"; 
    } else { 
     return "$dir/$name.$counter"; 
    } 
} 

if (-e "$destination$filename") { 
    $counter = 1; 
    while (-e construct_filename($destination,$filename,$counter)) { 
     $counter++; 
    } 
    move("/tmp/$filename", construct_filename($destination,$filename,$counter)); 
} else { 
    move("/tmp/$filename", "$destination$filename"); 
} 

Кроме того, конкатенация строк o perator в perl: ., а не +. То, что вы написали, не будет работать вообще. В этом случае вы можете просто использовать интерполяцию строк с двойными кавычками, хотя и не беспокоиться о конкатенации.

И для того, что стоит, более простое соглашение состоит в том, чтобы каталоги никогда не содержали конечные косые черты и всегда использовали их при создании имен файлов (например, "$destination/$filename"). Как указывали другие, наиболее надежный способ создания пути - File::Spec. Из того, что я мог сказать, часть, которую вы действительно искали, заключалась в том, как делать инкрементное именование; поэтому я дал четкую и короткую версию этого. Обновите до File::Spec, как вы сочтете нужным!

Answer 4

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