[Tech] Come monitorare un log e visualizzare messaggi sotto X?

[Gianni Bianchini]

On Sat, Nov 11, 2000 at 09:04:50PM +0100, Sergio Ballestrero wrote:

> #!\usr\bin\perl
> 
> open(IN,"</var/log/messages") or die;
> while(1) {
>   while(<IN>) {
>     if (m/isdn_tty: call from (\d+)/){
>       system "xmessage 'chiamata da $1'";
>     }
>   }
>   sleep 1;
> }

Questo mi sa che ti scandisce tutto il log dall'inizio...
Prova un po' cosi':

#!/usr/bin/perl
 
open LOG, "</var/log/messages" or die "Adios!\n";
seek(LOG, 0, 2);
for (;;) {
  while (<LOG>) {
    if (/(.*)isdn_tty: call from (.*) ->(.*)/) {
      system "xmessage 'chiamata da $2'";
    }
  }
  sleep(1);
  seek(LOG, 0, 1);       
} 

Ciao.
Gianni.


--
   Gianni Bianchini - giannibi@firenze.linux.it
                      giannibi@iname.com