Re: [MacPerl] Puzzling problem.

[Axel Rose]

Try this:

#!perl -w
use strict;

use File::Find;

my $startfolder = $ARGV[0];
die "no input, no output" unless -d $startfolder;

find( \&myfinder, $startfolder );

sub myfinder {
  next if -d $_;
  my $statfield = (stat( $File::Find::name ))[9];
  print "stat[9] shows $statfield for file '$File::Find::name'\n";
}



HTH,
Axel.