[PERL] pobieranie informacji z loga

[mariusz198787]

Witam!

Jak pobrać z loga np. adres źródła albo wartość jakiegoś pola np. len w perlu??

[jacekalex]

Wczytywanie - uchwyt pliku http://pl.wikibooks.org/wiki/Perl/Operacje_na_plikach
parsowanie linia po linii pętla while <Uchwyt_pliku> , wyrazenie regularne (funkcja split) - dzieli wiersz na kolumny wg znaku dzielącego (analogicznie do awk -F) - przypisując poszczególne pola do zmiennych.
http://pl.wikibooks.org/wiki/Perl/Opera ... egularnych
viewtopic.php?t=109474
Funkcja split:
http://pl.wikibooks.org/wiki/Perl/Opera ... egularnych

http://www.kt.agh.edu.pl/perl-faq/

http://wieluk.republika.pl/s/wzorce.html

I jeszcze to: http://www.tizag.com/perlT/perlfileinput.php

man perlre

Pozdrawiam

[mariusz198787]

o dzięki wielkie

a tak przy okazji jak mam tekst

assjdhjdfhj mfbdjfgj ./c.v;d,v;d SDR=3445 TYU=356 d;fkldfk;

chcę żeby wypisało mi tylko SDR=3445
robię takie cos

Kod: Zaznacz cały

if($zmienna=~/SRC=(.*)/){print $1;}

to zwraca w wyniku SDR=3445 TYU=356 d;fkldfk;

jak powinno być?

metodą prób i błędów doszedłem że powinno być ~/(SRC=(.+?)\s)/) ale za bardzo nie wiem dlaczego:P

[otokan]

Kwantyfikatory * i + są zachłanne (greedy). To znaczy, że dopasowują się do najdłuższego znalezionego podciągu, który pozwala na dopasowanie się całego wyrażenia regularnego. Jeśli za kwantyfikatorem doda się znak ? czyli ( *? i +? ) to dopasowany będzie najkrótszy możliwy podciąg.

Czyli np:

Kod: Zaznacz cały

/1(.*)1/:
01010101010
 (-------)

/1(.*?)1/:
01010101010
 (-)

[jacekalex]

Ten przykład jest podobny do twojego przypadku:

Kod: Zaznacz cały

  open(PASSWD, '/etc/passwd');
    while (<PASSWD>) {
        chomp;
        ($login, $passwd, $uid, $gid,
         $gcos, $home, $shell) = split(/:/);
        #...
    }

http://perldoc.perl.org/functions/split.html

Pozdrawiam

[leon1313]

Kod: Zaznacz cały

echo "assjdhjdfhj mfbdjfgj ./c.v;d,v;d SDR=3445 TYU=356 d;fkldfk;" | perl -lane 'print $F[3]'

, choć osobiście bym to zrobił na grupach