Foro - Perl en Español

Salarios medios
Perl $139,214
C++ $133,954
C $133,691
Java $131,962
C# $129,692
JavaScript $126,988
PL/Sql $126,177
SQL $126,532
PHP $124,475
Artículo (en inglés)

Hola a todos.

Tengo algunas dudas sobre cómo ejecutar tareas en paralelo con Perl. Comúnmente realizo lo anterior empleando las herramientas que proporciona el módulo Parallel::ForkManager. Sin embargo, he observado que cuando se crean los procesos hijos hay un consumo excesivo de memoria.

He aquí un ejemplo de la parte de un programa que utilizo para ejecutar subprocesos:
my $fork= new Parallel::ForkManager($ncpus);
foreach (0..$#proc) {
$fork->start and next;
my ($index1, $index2) = split ...

Hola, requiero crear una interfaz vía web entre Linux, PHP y LOTUS NOTES para mostrar un documento creado en Lotus. ¿Es posible esto?

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

Larry Wall dará la conferencia maestra inaugural en el FSL 2016, en Vallarta, México.

Se celebrará del 28 al 30 de octubre.

Cuenta de Twitter . Web . Programa

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});