Re: Checking multiple files..

I want to check on multiple growing files but I really don't know how to do it.

Basically just use the polling approach you've already partially figured out for a single file but loop over an array (or hash) of filehandles.

However you've not considered the possibility that there may be an incomplete line at the end of the file. To see how to cope with that take a look at how File::Tail does it.

This is really quite complex. Perhaps you should just use File::Tail.

Asside: I think you are saying exit where you meant last.

I know "select()" is somehow related with my question but I cannot figure how to do it... :(

The builtin select() applies when you want to monitor multiple pipe/sockets/devices. These things can be in a state where they have no data to return now but are not at an EOF contition. A file cannot. However File::Tail defines another select().

Oh, and please get into using strictures and warnings now rather than waiting to suffer/inflict the pain that not using them will cause sooner or later.

Comment on Re: Checking multiple files.. Select or Download Code

Replies are listed 'Best First'.

Re^2: Checking multiple files..
by penantes (Acolyte) on Mar 28, 2005 at 13:42 UTC

#!/usr/bin/perl

use warnings;
use strict;
use File::Tail;

my $ConfFile="watchtelecom.conf";
my @LogFiles;
my @Files;
my $nfound;
my $timeleft;
my @pending;
my $timeout;
my $ErrorPatern="error"; #testing purpuses.
#my $ErrorPatern="Input: Error reading in input stream";
my $test;
my $x;

open(CONFFILE, "$ConfFile") or die("Could not open $ConfFile.");
foreach (<CONFFILE>) {
  push(@LogFiles,$_);
}
close(CONFFILE) or die("Could not close $ConfFile.");


foreach (@LogFiles) {
    push(@Files,File::Tail->new(name=>"$_", maxinterval=>1800));
}

while (1) {

  ($nfound,$timeleft,@pending)=
            File::Tail::select(undef,undef,undef,$timeout,@Files);
   foreach (@pending) {
     my $telcoline=$_->read;
     if ($telcoline =~ /$ErrorPatern/) {
       #print $_->{"input"}." (".localtime(time).") ".$_->read;
       if ($_->{"input"} =~ /TMN/) {
       print "Via Vodafone: $telcoline";
       $test=$telcoline;
       } else {
       print "Via TMN: $telcoline";
       $test=$telcoline;
       }
     }
   }
}
[download]

[reply]
[d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks