Thread Probleme mit File::Find (12 answers)
Opened by Lebewesen at 2012-05-08 16:35

Lebewesen
 2012-05-08 18:11
#158224 #158224
User since
2011-09-09
62 articles
BenutzerIn

user image
Es war keine Endlosschleife - allerdings liegt das ganze auf dem Netzlaufwerk, und es gibt auch einen Ordner, der viele Dateien enthält die mich nicht interessieren...

Das habe ich jetzt so gelöst:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use 5.008;
use strict;
use warnings;
use File::Find;

my $dir = '.';
my @found = ();


my $i=2005;
while (-d "$dir/$i"){
  print "$i\n";
  $i++;

  find({preprocess => sub { return sort @_ }, wanted => sub {if ($File::Find::name =~ /\d_12.*/){push @found, $File::Find::name;}}},  "$dir/$i");
}

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


Die Ausgabe ist dann:
Code: (dl )
1
2
3
4
2011
2012
Can't stat ./2013: No such file or directory
at test.pl line 16


Wenn ich jetzt noch die Warnung weg bekommen würde währe das Klasse!

modedit Editiert von GwenDragon: Code eingerückt
Last edited: 2012-05-08 18:17:20 +0200 (CEST)

View full thread Probleme mit File::Find