Comment vérifier le fichier existe et renomme en Perl

Question

double possible: Renaming and Moving Files in Bash or Perl

Je suis un peu novice à Perl et la recherche d'un script qui va gérer le fichier en mouvement.

#!/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); 
} 

Je suis en mesure de le renommer en 1, mais je veux renommer progressivement, comme si existe fichier.1, renommer 0,2 et 0,3 si 0,2 existe. EDIT: et conserver l'extension identique; comme file.exe devient file.exe.1, file.exe.2 etc.

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

Vous devez concaténation . au lieu de +:

if (-e $destination . $filename) { 

Ou encore mieux. Vous pouvez utiliser le module File::Spec:

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

Et s'il vous plaît use strict;

Pour déplacer le fichier que vous pouvez utiliser le module File::Copy:

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

Answer 3

probablement ce que vous voulez faire est quelque chose comme:

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

De plus, la concaténation Perator en Perl est ., pas +. Ce que vous avez écrit ne va pas fonctionner du tout. Dans ce cas, vous pouvez simplement utiliser l'interpolation de chaîne entre guillemets doubles, et ne pas déranger avec la concaténation.

Et pour ce que ça vaut, une convention plus facile est que les répertoires ne contiennent jamais de barres obliques et de toujours les utiliser lorsque vous construisez des noms de fichiers (par exemple "$destination/$filename"). Comme d'autres l'ont souligné, la façon la plus robuste de construire le chemin est avec File::Spec. D'après ce que je pouvais dire, cependant, la partie que vous cherchiez vraiment était comment faire le nommage incrémental; donc j'ai donné une version claire et courte de cela. Passez à File::Spec comme bon vous semble!

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