Hi,
I want to read the contents of a file and copy the latest file into another location.Is it possible to
locate the latest file?

Hi,

If you want to find a file in a directory with the most recent time stamp, you could read in the directory listing (See DirHandle) and stat each file & find the most recent timestamp that way.

Have a look at
 perldoc -f stat

I'll see if I can come up with some code if this is really what you want to do and you are still stuck.

Bruce.

Below is the script to find latest file in a folder

$opt_a containg directory name .

$temp=0;
       $d = new DirHandle "$opt_a";
       if (defined $d) {
               while (defined($_ = $d->read))
                {
                       $file=sprintf("%s/%s",$opt_a,$_);

                       $attrs = stat("$file");
                       my $diff = time()-$attrs->mtime;
                       if($temp == 0)
                       {
                       $temp=$diff;
                       $new=$file;
                       }
                       if($_ ne "." && $_ ne ".."){
                               if($diff<$temp  ){
                               $temp=$diff;
                               $new=$_;
                               }
                       }
               }      
       print $new,"\n";
       undef $d;
   }

Regds
Sainudheen

---