Foro - Perl en Español

Tengo el siguiente código:


#!/usr/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Mod_dir::buscar;
#use strict;
#use warnings;
print error;
#print "Content-type: text/html;charset=UTF-8\n\n";


$query = new CGI;
$query->charset('UTF-8');
print $query->header('text/html');
print $query->start_html({-title=>'', -style=>"../../Css/style_formulario.css"});
print $query->startform;
print"<div id=\"buscar\">";
print $query->div({id=>'bBuscar'},($query->submit({class=>'boton', -value=>'Buscar'})));
print $query->div({id=>'cajatext'},($query->textfield({class=>'bus', -name=>'busq'})));
print "</div>";
print $query->end_form;

my $value = $query->param('busq');

my $campo = buscar->new;
if ($value =~ //) {
my @resultado = @{ $campo->busqueda($value) };
print"<div id=\"tablaM\">";
print $query->start_table;
print $query->Tr($query->th( {id=>'tablaSubTitulo'}, ) ...

Hola, estoy intentando hacer un script en Perl para mandar un email en caso de que el disco alcance un porcentaje de uso determinado.

Uso el comando de sistema "mutt" al que invoco con la orden "system" pero tengo un problema al usarlo dentro del script.

system("mutt -s 'asunto' email\@dominio.com <<< 'texto'")

uso \@ para introducir la arroba, al ser una carácter reservado.
lo he intentado también con variables en lugar de introducir el texto ...

Hola. Estaba viendo esta web: http://www.ascii.cl/es/ y quería preguntar si había alguna forma de hacer lo mismo en Perl; me refiero a poner una URL y codificarla como la web dice.

¿ Alguien me puede ayudar ?

Ayer se anunció la salida de la nueva versión de Rakudo Star, distribución que incluye Rakudo -implementación de Perl 6 basado en la máquina virtual Parrot-, el propio Parrot, y algunos módulos, documentación y otros recursos ofrecidos por la comunidad Perl 6.

Estas son las mejoras de esta nueva versión:

• Se ha mejorado mucho la velocidad de muchas áreas. Para algunas programas, esta versión ofrece un orden de magnitud de mejora en la ...

Hola, buenas noches. Estoy haciendo un programa con Perl pero hay algo que me impide avanzar. Necesito hallar las frecuencias de cada aminoácido con una fórmula pero para ello he de utilizar los codones que codifican dicho aminoácido y no sé cómo seleccionar sólo esos y no todos. Tengo hecho un código pero creo que está mal porque no me da la cifra que quiero. Estaría sumamente agradecido si me ayudan.

my $a;
my ...

Hola, ando queriendo instalar IO-Socket-SSL en mi Windows Seven y no sé cómo instalarlo.

Lo estoy intentando con

http://archive.apache.org/dist/perl/win ... et-SSL.ppd

Pero el error es este:

ppm install failed: Can't find any package that provide Net_SSLeay.pm for IO-Soc
ket-SSL


Y el problema es que el módulo que pide ya lo había instalado de la siguiente forma sin problemas.

ppm install http://archive.apache.org/dist/perl/win ... eay.pm.ppd ...

Estoy buscando alguna forma de hacer una conexión POP3 SSL al puerto 995.

Encontré esto: http://www.example-code.com/perl/pop3_ssl.asp pero necesito otra alternativa.

También intente con el módulo http://search.cpan.org/~gbarr/libnet-1.22/Net/POP3.pm pero no sé cómo hacer la conexión POP3 SSL al puerto 995.

¿ Alguien puede ayudarme ?

Hola. Me gustaría que alguien pudiera ayudarme con un problema que me ha surgido de repente y que antes no me pasaba. Resulta que cuando creo el .exe de mi programa y lo ejecuto, cuando le doy a un botón que me comprueba si las direcciones URL están activas, es decir, si se cargan correctamente, me dice los siguientes errores que antes no me pasaba. Cuando he mirado la documentación del módulo , me dice ...

Hola una vez más. Tengo una duda.

¿Yo puedo meter variables de Perl en código JavaScript? Me explico: quiero colocar en un formulario (hecho con cgi) unos combos (listas) dependientes y por lo que leí solo puedo hacerlo con JavaScript, entonces por eso quiero saber si puedo meter variables de Perl en JavaScript, gracias.

He empezado a realizar mi práctica profesional junto a Perl y llevo unas semanas aprendiendo gracias a este foro.

Mi consulta, que no pude encontrar en temas antiguos, es esta:

Estoy trabajando con Catalyst y HTML::FormFu.

El tema es que le paso valor mediante un array a los select que tengo en el .yml:

...
my @ambientes = ("Produccion", "Beta", "Staging");
my @ambientes_h;
foreach (@ambientes) {
push(@ambientes_h, );
}
...
$select_ambientes->options(\@ambientes_h);
...

Esto funciona ...