Dotaz: Perl a export z pingu packet loss

[pa.petr]

Zdravim vsechny, potrebuju z vypisu pingu dostat jen procentualn hodnotu stracenych paketu. Pres regularni vyrazi jsem se s tim nedokazal domluvit. Nemohl byste mi nekdo prosim poradit jak to udelat? Dikec

Odpovědi

[vasek125]

co takhle grep a awk?

[vasek 125]

třeba:
ping www.google.com -c 5| grep "packet loss"| awk '{print $6}'

[georgo23]

ping www.google.com -c 5| awk /packet/'{print $6}' mi pripada jednodusi.

[pa.petr]

Prave ja to mam udelane pres bash prikazy a to

$stav_loss=`ping xxx.xxx.xxx.xxx -c5 -s9 -w120 | grep "loss" | awk {'print \$6'}`

. Ja si rikal ze kdyz uz v Perlu neco delam ze bych pouzil regularni vyrazi pro vytrzeni tohoto parametru. Ale jinak vsem dekuji.

[hudin]

Prave ja to mam udelane pres bash prikazy a to

$stav_loss=`ping xxx.xxx.xxx.xxx -c5 -s9 -w120 | grep "loss" | awk {'print \$6'}`

. Ja si rikal ze kdyz uz v Perlu neco delam ze bych pouzil regularni vyrazi pro vytrzeni tohoto parametru. Ale jinak vsem dekuji.

co treba

$stav_loss=`ping xxx.xxx.xxx.xxx -c5 -s9 -w120`;
($loss) = $stav_loss =~ /(\d+%) packet loss/;

[kafi]

tak to je presne ono co jsem potrboval moc dekuji. Jeste pro 100% funkcnist jsem to upravil na

($loss)=$stav_loss=~/(\d{1,3}%) packet loss/;

. Dekuji za pomoc