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

Linuxer

2006-09-12 15:20

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

[quote=Paul,12.09.2006, 12:45]Was ist an dieser Linie falsch, dass nicht alle file gelöscht werden?

Code: (dl )

unlink $basename.'.'.$_ for(qw(log inx pdf));

Gruss

Paul[/quote]
Hi,

du solltest unlink auf Erfolg prüfen; also besser:

Code: (dl )

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

Dann hast Du auch eine Chance, eine Fehlermeldung zu sehen.

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!