Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re^3: Find most recently file

by kyle (Abbot)
on Mar 31, 2009 at 17:47 UTC ( #754482=note: print w/replies, xml ) Need Help??

in reply to Re^2: Find most recently file
in thread Find most recently file

For our other readers, this is a more legible version.

use warnings; use strict; use File::Find; my ($recent,$nom,$rep); my $line; $rep = 'D:\\'; sub plus_recent { return unless -f; return if defined $recent and $recent > (stat($_))[9]; $recent = (stat(_))[9]; $nom = $File::Find::name; } find(\&plus_recent,$rep); print $nom; #open (LOG,"<D:\\log.log") || die ("Erreur d'ouverture de TOTO") ; open(LOG,"$nom") ; my @LogFilePosition=<LOG>; close(LOG); foreach $line (@LogFilePosition) { if ($line =~ /CHAINERECHERCHEE/) { print "C'est démarré !!"; } }

The only thing I have to add to the other advice you've gotten is that you might want to add a newline to your print there.

print $nom, "\n";

Now that I look a little more, you might want to check that your open succeeded as you do with the one you apparently commented out. I'd write it this way:

open my $log_fh, '<', $nom or die "Can't read '$nom': $!";

That way you get a clear error message if it fails.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://754482]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2018-06-21 05:43 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.