Hallo, Am Mon, 10 Mai 2010, hamann.w@t-online.de schrieb:
/dir1/dir2/dir3/abcdef/dir5/1.2-irgendwas.txt /dir1/dir2//abcd/dir4/03.11nochwas.txt /dir1/dir2/dir3/abcdef/dir5/1-irgendwasanderes.txt [..] Ob das nun noch mit File::find oder einer selbstgebauten Rekursion gekoppelt wird und auch die Dateien gleich selber kopiert, hängt vom Umfeld ab.
Hier meine Perl-Version: ==== #!/usr/bin/perl -w use strict; use File::Find; sub wanted { if( index($File::Find::dir, "bc") > -1 && /\..*-.*\.txt/i ) { print "$_\n"; } } if( $#ARGV < 0 ) { push(@ARGV, "."); } find( { wanted => \&wanted, no_chdir => 0 }, @ARGV); ==== HTH, -dnh -- MISC You are the 4711th visitor of this page. -- man xawtv -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org