Hola a todos,
Soy nuevo en Perl y he estado tratando de entender cómo pasar una respuesta a un comando de un programa externo.
El comando lo ejecuto de la siguiente manera:
my $nhloaddb = `nhLoadDb -p C:\respaldoDb`;
El problema es que dicho comando me responde con una pregunta, a la cual debo escribir manualmente 'Yes' para confirmar el comando.
Necesito que ese 'Yes' sea escrito automáticamente con el código en Perl. Leí algo sobre ...
-
- Publicidad
Fecha actual 2025-01-12 19:06 @837
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Retornar un 'yes' a un prompt de otro programa
Read more : Retornar un 'yes' a un prompt de otro programa | Vistas : 581 | Respuestas : 4
Tecla enter con scrollbar en Tk
Tengo una duda con el siguiente código:
my $body = $mejor->Scrolled("Text",-width=>98,-height=>30,-background=>$color_fondo,-foreground=>$color_texto,-scrollbars=>"e")->place(-x=>19,-y=>100);
$mejor->bind($body,"<Key-Return>"=> sub {
print "al fin\n";
});
El problema es que cuando lo uso con Text solo anda bien reconociendo la tecla enter pero cuando uso scrolled no reconoce nada.
¿ Alguien me podría explicar cómo soluciono esto ?
my $body = $mejor->Scrolled("Text",-width=>98,-height=>30,-background=>$color_fondo,-foreground=>$color_texto,-scrollbars=>"e")->place(-x=>19,-y=>100);
$mejor->bind($body,"<Key-Return>"=> sub {
print "al fin\n";
});
El problema es que cuando lo uso con Text solo anda bien reconociendo la tecla enter pero cuando uso scrolled no reconoce nada.
¿ Alguien me podría explicar cómo soluciono esto ?
Read more : Tecla enter con scrollbar en Tk | Vistas : 759 | Respuestas : 0
Duda con expresión regular
Tengo el siguiente texto:
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>verdos
<controltotal>
Lo que quiero es sacar siempre el último <controltotal> para tener el último dato en una variable; en este caso sería "verdos". Eso: necesito conseguir el último con un dato, por eso quiero "verdos".
¿ Alguien me podría decir si es posible ?
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>verdos
<controltotal>
Lo que quiero es sacar siempre el último <controltotal> para tener el último dato en una variable; en este caso sería "verdos". Eso: necesito conseguir el último con un dato, por eso quiero "verdos".
¿ Alguien me podría decir si es posible ?
Read more : Duda con expresión regular | Vistas : 468 | Respuestas : 3
Llamada a subrutina Perl desde HTML
Hola, soy estudiante y estoy aprendiendo...
Quisiera saber si se puede llamar a una subrutina Perl desde HTML.
El código es:
open (OUT,">$html");
print OUT <<ENDHTML_LAST
<body bgcolor="#F5F5F5">
<head>
<BR>
<title>$id</title>
</head>
<CENTER>
<TABLE bgcolor="#FFFFFF" border = "0" WIDTH="60%">
<tr>
<td><img src= "encabezado.jpg"><hr></td>
</tr>
<TR>
<td align="center">
<iframe width="35%" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com/maps?f=q&source=s_q&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6&iwloc=&output=embed"></iframe>
<small>
</td>
</TR>
<tr>
<td align="center"><font size="2"><font face="Arial, Helvetica, sans-serif"><a href="http://maps.google.com/maps?f=q&source=embed&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6" style="color:#0000FF;text-align:left">Ver mapa más grande</a></small> </font></font></td>
</tr>
<tr>
<td> </td> ...
Quisiera saber si se puede llamar a una subrutina Perl desde HTML.
El código es:
open (OUT,">$html");
print OUT <<ENDHTML_LAST
<body bgcolor="#F5F5F5">
<head>
<BR>
<title>$id</title>
</head>
<CENTER>
<TABLE bgcolor="#FFFFFF" border = "0" WIDTH="60%">
<tr>
<td><img src= "encabezado.jpg"><hr></td>
</tr>
<TR>
<td align="center">
<iframe width="35%" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com/maps?f=q&source=s_q&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6&iwloc=&output=embed"></iframe>
<small>
</td>
</TR>
<tr>
<td align="center"><font size="2"><font face="Arial, Helvetica, sans-serif"><a href="http://maps.google.com/maps?f=q&source=embed&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6" style="color:#0000FF;text-align:left">Ver mapa más grande</a></small> </font></font></td>
</tr>
<tr>
<td> </td> ...
Read more : Llamada a subrutina Perl desde HTML | Vistas : 637 | Respuestas : 2
Script para hacer ping a una lista de IP
Hola.
Estoy haciendo un script para que lea las IP de un fichero y muestre en un fichero las IP que responden a un ping. Lo que ocurre es que aunque el PC al que hago ping esté encendido, el script me dice que no responde al ping. ¿Sabéis cómo solucionarlo?
#!/usr/bin/perl
use Net::Ping;
open(INFILE, "<", "servers") or die("cannot open infile: $!");
my @ip_array = <INFILE>;
close(INFILE);
open(OUTFILE, ">", "ping_output") or die("unable to write ...
Estoy haciendo un script para que lea las IP de un fichero y muestre en un fichero las IP que responden a un ping. Lo que ocurre es que aunque el PC al que hago ping esté encendido, el script me dice que no responde al ping. ¿Sabéis cómo solucionarlo?
#!/usr/bin/perl
use Net::Ping;
open(INFILE, "<", "servers") or die("cannot open infile: $!");
my @ip_array = <INFILE>;
close(INFILE);
open(OUTFILE, ">", "ping_output") or die("unable to write ...
Read more : Script para hacer ping a una lista de IP | Vistas : 1951 | Respuestas : 1
Ventanas Emergentes en Catalyst framework web
Hola, amigos, estoy diseñando un pequeño programita con la ayuda del framework Catalyst acompañado de la BD PostgreSQL.
Tengo la necesidad de hacer mis ventanas interactivas, como por ejemplo: necesito hacer un formulario en ventana emergente y esos datos capturados enviarlos a la ventana padre sin volver a cargar nada nuevamente. Tengo entendido que se puede utilizar Javascript y jQuery en Catalyst pero la verdad, no he encontrado ejemplos claros.
Si alguien puede darme un ...
Tengo la necesidad de hacer mis ventanas interactivas, como por ejemplo: necesito hacer un formulario en ventana emergente y esos datos capturados enviarlos a la ventana padre sin volver a cargar nada nuevamente. Tengo entendido que se puede utilizar Javascript y jQuery en Catalyst pero la verdad, no he encontrado ejemplos claros.
Si alguien puede darme un ...
Read more : Ventanas Emergentes en Catalyst framework web | Vistas : 738 | Respuestas : 2
Copy no funciona en Windows 7
Buenos días.
Estoy intentando copiar un archivo a una carpeta llamada Downloads/ utilizando:
system("copy XXXXX.tar.gz Downloads/");
En un ordenador con Windows 2000 sí que me funciona esta copia, pero lo estoy intentando con un ordenador con Windows 7 y me dice:
"El sistema no puede hallar el archivo especificado".
¿Hay algo que estoy haciendo mal? ¿Cambia la función copy de un Windows a otro? ¿Quizás necesitaría meter alguna librería en el ordenador con Windows ...
Estoy intentando copiar un archivo a una carpeta llamada Downloads/ utilizando:
system("copy XXXXX.tar.gz Downloads/");
En un ordenador con Windows 2000 sí que me funciona esta copia, pero lo estoy intentando con un ordenador con Windows 7 y me dice:
"El sistema no puede hallar el archivo especificado".
¿Hay algo que estoy haciendo mal? ¿Cambia la función copy de un Windows a otro? ¿Quizás necesitaría meter alguna librería en el ordenador con Windows ...
Read more : Copy no funciona en Windows 7 | Vistas : 512 | Respuestas : 2
Hacer un POST a un login
Hola, bueno todos, soy nuevo en este foro.
Me gustaría que me guiaran para poder hacer un programa en Perl que haga una POST a un login de una página web y luego de hacerlo verificar hacia donde redirecciona dicha página, ya que cuando uno hace un intento de registro malo, lo redirecciona a http://www.ll.com y cuando se registra correctamente me redirecciona a otra web, ejemplo: ...
Me gustaría que me guiaran para poder hacer un programa en Perl que haga una POST a un login de una página web y luego de hacerlo verificar hacia donde redirecciona dicha página, ya que cuando uno hace un intento de registro malo, lo redirecciona a http://www.ll.com y cuando se registra correctamente me redirecciona a otra web, ejemplo: ...
Read more : Hacer un POST a un login | Vistas : 1242 | Respuestas : 7
Comando ping
Recién hace dos días que arranco con esto, así que perdonen si pregunto alguna boludez o algo muy sencillo :oops:
Mi consulta es la siguiente:
#!/usr/bin/perl
use Shell;
print "Content-type: text/html\n\n";
$foo = ping("-c5", "www.google.com\n\n");
print $foo;
$foo1 = ping("-c5", "www.ole.com.ar\n\n");
print $foo1;
Yo tengo armado esta función para tirar ping a esas dos páginas, pero al ejecutar esto vía web,
http://miservidor.com.ar/cgi-bin/perl.pl ...
Mi consulta es la siguiente:
#!/usr/bin/perl
use Shell;
print "Content-type: text/html\n\n";
$foo = ping("-c5", "www.google.com\n\n");
print $foo;
$foo1 = ping("-c5", "www.ole.com.ar\n\n");
print $foo1;
Yo tengo armado esta función para tirar ping a esas dos páginas, pero al ejecutar esto vía web,
http://miservidor.com.ar/cgi-bin/perl.pl ...
Read more : Comando ping | Vistas : 933 | Respuestas : 4
Obtener el nombre del último archivo creado en un directorio
En un directorio al que accedo por ftp, tengo cientos de archivos, pero sólo me interesan los archivos que empiezan por GetFtp, y en concreto, el último archivo creado.
Ejemplo.
GetFtp.20120608050100.tar.gz
GetFtp.20120610050100.tar.gz
GetFtp.20120612050100.tar.gz
Sólo me interesaría el último que ha sido creado en el mismo día.
¿Cómo podría obtener el nombre del fichero para luego poder hacer un get() y descargarlo?
año /2012 mes/ 06 día/12 hora /050100
Disculpad si no me he expresado ...
Ejemplo.
GetFtp.20120608050100.tar.gz
GetFtp.20120610050100.tar.gz
GetFtp.20120612050100.tar.gz
Sólo me interesaría el último que ha sido creado en el mismo día.
¿Cómo podría obtener el nombre del fichero para luego poder hacer un get() y descargarlo?
año /2012 mes/ 06 día/12 hora /050100
Disculpad si no me he expresado ...
Read more : Obtener el nombre del último archivo creado en un directorio | Vistas : 1177 | Respuestas : 2
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981