Using perl Syntax Highlighting
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;
}
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;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
aparentemente lo que hace es cargar el contenido del fichero $commonValuesFile en el hash %Summary. Alguien puede explicarme cómo funciona dicha instrucción, pues encuentro esta manera de leer un fichero un poco rara...
¡Gracias por adelantado!
Felipe
