Foro - Perl en Español

Si necesitas saber cómo funciona un módulo, o ver ejemplos de uso, solicítalo a continuación, respondiendo a este mensaje.

Si puedes decirme el mejor tutorial de Moose, fuera de los de CPAN, te lo agradecería.

Object::InsideOut

Este módulo de Jerry D. Hedden me parece la construcción más perfecta que se ha hecho para implementar la OOP en Perl. Desgraciadamente, está siendo eclipsada por otras implementaciones excepcionales como Moose.

Sin embargo, en mis preferencias personales continúo usando este módulo.

Quisiera saber vuestra opinión.

Object::InsideOut

Hola, quisiera saber de alguna página con ejemplos sobre las siguientes funciones del DBI:

selectrow_array
selectrow_arrayref
selectrow_hashref
selectall_arrayref
selectall_hashref
selectcol_arrayref

Ya vi la documentación en http://dbi.perl.org/, pero con respecto a esas funciones me parece algo incompleta. Gugleé un buen rato pero no he logrado conseguir nada.

Gracias de antemano.

Buenas,

Estoy haciendo una migración de un aplicación de un servidor a otro, y estoy teniendo un problema con un script en Perl.

Os muestro el código (aunque creo que no es relevante):

#!/usr/bin/perl

use IO::Socket::INET;
use CGI qw (-oldstyle_urls :standard);

my $query = new CGI;
my @names = $query->param;
print header('text/html');
$url_query = query_string;
my $rhost = $query->remote_addr();


$http = IO::Socket::INET->new(
PeerAddr => "localhost:80",
Proto => "tcp"
);

my $url = "/CGI/InterCGI.jsp" . ...

Hola,
¿Podrían orientarme? Necesito sustituir la letra U por T con Perl, en mi archivo, ignorando la línea que contiene el mayor que, puesto que representa el nombre de mi secuencia. Gracias.

>A97104.7.1522UU :Streptococcaceae;Streptococcus
AGAGUUCGAU CCUGGCUCAG GACGAACGCU GGCGGCGUGC CUAAUACAUG CAAGUAGAAC GCUGAAGACU UUAGCUUGCU
AGAGUUGGAA GAGUUGCGAA CGGGUGAGUA ACGCGUAGGU AACCUGCCUA UUAGUGGGGG AUAACUAUUG GAAACGAUAG

Hola que tal, tengo una duda con las funciones exec() y system().

Resulta que yo quiero llamar a una aplicación desde Perl con el system(), y cuando lo hago me abre la aplicación pero me deja una ventana del cmd abierta, que no se cierra hasta que no salgo del programa (en este caso el Notepad++).

El código es este:
system('C:\Program Files\Notepad++\Notepad++.exe');

Probé con el exec() y es peor porque directamente no abre la aplicación. ...

«Por razones laborales tenía la necesidad de tomar un mapa de España y colorear las regiones según ciertos parámetros. Hay multitud de herramientas para hacer eso pero no con las propiedades que necesitaba, así que me vi en la necesidad de hacer algo concreto.»

Artículo

Ya es oficial: a partir de las 12:00 GTM del día 29 de julio de 2010, ya está disponible para su descarga en Github: http://github.com/rakudo/star/downloads

Ahora... a aprender Perl 6 :)

Sí, ya sabemos que podíamos hacerlo desde hace muchos meses, pero es que ahora... se acabaron las excusas.

Hola:

El problema que tengo es que no sé por qué razón el programa no entra al while() que lee un archivo de texto.

Mi código es el siguiente:
my @titulo;
for(my $t=0; $t<$close;$t++){
my $destructinador=$outputs_R;
next if ! -f $destructinador;
my $armainador=$nombres_R;
open(DERECHO, "$destructinador")|| die "Error al abrir DERECHO $destructinador: $!\n \n";
open(IZQUIERDO, "$opts{o}/$armainador")|| die "Error al abrir IZQUIERDO $armainador: $!\n \n";
open(COMPLETO, ">$opts{o}/$armainador")|| die "Error al abrir COMPLETO $armainador: $!\n \n";
my ...

Tengo un programa con operaciones "Operaciones.pl", que instancia nuevos objetos o clases Operaciones::Division, Operaciones::Suma, etc... si el resultado de la operación se llevó con éxito se retorna el resultado de tal operación. Ejemplo: 6/3 = 2 (se retorna el 2), pero para el caso de que la operación haya fallado: 6/0 = No existe, se retorna un objeto que indica qué tipo de error es, de la forma Operaciones::Error(...).

Para el caso del retorno del ...