alle Dateien kopieren! (Allgemeines zu Perl)

[thread]7326[/thread]

alle Dateien kopieren!

jason-duff

2005-10-11 12:30

User since
2005-10-11
23 Artikel
BenutzerIn
[default_avatar]

hallo Leute,
habe ein kleines Problem.

Ich möchte alle Dateien aus einem Verzeichnis x in ein Verzeichnis y kopieren.

Allerdings müssen diese kopierten Dateien noch umbenannt werden. ich möchte nur das aktuelle Datum anhängen.Das aktuelle Datum liefert mir die Funktion get_time die ich selber geschrieben habe.

Ich habe das alles so probiert:

Code: (dl )

my $verzeichnisname = '/usr/test'; 
unless (opendir(DIR, $verzeichnisname)) { 
  die "Error: couldn't open directory '$verzeichnisname': $!\n"; 
} 
my @files = readdir(DIR); 
closedir(DIR); 
}

Jetzt habe ich die Dateien in einem array.
Wie kann ich Sie jetzt umbenennen und in ein anderes Verzeichnis ablegen? zB. test.txt in test_12.01.05.txt
wie gesagt das datum liefert mir die funktion get_time().

Würde mich über eure Hilfe freuen.
gruss Jason

Relais

2005-10-11 13:01

User since
2003-08-06
2246 Artikel
ModeratorIn

Code: (dl )

use File::Basename;

my @suffixlist = qw( .txt );
my ($name, $path, $suffix) = fileparse($fullname,@suffixlist);

my $neu = $name . get_time() . $suffix;

Siehe perldoc File::Basename bzw. CPAN: