🚀 go-pugleaf

Dnia Thu, 14 Oct 2004 20:13:21 +0200
hubert depesz lubaczewski <depesz@depesz.com> naskrobał(a):

> > O ile wiem, jak stworzyc watek, i o ile wiem, jak sledzic
> > plik (uzywam File::Tail), to jakos w jedna calosc nie za
> > bardzo potrafie tego zlaczyc. Czy tak sie w ogole da?
> > Ktos ma pomysl, jak to zrobic?
> > PS. Jezeli taki soft jest - chetnie poznam, jednak chec
> > samoksztalcenia jest silniejsza :) i chcialbym to napisac
> 
> zacznę od końca.
> 1. jest - xtail/multitail.
> 2. po co wątki? czy te logi faktycznie aż tak przyrastają?
> 
> akurat dziś potrzebowałem kodu do monitorowania logów - 2 lub więcej
> plików, tail na nich plus filtrowanie i kolorowanie.
> 
> kod jest free - jakbyś miał pytania - pisz na grupie może się komuś
> innemu przyda.

ta..
troche czasu minie, zanim zaczne taki kod rozumiec ;-)

moje rozwiazanie tez dziala.. ale czy jest eleganckie?
na pewno dla mnie bardziej przejzyste ;-)

mi zalezy tylko na tym, aby wyszukiwac jakiegos wzorca
w plikach i powiadamiac w jakis sposob o tym (proste,
wyszukiwac bledy w logach aplikacji)

napisalem cos takiego, co nawet niby dziala

#v+
#!/usr/bin/perl

use File::Tail;

@lista = "1 2 3";

$zmienna{1} = "ala";
$zmienna{2} = "ma";
$zmienna{3} = "kota";

while(<@lista>) {
  $plik = $_;

  $pid = fork;
  if($pid) {
    $file=File::Tail->new("/home/sierp/${plik}");
         while (defined($line=$file->read)) {
             if($line =~ /$zmienna{$plik}/) { print "$line"; }
    }
  }

}

#v-

oczywiscie nazwy plikow i zmienne do odczytania z konfiguracji

jednak mam watpliwosci, czy jest to elastyczne i konfigurowalne..
chcialbym jeszcze moc definiowac rozne metody powiadamiania,
ale mysle, ze jakos sie da
dziwi mnie jeszcze tylko, ze w ps axf widze cus takiego

4591 pts/0    S      0:00      |   /usr/bin/perl ./logtailer.pl
4592 pts/0    S      0:00      |    \_ /usr/bin/perl ./logtailer.pl
4593 pts/0    S      0:00      |        \_ /usr/bin/perl ./logtailer.pl
4594 pts/0    Z      0:00      |            \_ [logtailer.pl <defunct>]

a spodziewalem sie raczej czegos takiego

4591 pts/0    S      0:00      |   /usr/bin/perl ./logtailer.pl
4592 pts/0    S      0:00      |    \_ /usr/bin/perl ./logtailer.pl
4593 pts/0    S      0:00      |    \_ /usr/bin/perl ./logtailer.pl


cos zle zrobilem? a moze zupelnie nie tedy droga?

Sierp

PS. Wiem, uparty jestem ;-)

-- 
Nieoficjalne FAQ grupy pl.comp.networking
http://sierp.net/faq