Mensajes

No he utilizado el modulo HTTP con Perl, asi que desconozco como funcione.

Pero una preguntita, cuando llamas a Mozilla con la funcion agent.. se abre fisicamente Mozilla en el escritorio??? porque de ser asi, seria un problema imaginate que el usuario inserte 50 como contador en el for, se abriran 49 Mozilla en tu escritorio a la vez   

Y no podemos basarnos completamente en Mozilla como navegador porque si el usuario no tiene Mozilla instalado??? no se ejecutara el script. deberia moverse mas con Iexplorer

Corazon en ninguna parte de tu codigo (que no puse un codigo hecho por mi, solo corregi parte de la sintaxis del tuyo y eso fue lo que repostee    ) lo unico que hace es imprimir en pantalla. Que definas dentro de una variable esto ::

my $url="http://$pagina"

No implica que cuando esa variable obtenga el valor de otra variable, va a navegarte a la web. $url es solo una variable, y como tal guarda datos no es una funcion ni una aplicacion que se ejecuta solo existe para guardar datos.... Ahora si tu hicieras esto :

Código [Seleccionar] Expandir

#!/usr/bin/perl
use strict;

my $veces = 0;
print STDOUT "Inserta un numero\n";
my $cantidad=<STDIN>;
chomp $cantidad;
print "Direccion: ";
chomp (my $page=<STDIN>);   
if ( $page ) {
my $url = "http://$page";
$veces = $veces + 1;
for ($veces = 0; $veces < $cantidad; $veces++) {
system("lynx $url");
}
} else {
print STDOUT "Debes insertar algo\n";
}

Que creo que eso es lo que mas o menos andas buscando... y no pretendo ayudar porque aunque digas que no, tu objetivo final es hacer envios de solicitud masivo a cierta web.

Pues no entiendo tu teoria... el script hace justamente lo que pides que haga con bucle o sin el. Que es pedirte primero un numero luego pedirte que insertes una data y la imprime en la salida estandar nada mas.... porque dices que no funcion? a mi me va bien y no tiene nada de error el del bucle tampoco;


#!/usr/bin/perl
use strict;

my $veces = 0;
print STDOUT "Inserta un numero\n";
my $cantidad=<STDIN>; 
chomp $cantidad;
while ($veces <= $cantidad)
{
print "Direccion: ";
chomp (my $page=<STDIN>);   
my $url = "http://$page";
print "$url\n";
$veces = $veces + 1;
}

Porque el uso del modulo LWP::Simple si tu codigo no va dirigo a ser CGI para web?
mejor da uso de use strict, and use warnings para debugear el codigo.

No se en que lenguaje harias eso, pero si, es posible asignar valor a variables distintos valores digo a la misma variable dentro de un bucle. Por ejemplo ;;

Código [Seleccionar] Expandir

main(void)
{
int a, b, c;

for (a=0;a<4;a++) {
b = a;
c = a+1;
  fprintf(stdout, "%i %i\n", b, c);
}
return 0;
}

Eso es en C, use un for como bucle hasta el 4, como veras tengo 3 variables enteras, donde uso la primera como contador del bucle, y se la voy asignando tanto a la variable b, como a la variable c sumandole un 1. Cada vez que se imprima con el printf que vez dentro del bucle, saldra esto ::

bash-3.1$ ./a.out
0 1
1 2
2 3
3 4


Donde la primera file corresponde a b, y la segunda a c. Vez como van cambiando los valores de las variables dentro del bucle? no se si mas o menos esto es lo que andas buscando, pero asignar valor a variables dentro de un bucle es posible.

Interesante,    si gustas mas adelante cuando des por terminado tu proyecto. Solo si estas interesado, podria crearte la contraparte grafica, tambien en Perl para los nostalgicos que le gustan las aplicaciones GUI nada mas 

Una sugerencia :: Tambien puedes incluir ambos scripts en 1 solo, asi no separas uno del otro solo porque uno oferta con la funcion 'Union' y el otro no. Puedes ir pensando en ir modulando tu aplicacion si vas a continuarla ya que se te hara un poco extensa.

El Mio 

Ok ya si te entendi.

Me habia perdido jeje, quisiera poder ayudarte mas, pero no se BATCH aunque aun asi imagino, que en BATCH se debe poder recibir entradas del teclado, por ende si creas un script podrias poner que la primera opcion que se imprima sea 'contrasena :' y recoger lo que el usuario introduzca y guardarlo en una variable, y usar dicha variable como contrasena en el login de Mysql. O sea por ejemplo.

print STDOUT "contrasena : "
$respuesta = <STDIN>  //Tomamos la entrada del usuario y la guardamos

if (defined $respuesta) { //Aqui se valida si $respuesta esta o no vacia igual puedes comparar con if ($respuesta != "")
$respuesta1 = mysql -h localhost -root -p$respuesta;
if ($respuesta1) {
grant all privileges on basedatos.* to 'fulano'@'%' identified by 'contrasena' with grant option;
}
} else {
print STDOUT "Error No se puede conectar\n"; }


Se que se puede hacer mejor de ahi lol, pero mas o menos vas captando la idea que te expongo verdad Ahora traducir eso a BATCH ya no sabria. Espero que alguien te de mejor ejemplo.

Gracias 

Esto era precisamente lo que andaba buscando :

my $ventana = MainWindow->new();
$ventana->minsize(qw(300 300));
my $texto = $ventana->Text(-width => 20, -height => 10, -background => 'white')->pack();

my $comando = `ps aux`;
$texto->insert("end", $comando);

Supongo que con la funcion system no se puede ya que system le dice que ejecute algo del sistema en la salida estandar del mismo sistema, no del interprete perl.

Gracias.

Pues no se si BAT soporte 'here documents' como bash pero supongo que si o al menos debe tener una contraparte.

porque no le pasas la clave de root junto al comando del login? o sea :

mysql -h localhost -u root -pcontrasena

Y ya logeado debes crear un usuario porque esto :

GRANT ALL PRIVILEGES ON tabla.* TO 'userl'@'localhost' IDENTIFIED BY 'pasl' WITH GRANT OPTION;

No crea un usuario, eso otorga todos los privilegios de una tabla a un usuario ya existente. Y tu dices que quieres crear un usuario... no otorgar permisos, o a lo mejor quieres crear un usuario y luego otorgarle permisos. O sea si fuera en bash con un here document :

mysql -h localhost -u root -pcontrasena << EOF
create user 'fulano';
set password for 'fulano'@'%' = password('contrasena');
grant all privileges on tabla.* to 'fulano'@'%';
EOF

Estas seguro que quieres otorgarle 'Grant Option' a dicho usuario??? Grant Option lo usamos en Mysql y Oracle para que ese usuario tenga potesta para otorgarle cualquier permiso de su tabla a otro usuario existente, y en estos casos es mejor que solo root pueda otorgar o quitar permisos y no otro usuario pero ya sabras tu.

Nadie sabe como redirigir la salida estandar STDOUT a un widget de texto   

Aunque sea en otro lenguaje que no sea Perl/Tk, pueden decirme si tienen una idea ya sea en C++/QT o C/GTK o el que sea, pero que sea en Linux o Unix claro...

Realmente tengo interes de saber si es posible