Foro - Perl en Español

Aquí hay una introducción (vídeo, en inglés) sobre SDL Perl, por Douglas E. Miles.

Ejemplo de cómo generar todas las posibles combinaciones de secuencias sinónimas para la proteína MALVSREGPT más un codón de paro que es '>'.

#!/usr/bin/perl
use common::sense; # Hay que tener sentido común

#use Modern::Perl; # Somos modernos
#use utf8;

use open qw(:utf8 :std); # Terminal en modo utf8
use autodie; # Es mejor morir que regresar con deshonor (proverbio Klingon)

my %código_genético = (
'AAA' => 'K',
'AAC' => 'N',
'AAG' => 'K',
'AAT' ...

Hola,

Tengo un script Perl que funciona correctamente en Linux y Windows. Este script hace un control de caracteres de un documento.

Pues en Solaris, pensé, ira igual de bien, pero, sorpresa para mi, no funciona igual de bien. Lo problemática es que el fichero solución lo crea en Latin1 cuando en los otros sistemas lo hace en utf8 (mismo código). ¿Qué puede ser? ¿Alguna idea?

Mil gracias.

Me sale este error

Can't call method "process" without a package or object reference at libs/CGI/Application/Plugin/TT.pm line 314.

Estoy usando cgi-app y el plugin de TT pero no sé por qué me sale ese error... y me lo indica en el propio módulo del plugin.

Solo tengo esto en un método:

sub myrunmode {
my $self = shift;

my %params = (
email => '[email protected]',
menu => [
{ title => 'Home', href ...

Hola, buenos días, estoy incursionando un poco en el mundo del desarrollo orientado a objetos con Perl, y he sido referenciado por varias vías a utilizar el módulo DBIx::Class para interactuar con mi DB. He comenzado a leer la documentación, pero siempre me ejemplifican con SQlite. Quisiera saber cuál es el protocolo para hacer funcionar mi DBIx::Class con PostgreSQL, debido a que es el gestor que normalmente utilizo. Si alguien tiene algún ejemplo, lo agradecería. ...

Hola, ando queriendo hacer un sustituto de netcat en Perl para la opción de mantener un puerto abierto para recibir datos. La idea sería que sea como el comando -lvvp de netcat.

El código del server que vendría a ser el sustituto de netcat sería el código siguiente:
#!/usr/bin/perl -w
# serverIO.pl - a simple server using
# IO::Socket
use strict;
use IO::Socket;
my $sock = new IO::Socket::INET(
LocalHost => 'localhost',
LocalPort => 7890, ...

¡Buenas!

Estoy teniendo problemas a la hora de usar un switch: dado un dato, debo realizar una u otra acción. El problema es que el dato a veces es 0, y cuando es cero, entra en when 0, pero me he encontrado que, ante una entrada defectuosa de un usuario o por cualquier otro motivo, si $var vale abc, entra en when 0, y luego en default.

¿Por qué está pasando esto?

chomp(my $var=<STDIN>); ...

«Perl es un lenguaje de programación que se utiliza extensivamente en administración de sistemas informáticos. Popularmente se le conoce como “The duct tape that holds Internet together”, por la ingente cantidad de código que han desarrollado y desarrollan administradores de sistemas para solucionar problemas de su día a día. El repositorio CPAN cuenta con paquetes que hacen prácticamente de todo; lo que supone que un programador con conocimientos básicos de Perl empleando CPAN puede solucionar ...

Curso de iniciación a Perl (en catalán), organizado por el grupo de monjes Perl de Barcelona, el 5 de noviembre, de 9h a 19h.

Anuncio

¿Qué tal a todos? Saludos. He leído su página. Felicidades.

Quiero hacer un programa muy sencillo. Lo que me gustaría saber es si con Perl puedo desarrollarlo ya que yo desarrollo en otros lenguajes.

Solo quiero hacer un sistema que consulte una base de datos MySQL y después de eso y de tomar alguna decisión mediante una sencilla condición, enviar uno o varios correos.

Yo tengo contratado un hosting en servidores Linux con PHP, CGI, ...