Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

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.


Comment on Re^3: Find most recently file
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://754482]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2014-09-20 20:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (161 votes), past polls