Foro - Perl en Español

por **FredoX** » 2012-02-06 12:24 @558

Buen día.

Antes que nada soy super nuevo en el mundo de Perl así que no sé mucho del tema... :roll:

Tengo unos GPS que me envían información a un modem GSM por mensaje de texto SMS, ya tengo listo el script que se conecta vía telnet y lee los mensajes almacenados. Pero el mensaje me viene en el siguiente formato:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Lat: N10.21614

Long: W67.34032

Speed:85.34KM/H

Direction:257

Date:2012-02-03

Time:21:14:46

BS:01775B1A

FIX:A

ID:356823032280906

STATE:SMSColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Necesito filtrar el texto para obtener únicamente la longitud y latitud... para guardarlo en mi base de datos... Algo como esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$lat= N10.21614
$long= W67.34032;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Cualquier pista me ayudaría mucho

...

Muchas gracias.

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use diagnostics;
 
my $mensaje = '
Lat: N10.21614
Long: W67.34032
Speed:85.34KM/H
Direction:257
Date:2012-02-03
Time:21:14:46
BS:01775B1A
FIX:A
ID:356823032280906
STATE:SMS';
 
my($latitud,$longitud) = $mensaje =~ /Lat: (.+)\s*Long: (.+)$/m;
 
say "[$latitud, $longitud]";
 
__END__
[N10.21614, W67.34032]
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **FredoX** » 2012-02-06 13:27 @602

Muchas gracias, me funcionó a la perfección :mrgreen:

.

La solución era bien simple :oops:

, eso es lo que pasa cuando no se conoce un lenguaje... Espero estudiarlo con calma para poder entenderlo :roll:

..

Gracias nuevamente.

por **explorer** » 2012-02-06 17:34 @774

La línea 19, my($latitud,$longitud) = $mensaje =~ /Lat: (.+)\s*Long: (.+)$/m;, hace esto:

a $mensaje se le va a aplicar una expresión regular (=~)
el patrón es lo que está entre los delimitadores '/'
buscamos el patrón dentro de $mensaje. Lo que buscamos es: el literal 'Lat: ', seguido de cualquier cosa (.+), que capturaremos (con los paréntesis), hasta cero o más espacios en blanco (el carácter de avance de línea, normalmente), seguido del literal 'Long: ', seguido por cualquier cosa(.+), que capturaremos (con los paréntesis), hasta el final de esa línea ($)
Como lo que hay a mano izquierda de la expresión regular es una lista (dos variables), el resultado de la expresión regular es la lista de las capturas hechas. Entonces, cada captura es introducida en la variable correspondiente.

Las expresiones regulares es una de las partes más importantes de Perl.

Por si quieres empezar con Perl: por dónde empezar.

Foro - Perl en Español

Filtrar contenido de un texto

Filtrar contenido de un texto

Publicidad

Re: Filtrar contenido de un texto

Re: Filtrar contenido de un texto

Re: Filtrar contenido de un texto

¿Quién está conectado?