[+] Perl - okre

markossx · Post autor: **markossx** » 23 października 2013, 20:13

Hej.

Mam drobny problem z wyciągnięciem kolumny z tablicy.

my @cmd = `netstat -vatnp | grep -E '10.8'`;

Dostaję:

tcp   0   0   192.168.10.10:35612    192.168.10.8:3846      ESTABLISHED 3235/process

Potrzebuję piątą kolumnę z wyniku, bez zapisywania do plików.
Jak to ogarnąć?

drekkett · Post autor: **drekkett** » 23 października 2013, 21:34

my @cmd = `netstat -vatnp | grep -E '10.8' |cut -d ' ' -f5`;

Powinno załatwić sprawę.

mtp · Post autor: **mtp** » 24 października 2013, 10:45

Powinno być:

 my @cmd = `netstat -vatnp | grep '10.8' |tr -s ' '|cut -d ' ' -f5`;

lub

 my @cmd = `netstat -vatnp  |awk '{if (\$5 ~ /10\.8/) print \$5}'`;

markossx · Post autor: **markossx** » 24 października 2013, 11:45

Dzięki Panowie

Działa opcja mtp z cut. Podoba mi się użycie awk w tym miejscu ale zarówno moje próby
jak i podpowiedź mtp zwracają

Use of uninitialized value $5 in concatenation (.) or string at
./conn-checker.pl line 14

Interpretuje zmienną awk jak swoją własną.

mtp · Post autor: **mtp** » 24 października 2013, 12:31

Tak racja, mój błąd, poprawiłem.

Natomiast jeśli chciałbyś podzielić tak jak pisałeś w pierwszym wpisie to:

my @cmd = `netstat -vatnp`;

foreach $line (@cmd){
@a=split (" ",$line);
if (@a[4] =~/10\.8/) {print "@a[4] \n"};
}

Weź uwagę na to, że to co Ci napisałem sprawdza czy adres IP którego szukasz znajduje się w piątej kolumnie.

markossx · Post autor: **markossx** » 24 października 2013, 14:21

Świetne, instruktywne wyjaśnienie, dzięki.