A ver si me puedo explicar con claridad para ver si alguien me puede ayudar...
Necesitaría ejecutar a través de un programa en Perl un comando Linux el cual espera respuesta del usuario. Quiero decir... una vez ejecutado ese comando, el programa espera a que el usuario introduzca ciertos datos y pulse Entrar.
El problema es que he intentando instalar un módulo que hace lo que quiero (en concreto el Crypt::OpenSSL::CA) pero no hay manera ...
-
- Publicidad
Fecha actual 2024-12-25 08:47 @407
News of Avanzado
Site map of Avanzado » Foro : Avanzado
Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.Comando "System" de manera desatendida
Read more : Comando "System" de manera desatendida | Vistas : 1940 | Respuestas : 1
500 Can't locate object method "new" via package "LWP::Proto
Tengo este error en la aplicación que monté en CentOS.
500 Can't locate object method "new" via package "LWP::Protocol::https::Socket" at MyApp/AchDaemon.pm line 211
En mi computador, o sea, en mi Windows con Perl, me funciona a la maravilla, pero ahora que lo subí al servidor de desarrollo de prueba me sale eso en mi archivo log...
Buscando en Internet encontré:
LWP does not come with https support built-in. You will need to ...
500 Can't locate object method "new" via package "LWP::Protocol::https::Socket" at MyApp/AchDaemon.pm line 211
En mi computador, o sea, en mi Windows con Perl, me funciona a la maravilla, pero ahora que lo subí al servidor de desarrollo de prueba me sale eso en mi archivo log...
Buscando en Internet encontré:
LWP does not come with https support built-in. You will need to ...
Read more : 500 Can't locate object method "new" via package "LWP::Proto | Vistas : 3605 | Respuestas : 5
Exceso de memoria usada por forks
Saludos, tengo un código que escucha conexiones TCP y las escribe a MySQL, tiene un proceso padre y aprox. 2000 conexiones permanentes hechas con fork ocupando 20 Gigas en RAM.
Proceso padre:
#!/usr/bin/perl -w
use forks;
use forks::shared;
use IO::Socket;
use strict;
use warnings;
use Net::hostent;
use HTTP::Date;
use DBD::mysql;
use POSIX;
my $servidor = IO::Socket::INET->new(Proto =>'tcp',
LocalPort=>$puerto,
Listen =>SOMAXCONN,
Reuse =>1)
or die "Error al iniciar el servidor";
print "[Aceptando conexiones TCP en ...
Proceso padre:
#!/usr/bin/perl -w
use forks;
use forks::shared;
use IO::Socket;
use strict;
use warnings;
use Net::hostent;
use HTTP::Date;
use DBD::mysql;
use POSIX;
my $servidor = IO::Socket::INET->new(Proto =>'tcp',
LocalPort=>$puerto,
Listen =>SOMAXCONN,
Reuse =>1)
or die "Error al iniciar el servidor";
print "[Aceptando conexiones TCP en ...
Read more : Exceso de memoria usada por forks | Vistas : 2012 | Respuestas : 1
XML-CGI
Hola, buenas tardes. Uso un html conteniendo un calendario:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=utf-8" />
<title>SIFAMEP CALENDAR</title>
<!-- link calendar resources -->
<link rel="stylesheet" type="text/css" href="tcal.css" />
<script type="text/javascript" src="tcal.js"></script>
</head>
<body>
<form action="#">
<!-- add class="tcal" to your input field -->
<div><input type="text" name="fecha_sale" class="tcal" value="" /></div>
</form>
</body>
</html>
Paso lo anterior a un programa CGI en Perl y no muestra ...
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=utf-8" />
<title>SIFAMEP CALENDAR</title>
<!-- link calendar resources -->
<link rel="stylesheet" type="text/css" href="tcal.css" />
<script type="text/javascript" src="tcal.js"></script>
</head>
<body>
<form action="#">
<!-- add class="tcal" to your input field -->
<div><input type="text" name="fecha_sale" class="tcal" value="" /></div>
</form>
</body>
</html>
Paso lo anterior a un programa CGI en Perl y no muestra ...
Read more : XML-CGI | Vistas : 5938 | Respuestas : 13
Desbloqueo de subrutina
Saludos, soy nuevo en el mundo Perl, tengo una tarea que me pusieron y he estado buscando información pero no la he captado bien. Tengo esta subrutina que tengo que desbloquearla, es una practica con 50 % de la nota. Ayuda, por favor:
sub LockDBFile {
open (MyLOCK, ">$cgi_path/tmp/db.lock");
flock (MyLOCK, LOCK_EX) || die("$!");
$lock->unlock;
}
sub UnlockDBFile {
close(MyLOCK);
}
sub LockDBFile {
open (MyLOCK, ">$cgi_path/tmp/db.lock");
flock (MyLOCK, LOCK_EX) || die("$!");
$lock->unlock;
}
sub UnlockDBFile {
close(MyLOCK);
}
Read more : Desbloqueo de subrutina | Vistas : 3347 | Respuestas : 5
Unir dos expresiones regulares
¿Cómo puedo unir dos expresiones regulares para que en una sola línea me traiga los dos datos que deseo?
Tengo esta cadena:
var lat = 3.43575165;
var lon = -76.54623305;
var companyId = '15721119';
var companyName = 'RESTAURANTE';
var cityId = 'gfghj';
var cityName = 'ghfg';
y con este código obtengo lo que tiene el var lat
my ($latitude,$longitude) = $content =~ m/var lat \=(.+?)\;/;
$longitude = $content =~ m/var lon ...
Tengo esta cadena:
var lat = 3.43575165;
var lon = -76.54623305;
var companyId = '15721119';
var companyName = 'RESTAURANTE';
var cityId = 'gfghj';
var cityName = 'ghfg';
y con este código obtengo lo que tiene el var lat
my ($latitude,$longitude) = $content =~ m/var lat \=(.+?)\;/;
$longitude = $content =~ m/var lon ...
Read more : Unir dos expresiones regulares | Vistas : 3525 | Respuestas : 1
Can't use an undefined value as a HASH reference at
Tengo este error cuando quiero hacer el upload de un fichero...
Can't use an undefined value as a HASH reference at libs/CGI/UploadEasy.pm line 208.
pero solamente me sale cuando lo llamo dentro de un método de cgi-app, básicamente si uso un fichero sencillo de Perl para hacer el upload no tengo problema pero más o menos mi forma de hacer el llamado es así.
Tengo un MyBase.pm con el método
sub uploadFile {
my ...
Can't use an undefined value as a HASH reference at libs/CGI/UploadEasy.pm line 208.
pero solamente me sale cuando lo llamo dentro de un método de cgi-app, básicamente si uso un fichero sencillo de Perl para hacer el upload no tengo problema pero más o menos mi forma de hacer el llamado es así.
Tengo un MyBase.pm con el método
sub uploadFile {
my ...
Read more : Can't use an undefined value as a HASH reference at | Vistas : 9220 | Respuestas : 21
Borrar elemento de array en función recursiva
Tengo una función recursiva que me genera un árbol según un array de id que le paso.
El problema es que esos id, pueden ser hijos o padres de otros, así que no quiero que se me repitan en el árbol pues no tiene sentido...
Lo que quiero es eliminar de mi $data principal los elementos que ya la función recursiva haya leído. Este es más o menos mi ejemplo:
sub categoryTreeMecaE{
my $self ...
El problema es que esos id, pueden ser hijos o padres de otros, así que no quiero que se me repitan en el árbol pues no tiene sentido...
Lo que quiero es eliminar de mi $data principal los elementos que ya la función recursiva haya leído. Este es más o menos mi ejemplo:
sub categoryTreeMecaE{
my $self ...
Read more : Borrar elemento de array en función recursiva | Vistas : 3059 | Respuestas : 3
Error unpack (opción "Q")
Hola a todos.
Tengo un problema. Cuando ejecuto un script obtengo el siguiente error:
Invalid type 'Q' in unpack at...
Por lo que leo en el módulo dice lo siguiente:
El caso es que ejecuto el script en dos máquinas de 64bits, una de ellas ...
Tengo un problema. Cuando ejecuto un script obtengo el siguiente error:
Invalid type 'Q' in unpack at...
Por lo que leo en el módulo dice lo siguiente:
Q: An unsigned quad value. (Quads are available only if your system supports 64-bit integer values _and_ if Perl has been compiled to support those. Causes a fatal error otherwise.)
El caso es que ejecuto el script en dos máquinas de 64bits, una de ellas ...
Read more : Error unpack (opción "Q") | Vistas : 3562 | Respuestas : 8
Concurrencia y consultas a MySQL
Hola, estoy teniendo problemas con un script que es una especie de dæmon, en el cual se crean varios procesos que hacen diferentes acciones en una BD MySQL. El tema es que los resultado resultan ilógicos, o "explota".
Resumiendo, el programa sería básicamente esto:
...;
while (1) {
my $child_id = fork();
if ($child_id) {
...
}
else {
# Se ejecutan varios módulos según parámetros en paralelo que acceden a la BD
# (consultas, ...
Resumiendo, el programa sería básicamente esto:
...;
while (1) {
my $child_id = fork();
if ($child_id) {
...
}
else {
# Se ejecutan varios módulos según parámetros en paralelo que acceden a la BD
# (consultas, ...
Read more : Concurrencia y consultas a MySQL | Vistas : 3504 | Respuestas : 4
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981