Hello, all ...
I'm new to Perl ... as evidenced by my being clueless as to why this script does not do what I want:
opendir( ACE_BUILD_DIR, "//Users//jmzorko//ace_dai
@files = readdir( ACE_BUILD_DIR );
foreach $thisfile (@files)
$st = stat($thisfile);
if ( $st != undef ) // ?????
$age = $st->mtime;
print "$thisfile : $age - $^T\n";
if ( $st->mtime - $^T == 0 )
print "$thisfile today\n";
Basically, the stat() is fine for the . and .. elements in the file array, but as soon as it gets to a file with a name other than . or .., stat() returns undef. I've tried this on Mac OSX 10.2.4 (Perl 5.8.1) as well as Red Hat Linux (2.4 kernel, Perl 5.8.0). These files have permissions of 644 ... and i'm the owner, so i've no idea why stat() won't stat them. Can someone who knows Perl help?
Falling You - exploring the beauty of voice and sound