Foro - Perl en Español

por **erv-Z** » 2009-11-02 13:07 @588

Buenas, tengo una duda, como todos xD : necesito ir comprobando varias input de una URL; ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

www.pagina.com/a.php?id=1&cat=1&ver=1Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Donde las input son id=1, cat=1 y ver=1, pues lo que quiero automatizar es agregarle algo, o sea, ir agregándoselo input por input, ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

www.pagina.com/a.php?id=1hello&cat=1&ver=1

www.pagina.com/a.php?id=1&cat=1hello&ver=1

www.pagina.com/a.php?id=1&cat=1&ver=1helloColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Espero que se me pueda entender...

Saludos.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
 
my $url = 'www.pagina.com/a.php?id=1&cat=1&ver=1';
 
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.002 segundos,  usando GeSHi 1.0.8.4

En este código usamos una expresión regular para buscar la posicion de cada '&', y con la ayuda de la función substr() con 4 parámetros, 'metemos con calzador' lo que queremos $agregar dentro de la $nueva_url que queremos comprobar().

Después del bucle, tenemos que comprobar() el último caso: el de $agregar lo que queremos al último parámetro de la $url original.

por **erv-Z** » 2009-11-02 14:22 @640

Gracias, explorer, pero lo único que no entendí fue la función pos de la línea 15.

por **explorer** » 2009-11-02 15:29 @687

pos() devuelva la posición en donde encontró el patrón de búsqueda.

Más información en perldoc perlre.

por **erv-Z** » 2009-11-11 15:20 @681

oka grax, pero lo que busco es que se lo adapte a cualquier número de query, o sea.

Se podría crear una subrutina que reciba la URL y luego ubique los input y le agregue hola al final de cada input.

Ejemplo: tendría las siguiente dos URL.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$a='www.pagina.com/a.php?id=811&cat=324&ver=1'
my$b='www.pagina.com/a.php?id=811&cat=324&ver=1&not=1&recat=99999'

sub query{
.....
}
my$aa= query($a)
my$bb= query($b)
print$aa."\n".$bb."\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si se necesita ocupar algún módulo, no hay problema.

Saludos.

por **explorer** » 2009-11-12 16:37 @734

Pero si lo tienes hecho ya... solo tienes que hacer un bucle...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@queries=qw(

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

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

formy$query(@queries){

    comprobar_query($query);
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **erv-Z** » 2009-11-12 16:59 @749

Al parecer no me entendiste; mira, lo explico mejor.

Tengo una URL almacenada en una variable, y tengo una función; le aplicaré la función a la variable para que me tire 'hola' después de cada input, o sea, que me imprimirá 'hola' después de cada input.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$a='www.pagina.com/a.php?id=811&cat=324&ver=1'
my$b='www.pagina.com/a.php?id=811&cat=324&ver=1&not=1&recat=99999'

sub query{
.....
}
my$aa= query($a)
my$bb= query($b)
print$aa."\n".$bb."\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

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

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

Saludos, espero que se haya comprendido...

por **explorer** » 2009-11-12 17:25 @767

Pues entonces la solución es igual que antes... una expresión regular:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$a='www.pagina.com/a.php?id=811&cat=324&ver=1';
$a=~s/\&/hola&/g;
$a=$a.'hola';Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Comprobando input

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?