Foro - Perl en Español

por **aindergm** » 2012-06-27 09:36 @442

OK.

¿Y cómo podría recoger los dos valores que te he dicho en el comentario anterior?

Gracias.

#!/usr/bin/perl
$dirPerl='C:/Users/Gordoa/Documents/UNI/4ºCurso/ProyectoFinGrado/Perl/archivosPerl';
$dirComplete='C:/Users/Gordoa/Documents/UNI/4ºCurso/ProyectoFinGrado/server/public_html/AndroidDataMining/iLogand/ID-357841036752224/com.android.launcher_280.out';
my $response = `perl $dirPerl/perlPrueba.pl $dirComplete`;
print("$response\n");

perlPrueba.pl

Sintáxis: [ Descargar ] [ Ocultar ]

#!/usr/bin/perl
$dirData = $ARGV[0];
my($ID, $out) = $dirData =~ m/\\ID-(\d+)\\(.+?)_/;
print "[$ID][$out]\n";
print("$dirData\n");

Si hago esto puedo ver la salida '$dirData' es la misma que la que se envía, pero no recoge los valores de '$ID' y '$out'

Por lo que estoy seguro que se envía correctamente, pero luego no me guarda los valores.

Gracias

por **explorer** » 2012-06-29 05:36 @275

Claro, porque en $dirComplete estás usando barras diagonales normales ('/'), mientras que la expresión regular está esperando barras diagonales invertidas ('\'), porque es lo que habías mostrado en el primer mensaje de este hilo.

Prueba con esta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my($ID,$out)=$dirData=~m{/ID-(\d+)/(.+?)_};Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

O, si no sabes si vas a usar un estilo u otro:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my($ID,$out)=$cadena=~m{[/\\]ID-(\d+)[/\\](.+?)_};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **aindergm** » 2012-06-29 06:16 @303

Ya he conseguido que funcione.
¡¡Muchas gracias por toda la ayuda que me has dado!!

¡¡¡Gracias!!!

Foro - Perl en Español

Extraer de cadena de caracteres

Re: Extraer de cadena de caracteres

Publicidad

Re: Extraer de cadena de caracteres

Re: Extraer de cadena de caracteres

Re: Extraer de cadena de caracteres

Re: Extraer de cadena de caracteres

¿Quién está conectado?