Foro - Perl en Español

Hola,
Estoy tratando de acceder a un directorio y de leer los archivos que están en él.

Perl accede sin problema al directorio pero no puede abrir los archivos.

Los comandos que uso son:
chdir($dir);
open(PAGE,$diry.$dirx);
@arrayentrada=<PAGE>;
print @arrayentrada;

¿Podrían decirme cuál es el error en los comandos que estoy usando?

Gracias de antemano.

STM

Estimados,
Los molesto porque quiero tratar de obtener los métodos soportados por un servidor web, pero no sé cómo hacerlo con Perl.

Desde una línea de comandos hago:
telnet perlenespanol.com 80
Trying 67.222.152.26...
Connected to perlenespanol.com.
Escape character is '^]'.
OPTIONS / HTTP/1.1
Host: perlenespanol.com

Obtengo:
HTTP/1.1 200 OK
Date: Mon, 02 Aug 2010 02:45:58 GMT
Server: Apache/2.0.63 (Unix) mod_ssl/2.0.63 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4 FrontPage/5.0.2.2635
Allow: GET,HEAD,POST,OPTIONS,TRACE
Content-Length: 0
Content-Type: text/html

Como verán me muestra los ...

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.