add a filter in find, so it won't look for deeper sub-tree (another "rrd-tree" stored in the same root)

This commit is contained in:
jack 2014-06-20 13:46:07 +02:00
parent cf5a549db0
commit 3050e0bbe5

View File

@ -8,6 +8,7 @@
use strict;
use RRDs;
use File::Find;
use File::Find::Rule;
if ($#ARGV != 2) {
die("Usage: $0 <path to RRD file directory> <path to known links file> outfile\n");
@ -26,12 +27,7 @@ my @links = values %knownlinks;
# walk through all RRD files in the given path and extract stats for all links
# from them; write the stats to a text file, sorted by total traffic
my @rrdfiles;
find(sub {
if (-f $_) {
push(@rrdfiles, $File::Find::name);
}
}, $rrdpath);
my @rrdfiles = File::Find::Rule->maxdepth(2)->file->in($rrdpath);
my $astraffic = {};