Opened by Martin at 2013-10-21 08:03
Vielen Dank für die tollen Vorschläge. Ich hatte es jetzt etwas umständlich gelöst. Kann natürlich sein, dass da noch Fehler drin sind. Hat bisher allerdings funktioniert.
Alle Dateinamen in @files einlesen, dann:
Last edited: 2013-10-22 11:02:33 +0200 (CEST)
Alle Dateinamen in @files einlesen, dann:
Code (perl): (dl
)
1 2 3 4 5 6 7
foreach my $filename (@files) { if (($filename =~ /\.txt$/) || ($filename eq ".") || ($filename eq "..")) { next; } # alle anderen Dateien werden verschoben. }
Last edited: 2013-10-22 11:02:33 +0200 (CEST)