[Melbourne-pm] finally there
David Dick
ddick at aapt.net.au
Thu Dec 20 12:41:33 PST 2007
Mirko Fluher wrote:
> Happy to read any other useful comments as I am sure the above code can be improved.
> Cheers,
>
>
hi mirko, i would plead with you to 'use strict' in all of your perl
programs. among other things, it will help detect typing mistakes in
variable names.
something like the following.
--------------------------
#!/usr/bin/perl -w
use strict;
use File::Find;
use Date::Format;
my $dirname = "/dir1/fileserver/dir2/documents";
my %size;
find(sub {$size{$File::Find::name} = -s if -f;}, $dirname);
my @files = sort {$size{$b} <=> $size{$a}} keys %size;
foreach (@files)
{
my ($uid, $mtime) = ((stat($_))[4,9]);
my $userid = getpwuid($uid);
my $date = time2str('%Y-%m-%d', $mtime);
printf "%s,%s,%s,%s\n", $userid, $size{$_}, $date,$_;
}
--------------------------
More information about the Melbourne-pm
mailing list