Suchen: Suchen und löschen - #69710 (Allgemeines zu Perl)

Paul

2006-09-12 16:18

User since
2006-09-11
12 Artikel
BenutzerIn
[default_avatar]

Die Benennung der Dateien sollte korrekt sein und im richtigen Verzeichnis bin ich auch.
Habe einen print eingebaut.

Code: (dl )

for my $extension ( qw/log inx pdf/ ) {
 my $delete_me = $basename . '.' . $extension;
          print "Basename $basename gefunden\n";
 unlink $delete_me or warn "$delete_me: $!\n";
}

und folgendes Ergebnis:

Code: (dl )

1
2

Basename 129510528832.log gefunden
129510528832.log.pdf: No such file or directory

Es wird an den Basename einfach die zusätzlichen extensions angehängt.

Gruss

Paul