Re: newbie : how to find the latest file in a directory

[N_Dinesh]

Hi,

Bothered to a code for you check this out.

#!/usr/bin/perl
use integer;
#Keep a default setting to start off with
$str=100; $sfile="";
foreach $i (`ls`) {
chop($i);
if(-f $i) {  # change this for including directories also
if (-A $i <  $str) { $str = -A $i; $sfile=$i; };
}
}
print "$sfile - is the latest file \n";

This should work.





-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]