Mit Perl, Dateien unbenennen in einem FTP!?

[micha]

Hi

my @Eintraege = $ftp->ls;               # -> 1.
 foreach $Eintrag (@Eintraege) {
    if ($Eintrag =~ /(.+).$now/) {     # -> 2.
    $Name = $1;
    $NeuerEintrag = $Name.".$after";
    $ftp->rename($Eintrag,$NeuerEintrag) || warn "Konnte die Dateien nicht unbenennen. ($!)";
    print "$Eintrag in $NeuerEintrag umbenannt\n";
    }
 }

zu 1.
ls ist ein Unix-Befehl für dir, hier wird @Eintraege gefüllt

zu 2.
du solltest (mit der if-Bedingung) wirklich nur die Dateien umbenennen, die die Endung $now hat.

Ciao Micha