Foro - Perl en Español

por **danimera** » 2013-06-03 12:35 @566

¿Cómo puedo unir dos expresiones regulares para que en una sola línea me traiga los dos datos que deseo?

Tengo esta cadena:

Sintáxis: [ Descargar ] [ Ocultar ]

var lat = 3.43575165;
var lon = -76.54623305;
var companyId = '15721119';
var companyName = 'RESTAURANTE';
var cityId = 'gfghj';
var cityName = 'ghfg';

y con este código obtengo lo que tiene el var lat

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my ($latitude,$longitude) = $content =~ m/var lat \=(.+?)\;/; 
$longitude = $content =~ m/var lon \=(.+?)\;/; 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

pero quiero obtener ahí mismo el valor de var lon para dejarlo guardado en longitude.

No logro saber cómo hacerlo, para que me encuentre los dos resultados en una sola expresión regular...

#!/usr/bin/perl
use v5.10;
 
my $cadena = do { local $/; open F, "kk.txt"; <F> };
 
my %posicion;
 
for my $m (qw(lat lon)) {
    if ($cadena =~ /var $m = (.+?);/) {
        $posicion{$m} = $1;
    }
}
 
say "[$posicion{lat}][$posicion{lon}]";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Unir dos expresiones regulares

Unir dos expresiones regulares

Publicidad

Re: Unir dos expresiones regulares

¿Quién está conectado?