Opened by Paul at 2006-09-11 16:00
User since
2006-01-27
3891 Artikel
HausmeisterIn
2006-01-27
3891 Artikel
HausmeisterIn
@Paul
basename($pfad) liefert bei diesem Aufruf das letzte Element einer Pfadangabe (egal ob Datei oder Verzeichnis). Die Endung einer Datei wird dabei nicht entfernt!
Entweder passe den Aufruf von basename gemäß Perldoc File::Basename an, oder ersetze die Endung manuell:
Das ganze ist zwar etwas overhead, weil einmal pro schleife die Endung log durch die Endung log ersetzt wird; aber es ist einheitlich ...
basename($pfad) liefert bei diesem Aufruf das letzte Element einer Pfadangabe (egal ob Datei oder Verzeichnis). Die Endung einer Datei wird dabei nicht entfernt!
Entweder passe den Aufruf von basename gemäß Perldoc File::Basename an, oder ersetze die Endung manuell:
Code: (dl
)
1
2
3
4
5
6
for my $extension ( qw/log inx pdf/ ) {
# ersetze die extension;
substr($basename,-3,3,$extension);
unlink $basename or warn "$basename: $!\n";
}Das ganze ist zwar etwas overhead, weil einmal pro schleife die Endung log durch die Endung log ersetzt wird; aber es ist einheitlich ...
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!