Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

watch-script.pl | less +F buffering problem?

by axelrose (Scribe)
on Aug 18, 2006 at 13:15 UTC ( #568136=perlquestion: print w/replies, xml ) Need Help??

axelrose has asked for the wisdom of the Perl Monks concerning the following question:

Hello all,

I wrote a little script to watch growing logfiles. It works nicely, just the output cannot be browsed if piped to less. Example usage:

terminal1 $ touch /tmp/my.log terminal2 $ perl script.pl -p . /tmp/my.log | less +F terminal1 $ echo "lala" >> /tmp/my.log terminal1 $ echo "lala" >> /tmp/my.log terminal1 $ ...
There is no visible output in terminal2, only if you interrupt less with ctrl-C.
#!/usr/bin/perl -w use strict; $| = 1; use Getopt::Std; my %opts; getopts( 'p:f:s:h', \%opts ); my $pattern = $opts{p} || "pdf"; my $sleep = $opts{'s'} || 5; my $logfile = shift || "/tmp/a.log"; my $fh = select( STDOUT ); $|=1; select( $fh ); print "watching file '$logfile' for pattern '$pattern'\n"; open(LOGFILE, "<" . $logfile) or die "not readable: '$logfile'$!\n"; seek(LOGFILE, 0, 2); while (1) { while (<LOGFILE>) { print if /$pattern/o; } sleep $sleep; seek(LOGFILE, 0, 1); }
Thanks for your time! Axel.

Replies are listed 'Best First'.
Re: watch-script.pl | less +F buffering problem?
by liverpole (Monsignor) on Aug 18, 2006 at 14:01 UTC
    Hi axelrose,

    The problem is that less is buffering its input, so it expects to see either a certain number of bytes, or the end-of-file, before it will do any work.

    A better solution (though more work for you) would be to take the reason you want to use less (whether it be paginating the output, or searching for patterns), and incorporate that directly into your script instead.


    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
      Hi liverpole,

      thanks for your reply.

      I thought about the input buffers of less as well but was surprised to see that perl -e 'print "a line\n" x 10' | less +F works.

      Another workaround is to send the output of my watch script to another file and oberserving this with "less +F".

      My intention is to browse back the output over several pages and do occasional searches. I couldn't normally implement this myself.

      Axel.

        That's because, in the case of:
        perl -e 'print "a line\n" x 10' | less +F
        the end-of-file is encountered as soon as the program finishes, so the pipe gets the end-of-file, and less knows it has received all the input it's going to get.

        Here's a good way to test it -- try executing the following command:

        perl -e 'while (1) {print "a line\n" x 1000; sleep 1}' | less

        Now the input buffer to less will fill up almost immediately, so you'll see the output right away.  However, if you execute the command "G", it will never find the end-of-file, because the end-of-file hasn't been written yet!

        Similarly if you execute the same command with less +G at the end instead of less, you'll never see output for the same reason.


        s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
Re: watch-script.pl | less +F buffering problem?
by zentara (Archbishop) on Aug 18, 2006 at 13:44 UTC
    Hi, I ran your script and it works fine with
    echo "pdf" >> /tmp/my.log
    pdf appears in the watchers output, within a few seconds.
    echo "lala" >> /tmp/my.log
    does nothing

    I'm not really a human, but I play one on earth. Cogito ergo sum a bum
      That's presumably because you left out the command line parameter '-p .'. Then it checks per default for the string "pdf".

      If I just run the script without piping it to less all is fine here as well.

      It's just that somehow "script.pl -p . /tmp/my.log | less +F" remains empty and it's not general problem because this:

      perl -e 'print "a line\n" x 10' | less +F

      works.

      Axel

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2020-03-28 18:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    To "Disagree to disagree" means to:









    Results (167 votes). Check out past polls.

    Notices?