Foro - Perl en Español

Hola, tengo problemas al pasar parámetros a subrutinas que tengo definidas en otros módulos (paquetes).

Ejemplo 1:
Quiero pasarle como parámetro a la función "parsear_por_nombre" el nombre del archivo, o sea, una cadena de caracteres, no una referencia. ¿Cómo hago?
Esto es lo que tengo hecho:

opendir(DIRHANDLE,"$ruta")||die"ERROR: no se pudo leer el directorio";

foreach (readdir(DIRHANDLE)){
my $nombreArchivo = $_;

if (!($nombreArchivo eq "." || $nombreArchivo eq "..")){
my $datos = $procesador->parsear_por_nombre($nombreArchivo)
}
}
...

Hola a todos. Tengo nuevamente problema de threads.
Primero les dejo una prueba de concepto para tratar de entender mejor.

#!/usr/bin/perl
use threads;
system'clear';
my@SALIDA : shared=(12,12,12,12,12,12,12,12,12,12,15);

$THREAD_NUM_COLUMN = 5;

for(0 .. $THREAD_NUM_COLUMN-1) {
push @threads, threads->create(\&CHECKING);
}
sleep(1);
foreach $THREAD_FOR (@threads){
#print"finalizado ".$THREAD_FOR->tid() , "\n"; ##DEBUG
$OUT_NUMBER= $THREAD_FOR->join();
}

print"RETORNADO: $OUT_NUMBER\n";

sub CHECKING{
my@NUMBER_ARRAY : shared=(0..100);

$TID_COLUMN = threads->tid();
$I = $TID_COLUMN - 1;
while ( $I < @NUMBER_ARRAY ) {
$INT_COLMN = ...

Hola, gente.

Tengo un problema: tengo que recorrer un objeto en javascript de varios niveles; lo estoy haciendo con un for in de la siguiente manera:

for MyVar in estacion {
for MyVar2 in estation {
alert(MyVar2) // en este nivel solo llego a propiedad_dinámica, pero no sé cómo llegar al valor
}
}

El objeto es más o menos así:
var estacion = {
‘elemento_dinamico’: {
‘propiedad_dinamica1′ : ‘valor1′,
‘propiedad_dinamica2′ : ‘valor2′,
‘propiedad_dinamica3′ ...

Hola,

supongamos que tengo un archivo de texto que se llama texto.txt y es así:
bla bla bla oihsa
ljhaf paijf a

CLAVE: hola
ljsg

lasjg
CLAVE: chau
lkj

jo

Quiero recorrerlo y guardar en variables las palabras que están después de CLAVE.
¿Cómo puedo hacer esto?

Voy haciendo esto:
open(FILEHANDLE, "$rutaArchivo") || die "ERROR: no pude abrir el archivo: $!";
my @datos = $procesador->parsear(FILEHANDLE);

# en otro módulo tengo definida la subrutina parsear:
sub ...

Hola a todos, estoy aprendiendo hace muy poco Perl y estoy haciendo un script; básicamente lo que no logro hacer es que al abrir un archivo y detectar unas líneas, las mismas las pase como variables para poder ser ejecutadas con un exec(). Les dejo la parte del código que no funciona:

open(FD,$patch);

my $found = 0;
my $linea;
my $linea2;

foreach(<FD>)
{
if($_ =~ /Los comandos son:/) {
$linea = <FD>;
$linea2 = <FD>; ...

Hola a todos, en este día estuve programando unas cosas y tenía un problema: necesitaba comparar el código fuente a ver si eran iguales y al parecer no comparaba bien el código fuente o hay algún error.

Este es mi código:
use LWP::UserAgent;
use HTTP::Request;

my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");

my $com1 = new HTTP::Request GET =>"http://start.ubuntu.com/9.04/";
my $com2 = new HTTP::Request GET =>"http://www.google.es/"; ...

Otra nueva versión mensual de Parrot, la v1.6.0, "half-pie".

Estos son los cambios:
- Functionality
+ Added a fixed-size structure allocator to the Garbage Collector
+ Added a "lazy" mode to the PObj and Fixed-Size memory allocators
+ Added a profiling runcore, which generates Callgrind-compatible output
+ Added lexical subsystem opcodes: find_dynamic_lex, store_dynamic_lex
+ Converted Contexts to garbage-collectable PMC structures
+ Created a new Context API
+ Enhanced the PMC allocator to automatically allocate ATTR ...

«Hola, acaba de salir reciente la última compilación 21 de Rakudo, la implementación de referencia de Perl6. Siempre me ha gustado el 21, quizás por ser el siglo en el que estamos, quizás porque es el día en que cambian las estaciones del año, quizás porque fue el dorsal con el que Perico Delgado ganó aquel mítico Tour de Francia del 88, quien sabe.

Bromas aparte, creo que ya podemos usar una versión bastante evolucionada ...

«Durante mucho tiempo, el uso de los diferentes módulos que tenemos a nuestra disposición a través del CPAN nos creaba un pequeños handicap: cuando tenemos que distribuir nuestro programa, es necesario asegurar que todas las dependencias están disponibles para poder ser empleadas. Esto, que a priori debería ser algo sencillo, no ha quedado bien resuelto hasta la aparición del Perl Archiver (PAR). En resumidas cuentas, PAR nos permite agrupar todos los módulos, ficheros de configuración, ...

«Al igual que la humanidad vivió su época de revitalización cultural en la etapa del Renacimiento, podemos decir que estamos experimentando algo similar en el mundo Perl.

Durante unos cuantos años, hemos podido observar una lenta pero progresiva pérdida de importancia o notoriedad de nuestro viejo y querido lenguaje. Quizás vivimos un mundo en el cual nos hemos acostumbrado a versiones frecuentes en las herramientas que usamos, y en el momento que no se producen ...