Probleme mit File::Find (gelöst) - #158220 (Fragen zu Perl-Modulen)

Lebewesen

2012-05-08 17:36

User since
2011-09-09
62 Artikel
BenutzerIn

user image

Vielen Dank für die schnelle Hilfe!!!

Quote
Und wie du überprüfst, ob es die richtieg Datei ist, mittels Dateinamenvergleich, musst du doch wissen.

Ja, ich kam nur nicht an eine Liste weil ich in einer Endlosschleife war - das Problem muss ich dann in meinem Code suche, wenn das jetzt auch noch auftritt.

Dein minimal Beispiel läuft bei mir auch ohne Probleme...

Und was lerne ich daraus? Probleme nicht im großen Programmen testen sondern erst Minimalbeispiele erzeugen ;)

Ich habe das von dir jetzt so zusammengesetzt, und es funktioniert :D

Das Einbauen in das Hauptprogramm sollte dann kein Thema sein ;)

Code (perl): (dl )

#!/usr/bin/perl
use 5.008;
use strict;
use warnings;
use File::Find;

my $dir = '.';
my @found = ();
find(sub {if ($File::Find::name =~ /\d_12.*/){push @found, $File::Find::name;}},  $dir);

my $anzahl=@found;
print @found;
print "\n\nAnzahl: $anzahl\n";

sub wanted {
   if ($File::Find::name =~ /.*/) {
      push @found, $File::Find::name;
   }
}