Foro - Perl en Español

Hola, buenos días. Tengo este código en Perl que modifiqué de acuerdo a lo que requiero de uno ya existente, para extraer secuencias usando el ID en un archivo .txt. Sin embargo, el archivo de salida me arroja las secuencias con los ID del archivo.txt y yo lo que quiero es que salga todo el nombre original de cada secuencia.

>Z85.T_1177507 Z85s 9PG0M:00018:00019 orig_bc= new_bc= bc_diffs=0
ACTGAGACACGGTCCAGACTCCTACGGGAGGCAGCAGTGGGGAATGGGTTGTAAAGCACTTTCAGTAGGGAGGAAAACTTGGGAATTAATACCCCCCAA
>X89.T_24577341 X89s 9PG0M:00022:00033 orig_bc= new_bc= bc_diffs=0
CGATTACTAGCGATTCCGACTGAATTGCAGACTCCAATCCGGATTTGCTTCCCCTCGCGGGCTTGCGACCCTCTGTGCCGACCATTGTAGCACGTGAGTA ...

Al poner en mi código open(...) or die("No se pudo abrir el archivo < archivo.txt, $!"); simplemente se cierra si quito el archivo de la carpeta.
Y cuando solo pongo $! en die es lo mismo. También he intentado poner || en lugar de 'or', pero da igual.

No sé si esa sea la estructura correcta. Estoy usando ActivePerl 5.20.

use strict;
use warnings;
use genLetras;

for my $i ( 1 .. 30 ) {
for my $j ( 1 .. 30 ) {
generarLetra();
$matriz = $letra;
}
}

for my $i ( 1 .. 30 ) {
for my $j ( 1 .. 30 ) {
print "[$matriz] ";
}
print "\n";
}

<>;

No me funciona el programa. Al ejecutarlo como perl -c dice que falta instalar ese módulo (genLetras.pm), ...

Tengo problemas con este código:
use warnings;
use Math::Round;

my $seed = time();
my $a = $seed / 5;
my $c = $seed - 7;
my $x = $seed;
my $m = $seed % 12244;
my $numAleatorio;

sub generadorMultiplicativo {
$numAleatorio = ( ( ( $a * $x ) + $c ) % $m );
$x = $numAleatorio;
}

for my $i ( 1 .. 15 ) {
generadorMultiplicativo();
my $residuo = $x / ...

Hola, Perl en Español. Quisiera saber si me pueden orientar en cómo poder automatizar la descarga de lotes de archivos.

http://www.amm.org.gt/pdfs2/post_despac ... _DICIEMBRE
http://www.amm.org.gt/pdfs2/post_despac ... 10_OCTUBRE

la cual contiene archivos correspondientes a cada día (como se ve en la imagen adjunta) y pues cuando se pulsa en el nombre del archivo inmediatamente se presenta la opción de descargarlo.

Lo que pretendo es bajar ...

Hola. ¿Con esta línea bastaría para cargar cualquier página con SSL usando LWP::UserAgent?
use LWP::UserAgent;
use IO::Socket::SSL;
my $nave = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0,SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});

Buenas.

Estoy aprendiendo Perl desde hace poco tiempo, y la verdad, me queda mucho camino. Tengo un ejercicio que estoy atascado y me gustaría si no es mucha molestia que me ayudarais de la mejor manera posible.

Tengo un programa sencillo donde me conecto a una base de datos. Realizo una consulta sencilla y lo que me devuelve lo introduzco en un Excel a modo de tabla.

Ahora tengo que crear una segunda tabla donde ...

Hola, estoy teniendo el siguiente problema. El script a continuación genera un SOAP que no es el correcto para el WS que estoy tratando de consumir, ¿cómo podría crear y enviar el mensaje SOAP que necesita el WS?

Mi script es el siguiente:

#!/usr/bin/perl
use SOAP::Lite +trace => 'all';



sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return 'usuario' => 'password';
}


my $service
= SOAP::Lite
->uri('http://ws.prueba.com/')
->proxy('http://120.92.221.114:8080/prueba/ws/Movimientos?wsdl');


# calling the insert function
my $method = SOAP::Data->name('Consultar')
->attr({xmlns => ...

¿Cómo se pueden quitar que estén vacíos en el siguiente código?:

use selectorFrases;
use separadorFrases;
open( my $ARCHIVO, '<', "frases.txt" )
or die "No se encontro ese archivo";

my $frase = $palabraAleatoria;
my $longitudPalabra = length($frase) - 1;

for my $i ( 1 .. $longitudPalabra ) {

if ( $palabra =~ /\s/ ) {
print "chr(32)";
}

}
for ( split //, $frase ) {
print "";

}

print "\n";

<>;


Lo ...

¿Cómo puedo diferenciar entre letra y números al momento de que el usuario ingrese datos?

Por ejemplo, pido al usuario que ingrese números y por error pone una letra. Sé que en C el scanf() arroja un booleano y con eso es más fácil determinarlo, pero, ¿en Perl también se puede hacer de esa forma?

Si no, ¿cómo se hace?