Help for this page

Select Code to Download


  1. or download this
    use File::Basename qw/ dirname basename /;
use File::Find::Rule;
...
while(my $path = $rule->match) {
  printf "%s,%s,%s\n", dirname($path), basename($path), -s $path;
}
  2. or download this
    ## do same 'use's as above
printf "%s,%s,%s\n", dirname($_), basename($_), -s $_
  for find( file => in => '/data/input' );