История изменений
Исправление marvin_yorke, (текущая версия) :
#!/usr/bin/perl -w
use strict;
use List::Util;
my $dir = shift @ARGV;
defined $dir or die 'search path not defined';
opendir(DH, $dir) or die 'cannot open dir: $dir';
print reduce { $a + $b } map { stat("$dir/$_")[7] } grep /^File1_2012_(?:11|12)/, readdir DH;
так чище, только смысл-то в этой чистоте?
Исходная версия marvin_yorke, :
[code=perl]
#!/usr/bin/perl -w
use strict;
use List::Util;
my $dir = shift @ARGV;
defined $dir or die 'search path not defined';
opendir(DH, $dir) or die 'cannot open dir: $dir';
print reduce { $a + $b } map { stat(«$dir/$_»)[7] } grep /^File1_2012_(?:11|12)/, readdir DH;
[/code]
так чище, только смысл-то в этой чистоте?