[EMAIL PROTECTED] wrote: > Using > > my $filename = "$test"; > my $mtime = (stat $filename)[9]; # or ctime is 10 > my $time = time; # broke time out to print > my $age = int (($time - $mtime) / 86400); # did int to drop fraction > print "time=$time, mtime=$mtime, age=$age\n"; > > I get the following results: > time=1031216545 mtime= age=11935 > > Note there is no mtime? It must not be stating the file right? I have the > use File::stat; Any ideas past th is point?
You don't need File::stat - stat is a core function. To use File::stat, you would do it more like: use File::stat; my $st = stat($filname) or die "stat($filename): $!"; my $time = time; # broke time out to print my $age = int (($time - $st->mtime) / 86400); print "time=$time, mtime=$st->mtime, age=$age\n"; -- ,-/- __ _ _ $Bill Luebkert ICQ=162126130 (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/ _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
