With this little script, how would I manage to get the shorter timestamps zero padded using printf? I now how to get padded numbers but not when I'm pushing off the right margin too.
cat script.pl
#!/usr/local/bin/perl
use strict;
use warnings;
while (my $file = shift @ARGV){
my @stat = stat $file;
printf "%11d %s\n",$stat[9], $file;
}
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
