Rekursive Suche - #164606 (Allgemeines zu Perl)

2013-01-02 13:43

User since
2003-08-04
12208 Artikel
Admin1

Guest Perl_Flo
Ja ich benutze diese Modul Find, leider habe ich den Code zu dieser version gelöscht.

das modul heisst File::Find, nicht Find.
so kompliziert kann der code doch nicht sein, denn du da hattest?

ganz kurz:

Code (perl): (dl )

use File::Find;
my @files;
find(\&wanted, '/path');

sub wanted {
    if (m/$string/) {
        push @files, $File::Find::name;
    }
}

in @files stehen dann die gefundenen dateien mit /path am anfang.

ich empfehle übrigens, mal ein modernes tutorial zu lesen: http://perl-tutorial.org/

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem