Hallo, Am Wed, 17 Nov 2004, Michael Klemm schrieb:
David Haller wrote: | Mit perl und File::Find und einer passenden wanted Funktion sollte das | einfach sein. Z.B.: | | ==== | #!/usr/bin/perl -w | use strict; | use File::Find; | | sub wanted { | -f $_ && print $File::Find::name, "\n";
Oh, Mist, das '-f' ist hier nicht guenstig, da weder symlinks, sockets, pipes noch devices ausgegeben werden. Besser also wohl: sub wanted { ! -d $_ && print ... [..]
That helps. Ich habe das Skript mal ausprobiert und es gibt mir die richtigen Dateien zurück. Damit kann ich dann entweder AFIO oder Taper füttern!
Danke Dir!
Freut mich, dass es das gewollte macht. Mit find + grep / awk usw. haette man ziemliche Verrenkungen machen muessen, mit dem 'wanted' und v.a. 'preprocess' von File::Find geht das ohne auch nur die Laufzeit gross zu verlaengern ;) -dnh -- One does picture DPM skipping lightly and daintily past the camera threads, though. -- AdB in asr