Foro - Perl en Español

por **seguridadenmimail** » 2011-11-19 19:06 @837

En esta ocasión los molesto porque quiero hacer una regex y no estoy teniendo éxito.
Tengo el siguiente script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ( @ARGV != 1 ) {
 
    die "\nUse: $0 <urls.txt>\n\n" . "   <file>    Archivo que contiene las urls [ej -> urls.txt]\n";
 
}
$file = $ARGV[0];
chomp $archivo;
 
open $FILE, '<', $file or die $!;
@archivos = <$FILE>;
close $FILE;
 
for $archivo (@archivos) {
    chomp $archivo;
    if ( $archivo =~ s/:|\//_/g ) {
        print "$archivo\n";
        system("archivo.exe --direccion=$archivo --salida=$archivo");
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Mi intención es que éste tome un archivo externo con el siguiente contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

http://www.google.com

http://www.miweb.com/testing/

http://web2.com/testing/test/archiveColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y lo convierta de la siguiente forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

http_www.google.com

http_www.miweb.com_testing

http_web2.com_testing_test_archiveColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Alguien me puede ayudar? La regex que tengo convierte el "://" a "_" pero las demás barras no las toca.

Por otro lado ahora, que me doy cuenta, en realidad necesito dos acciones:
1.- Conservar en un array las URL del archivo
2.- Convertir con la regex y guardar el resultado en otro array

Necesito esto porque tengo dos argumentos en mi archivo.exe, uno para las URL y otro para las salidas.

Espero que se entienda.
Saludos.

my @array_original = @archivos;   # sacamos una copia
for $archivo (@archivos) {
    chomp $archivo;
    $archivo =~ s{://|/}{_}g;     # el elemento del array es modificado también
    print "[$archivo]\n";
    system("archivo.exe --direccion=$archivo --salida=$archivo");
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **seguridadenmimail** » 2011-11-19 23:06 @004

Aquí no puedo probarlo, pero te hago una consulta ¿$archivo no queda modificado? Digamos:

Sintáxis: [ Descargar ] [ Ocultar ]

http_www.google.com
http_www.miweb.com_testing
http_web2.com_testing_test_archive

porque yo necesito para "--url" las URL originales y para "--out" las modificadas.

Saludos.

por **explorer** » 2011-11-20 00:45 @073

Tienes razón, funcionaría mal.

Mejor así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @array_original;                   # donde guardamos una copia
for $archivo (@archivos) {
    chomp $archivo;
    my $original = $archivo;
    push @array_original, $original;  # guardamos el original
    $archivo =~ s{://|/}{_}g;         # Cambio. El elemento del array es modificado también
    print "[$original] => [$archivo]\n";
    system("archivo.exe --direccion=$original --salida=$archivo");
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **seguridadenmimail** » 2011-11-20 20:28 @894

Muchas Gracias.
Saludos.

Foro - Perl en Español

Consulta por expresión regular

Consulta por expresión regular

Publicidad

Re: Consulta por expresión regular

Re: Consulta por expresión regular

Re: Consulta por expresión regular

Re: Consulta por expresión regular

¿Quién está conectado?