Foro - Perl en Español

Hola a todos,
He aquí mi código Perl:

foreach my $key (keys %Summary ) {
print "Valor key leído de Summary: $key\n";
foreach my $readedreport (@reports)
{
print "Valor leído del array reports: $readedreport\n";
if ($key =~ /^$readedreport/) {

$reportName = $readedreport;
print "valor obtenido como reportName: $reportName"."\n";
}
}
$newSummary{ $reportName }{ $key } = $Summary{ $key };
}
- en @reports, tengo una lista de strings
- los $key leídos del hash ...

Disculpen, me gustaría saber cómo utilizar las variables de sesión o donde podría conseguir información de este tema. Gracias.

Y alla vuelvo a atacar.

#This array contains now all the reports names
@reports = ( @$xmlAggregations, @$xmlProjections, @$flatAggregations, @$flatProjections );

#a new hash "%newSummary" is created from "%Summary", but classifying its content per report
foreach my $key (keys @Summary ) {
###obtener $reportName a partir de $key y de @reports
$newSummary{ $reportName }{ $key } = $Summary{ $key };
}

En @reports, tengo todos los nombres posibles de reports.
En el foreach, sé ...

Hola de nuevo,


Ya se que soy un poco pesado y que no paro de hacer preguntas. Pero de las dudas vive un foro, y cuantas más dudas haya, y más respuestas a dichas dudas, más útil se vuelve, así que alla voy.

Tengo 4 arrays por separado:

$xmlAggregations
$xmlProjections
$flatAggregations
$flatProjections

quería guardar en un array llamado @reports, el contenido de todos los arrays anteriores. Para ello hice lo siguiente:

foreach $value (@{$xmlAggregations}) ...

Pues estoy intentando lanzar un script en Perl de mi trabajo (allá trabajamos con estaciones SUN) en mi casa. Tengo Linux Knoppix Live CD y tengo un problema con una variable de entorno, que aqui no existe.
¿Cómo puedo anadir una nueva variable?
En este caso, la variable se llama $ENV_ROOT y su valor debe ser puesto a /home/knoppix

Gracias por adelantado por estar dando la tabarra.

Felipe

Hace un tiempo aqui me recomendaron una web para solucionar un problema que tenía:

http://www.linuxjournal.com/articles/lj ... 237l7.html

Con ese ejemplo pude hacerlo, pero ahora tengo otro problema. A la hora de salir del script, hago un ps -aux y me doy cuenta de que el proceso ha creado varios procesos más y que siguen ahí. Además, a veces a la hora de salir intento dar un comando y el ...

Hola a todos

Aunque trabajo con Perl en sistemas Unix de Sun, me gustaría instalarme en casa un IDE (el que considereis el mejor) para la edición, ejecución y debug de código en Perl pero para Windows.
He oído hablar muy bien de Open Perl IDE, o también de Optiperl aunque creo que este último está más enfocado de cara a la programación de CGIs.
¿Alguien puede recomendarme el MEJOR IDE para Perl, para Windows ...

Hola a todos,

Tengo un módulo Perl que es ejecutado por muchos threads (creo que 4) en paralelo.
El caso es que tengo un contador:
my $flatValidLines = 0; # Number of valid lines
que es incrementado en una determinada función:
sub printFlatDecodedLine {
...
$flatValidLines++;
}

y otra función, llamada al final que imprime el valor de dicho contador:
sub printFlatReport {
...
my $nblines = $self->getFlatValidLines();
if ($self->reopenReport($fileName) != 0 ) { return ...

tengo un array: $xmlAggregations
¿Cómo hago para recorrerlo y recuperar uno por uno sus elementos?

¡¡Disculpen lo tonto de la pregunta, pero es que el aprendizaje de Perl me esta volviendo loco!!
Gracias,
Felipe

En el siguiente código:

sub loadStatsValues {

our %Summary;

# Read the dump file
my $status = do "$workingDirectory/$commonValuesFile";
if ($status) {

# Read global variables
$startDate = $Summary{startDate};
$endDate = $Summary{endDate};

$readLines = $Summary{readLines};
$firstReadDate = $Summary{firstRead};
$lastReadDate = $Summary{lastRead};

$currentFileName = $Summary{currentFileName};

# Delegates the aggregation reload to any submodule.
&Aggregation::reloadAggregationsFromDumper(\%Summary);
&Projection::reloadProjectionsInfoFromDumper(\%Summary);
} else {
&Logger::logInfo("Can't eval $workingDirectory/$commonValuesFile.\n");
}
return $status;
}

aparentemente lo que hace es cargar el contenido del fichero $commonValuesFile ...