Hello,
Marc SCHAEFER wrote:
>
> [...]
>
>
> Par contre, avec Perl, si, je sais faire, et comme Perl est un excellent grep:
Un tail aussi en plus: (cf man perlfunc fonction seek)
surtout le seek(L,0,CUR_POS) pour clearer l'eof ;)
#!/usr/bin/perl
open(L, "</var/log/messages");
# va � la fin du fichier
seek(L,0,2);
while (1) {
while (eof(L)) {
sleep 1;
seek(L,0,1);
}
$l = <L>;
print "Alarm\n" if ($l =~ /su/);
}
Et en plus avec celui l� tu ne peux pas louper de lignes
et il est tr�s efficace et consomme peu de ressources.
Nicolas
--
http://www-internal.alphanet.ch/linux-leman/ avant de poser
une question. Ouais, pour se d�sabonner aussi.
