Foro - Perl en Español

Hola a todos. Les escribo porque tengo problemas con un código, así que solicito amablemente su ayuda.

En primera no sé para qué sirve la instrucción parseFile y creo que es la que genera el error. De este código, sólo les mando la subrutina.

readResponse
{
my($sac) = @_;

my($station,$network,$component,$channel) = $sac->Fetch(qw(kstnm knetwk kcmpnm khole));
my $respName = "";
my $resp = Seed::Response->new();
$resp->parseFile($respName);

return $resp;
}


La terminal me dice que no puede ...

Hola,

Estoy escribiendo un programa que lea varios archivos (mismo formato) recuperar solo cierta información y luego la imprima en un nuevo archivo.

Los primero datos del formato deben repetirse varias veces ya que solo las dos últimas columnas cambian de valor todo el tiempo.

El formato final sería algo así:
Name voltaje time hold setup delay slope
XXXX yyyy hhh nn lll ppp rrrr

Sin embargo, Perl dice que no puede imprimir en el ...

Hola, buenos días:

Este es mi primer post, llevo una semana con Perl y ando un poco perdidillo, a ver si podéis ayudarme con este script que estoy haciendo.

En él tengo que recorrer las tablas tpersonas y tproyectos y que me busque los nombres que sean iguales en dichas tablas, y que los id me los guarde en otra llamada tproyper.

El problema que tengo es el siguiente: el bucle me saca siempre la ...

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