Foro - Perl en Español

por **erv-Z** » 2009-11-13 13:36 @608

Bien, me diste una idea ya, pero ahora quisiera que la salida fuera así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

www.pagina.com/a.php?id=811hola&cat=324&ver=1

http://www.pagina.com/a.php?id=811&cat=324hola&ver=1

http://www.pagina.com/a.php?id=811&cat=324&ver=1holaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Saludos...

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
 
my $url = 'www.pagina.com/a.php?id=811&cat=324&ver=1&not=1&recat=99999';
 
my $agregar = 'hello';
 
while ($url =~ m/\&/g) {
 
    my $nueva_url = $url;
 
    substr($nueva_url, pos($url)-1, 0, $agregar);
 
    comprobar($nueva_url);
}
 
comprobar($url . $agregar);
 
 
sub comprobar {
    print $_[0], "\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-11-14 15:16 @677

Lo que pasa es que no has dicho cómo quieres pasar la lista de URL al programa.

por **erv-Z** » 2009-11-14 15:22 @682

Oka, ahora explico.

Al ejecutar el programa me responde lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$ perl a.pl

http://www.pagina.com/a.php?id=811hello&cat=324&ver=1&not=1&recat=99999

http://www.pagina.com/a.php?id=811&cat=324hello&ver=1&not=1&recat=99999

http://www.pagina.com/a.php?id=811&cat=324&ver=1hello&not=1&recat=99999

http://www.pagina.com/a.php?id=811&cat=324&ver=1&not=1hello&recat=99999

http://www.pagina.com/a.php?id=811&cat=324&ver=1&not=1&recat=99999helloColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Oka, así era que lo quería pero ahora quiero hacerlo de otra forma, o sea, que cada URL se me almacene en una variable y luego poder llamar a la variable y que me imprima lo que contenga.

Saludos.

por **explorer** » 2009-11-14 16:04 @711

Bueno, tampoco pasa nada por guardar todas las combinaciones en un arreglo y luego recuperarlas de forma interactiva.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
 
my $url = 'www.pagina.com/a.php?id=811&cat=324&ver=1&not=1&recat=99999';
 
my $agregar = 'hello';
 
my @resultado;
 
sub almacenar {
    push @resultado, $_[0];
}
 
 
while ($url =~ m/\&/g) {
 
    my $nueva_url = $url;
 
    substr($nueva_url, pos($url)-1, 0, $agregar);
 
    almacenar($nueva_url);
}
 
almacenar($url . $agregar);
 
exit if !@resultado;
 
my $numero;
do {
    print "Introduzca un valor entre 1 y ", scalar(@resultado), " (0 para terminar): ";
    $numero = <>;
    chomp $numero;
    print "[$numero] ";
 
    if ($numero > 0  and  $numero <= @resultado) {
        print $resultado[$numero-1];
    }
 
    print "\n";
 
} while ($numero != 0);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Comprobando input

Re: Comprobando input

Publicidad

Re: Comprobando input

Re: Comprobando input

Re: Comprobando input

Re: Comprobando input

Re: Comprobando input

Re: Comprobando input

Re: Comprobando input

Re: Comprobando input

Re: Comprobando input

¿Quién está conectado?