Foro - Perl en Español

por **Javier_sz12** » 2010-07-09 11:56 @539

Buenas... tengo un problema que no logro resolver. Tengo el siguiente texto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

PING http://www.l.google.com (72.14.253.105): 56 data bytes

bytes from 72.14.253.104: icmp_seq=3 ttl=52 time=109.575 ms

bytes from 72.14.253.104: icmp_seq=4 ttl=52 time=113.299 ms

bytes from 72.14.253.104: icmp_seq=5 ttl=53 time=104.000 msColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

que proviene de la ejecución del ping, pero necesito obtener algo de tipo

@arreglo= ("109.575","113.299","104.000");

¿Cómo se puede hacer?
Gracias por su tiempo.

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use diagnostics;
 
 
my $ping = q(
PING http://www.l.google.com (72.14.253.105): 56 data bytes
 
64 bytes from 72.14.253.104: icmp_seq=3 ttl=52 time=109.575 ms
64 bytes from 72.14.253.104: icmp_seq=4 ttl=52 time=113.299 ms
64 bytes from 72.14.253.104: icmp_seq=5 ttl=53 time=104.000 ms
);
 
my @arreglo;
 
for my $linea ( split /\n/, $ping ) {
 
    if ($linea ~~ /([\d.]+) ms/) {
        push @arreglo, $1;
    }
}
 
use Data::Dumper::Names;
print Dumper \@arreglo;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

@arreglo = (

             '109.575',

             '113.299',

             '104.000'

           );Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El truco está en indicar dónde está lo que queremos capturar: el número ([\d.]+) que está al lado de " ms".

Foro - Perl en Español

Extraer tiempo de retraso desde ping

Extraer tiempo de retraso desde ping

Publicidad

Re: Problema con expresiones regulares

Re: Problema con expresiones regulares

Re: Problema con expresiones regulares

¿Quién está conectado?