Foro - Perl en Español

Hola a todos, acabo de empezar con esto del perl y estoy perdidísimo :oops:

Estoy trabajando con unas carpetas que contienen una gran cantidad de archivos (guardados en diferentes carpetas y a diferentes niveles) y necesitaría crear algún programa que fuese capaz de acceder a esos archivos, capturar la información que tienen y copiarlo a otro archivo.

Me explico:

/home/usuario/documentos/

Ahí tengo varios directorios: dir1, dir2, dir3... ...

El autor del libro "Modern Perl" ha dejado disponible el borrador de la siguiente edición, para que lo podamos revisar y comentar los problemas que veamos (en inglés), antes de su publicación definitiva.

«Si en el LDIF que se devuelve como resultado de una consulta al LDAP con el comando ldapsearch hay líneas más largas de 76 caracteres, estas lineas son cortadas y los caracteres sobrantes se escriben en la línea siguiente (esta línea comienza por un espacio en blanco):

dn: cn=UN_NOMBRE_LARGO_MUY_LARGO,cn=portal.080827.121025.144000000,cn=groups,d
c=username,dc=local

Para volver a concatenar estas líneas podemos usar el siguiente script escrito en Perl:»

Artículo

Guías de programación de Perl moderno, por Gabor Szabo.

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

«John McCarthy, más conocido por ser el creador del lenguaje de programación Lisp y del término inteligencia artificial, falleció ayer (24/10) en California, a los 84 años. Este veterano pionero de la informática moderna trabajó durante décadas en Stanford, el M.I.T., Darmouth y Princeton, entre otros sitios. Entre los reconocimientos que recibió se incluyen un Premio Turing en 1971 (el equivalente al premio Nobel de informática) y la Medalla Nacional de las Ciencias en 1991. ...

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' ...

Desde hace unas semanas, Gabor Szabo publica (en inglés) en la web http://perlweekly.com/ un resumen de lo mejor y más importante que ocurre en la comunidad Perl: actividades y discusiones en los foros, nuevas webs, nuevos proyectos y propuestas, anuncios, etc.

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 ...