kleine anmerkung:
ich finde deine variablennamen, insbesondere @a und $i, sehr sparsam gewählt. $i verwende ich nur bei iterationen über indizes.
ich hätte vermutlich @files und $file gewählt.

File::Find bietet noch weitere vorteile.
vorgestern erst brauchte ich eine tiefensuche statt breitensuche, weil ich teilweise dateien und verzeichnisse löschen musste und natürlich mit den tieferliegenden verzeichnissen anfangen musste.
mit File::Find kann man einfach finddepth() verwenden, und es ist auch jedem leser / maintainer sofort klar (vorausgesetzt natürlich, man weiss, was eine tiefensuche ist).

ausserdem ist File::Find schon immer im core gewesen: http://perlpunks.de/corelist/version?module=File%3...
Last edited: 2011-09-25 12:43:58 +0200 (CEST)