Thread File::Find und move (14 answers)
Opened by Gast at 2010-02-09 17:58

bianca
 2010-02-09 18:11
#132451 #132451
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
Guest Gast
Bringen die Zeilen
Code (perl): (dl )
1
2
return if /^\./;
return if -d;
etwas?

die obere sorgt dafür, dass alle Einträge mit . beginnen nicht bearbeitet werden. Das ist insbesondere für die Baumstruktur sinnvoll, weil ja z.B. . für ein Verzeichnis höher steht. Wenn allerdings Dateien mit . beginnen vorkommen würden die von diesem Code nicht behandelt.
untere Zeile sorgt dafür, dass keine Verzeichnisse behandelt werden (-d = directory)
10 print "Hallo"
20 goto 10

View full thread File::Find und move