| |||||||||||
| |||||||||||
reading latest file Posted by tara (tara), 30 March 2004 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? Posted by Custard (Custard), 30 March 2004 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. Posted by sainusahib (sainusahib), 18 October 2006 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 This page is a thread posted to the opentalk forum
at www.opentalk.org.uk and
archived here for reference. To jump to the archive index please
follow this link.
|
| ||||||||||
PH: 01144 1225 708225 • FAX: 01144 1225 793803 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho |