Polskie Forum Użytkowników Debiana

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ąć?

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

Powinno załatwić sprawę.

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}'`;

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ą.

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.

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

[+] Perl - okre