Re^3: Net::IRC and File::Tail

I'm not sure that Net::IRC, resp. IO::Select (which is what Net::IRC uses) work well with tie'd filehandles. A possibly working approach could be to actually use the unix tail command and to read from that filehandle:

open my $log, "-|", 'tail', '-f', $logfile
    or die "Couldn't read logfile '$logfile': $!";
[download]

That way you get a real OS-file handle on which the mechanisms used by IO::Select might work better.

Other than that, maybe you want to look into the other Event mechanisms to handle multiple filehandles, or even POE, although I'm not sure if POE is a solution.

Comment on Re^3: Net::IRC and File::Tail Select or Download Code

Replies are listed 'Best First'.

Re^4: Net::IRC and File::Tail
by naez (Initiate) on Aug 16, 2007 at 10:07 UTC

#!/usr/bin/perl -w
use strict;
my $logfile= "./totte.log";
open my $log, "| -", 'tail', '-f', $logfile or die "Couldn't read logf
+ile '$logfile': $!";
[download]

[reply]
[d/l]

Re^5: Net::IRC and File::Tail

by Corion (Patriarch) on Aug 16, 2007 at 10:26 UTC

My code is different from your code. My code works. I test it as follows:

#!/usr/bin/perl -w

my $logfile = "./totte.log";
open my $log, '-|', qw(tail -f), $logfile
    or die "Couldn't tail logfile '$logfile': $!";
while (<$log>) {
    chomp;
    print "Got line >>$_<<\n";
};
[download]

Note the order and the lack of whitespace in the second argument to open.

The whole console session is:

osabst@dfrsifc1:/tmp $ cat >totte.log
test

osabst@dfrsifc1:/tmp $ perl -w tmp.pl
Got line >>test<<
[download]

This is where I add another line to the logfile from another session

Got line >>test2<<
$ cat tmp.pl
#!/usr/bin/perl -w

my $logfile = "./totte.log";
open my $log, '-|', qw(tail -f), $logfile
    or die "Couldn't tail logfile '$logfile': $!";
while (<$log>) {
    chomp;
    print "Got line >>$_<<\n";
};
[download]

[reply]
[d/l]
[select]

Re^6: Net::IRC and File::Tail

by naez (Initiate) on Aug 16, 2007 at 19:18 UTC

[reply]

Re^4: Net::IRC and File::Tail
by jasonk (Parson) on Aug 16, 2007 at 11:58 UTC

POE is definitely a solution, in fact one of the examples in the POE Cookbook is an IRC bot that tails a logfile to a channel.

We're not surrounded, we're in a target-rich environment!

[reply]

Re^5: Net::IRC and File::Tail

by Corion (Patriarch) on Aug 16, 2007 at 12:02 UTC

If you compare the needed framework knowledge and the code size of the two examples, you might understand why I consider POE a "solution". I find the programming model of POE especially inconvenient because the language does little to support something like local scope for event based/message passing systems, unless you consider manually keeping state in a stash as support.

Still, thanks for pointing out that there is a working solution with POE and also pointing towards http://poe.perl.org which is a valuable resource if you want to use POE.

[reply]


No such thing as a small change
	PerlMonks