Foro - Perl en Español

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

Hola a todos,

A ver si alguien me ayuda pues tengo ya la cabeza como un chorizo de cantimpalos:

Tengo un hash determinado con información en su interior organizada tal y como sigue:

%Summary =
( 'AAAAcontador1' => 333,
'BBBBcontador3' => 344,
'AAAAHash' => { #otro hash con mas hashes en su interior
}
'CCCCcontador5' => 566,
'AAAAcontador3' =>32,
'BBBBHash' => ....
)

Osea, tenemos para AAAA (que es un identificador), una serie de contadores, ...

Hola a todos,

Dado un string (por ejemplo "ELPREPOFFxmlValidLines") necesito recuperar únicamente las primeras letras mayúsculas de dicho string, ignorando el resto una vez encontrada la primera minúscula.
En el ejemplo anterior, necesitaría recuperar únicamente "ELPREPOFF" y guardarlo en una variable.
¿Existe algún método sencillo usando expresiones regulares?
¡¡¡Gracias por adelantado!!!

Buen día... otro problema de novato....

En mi programa necesito que el usuario ingrese 6 caracteres para crear un directorio. Más adelante en el programa se genera un fichero y lo coloca en esa carpeta creada.

Esto es lo que tengo
print " \f \a Especifique Cliente ( 6 Caracteres ) : \ t"
$cliente=<STDIN>;chop($cliente);
mkdir("$cliente",0755) || die "No se puede crear :$!";
#***En esta linea se genera el fichero y se guarda en X ...

Hola a todos.

¿Existe algún método para averiguar si mi variable $var en realidad contiene un hash en su interior?
Algo como:

Code: Seleccionar todo

if hash($var)....

Muchas gracias
Felipe

¡¡Hola a todos!! He intentado conectarme mediante SSH a otro servidor por FTP pero no he podido. He copiado el ejemplo de CPAN, instalé el modulo pero nada.

#

!/usr/bin/perl

use Net::SSH::Perl;

$host= "laipdelserver";
$user="miusuario";
$pass="xxxxxx";
$cmd="ls -l";

my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);


El error que recibo ese el siguiente

Can't locate Math/Pari.pm in @INC (@INC contains: /usr/lib/perl5/5.8.7/i686-linux /usr/lib/perl5/5.8.7 /usr/lib/perl5/site_perl/5.8.7/i686-linux /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl ...

Hola a tod@s.
Esta es mi primera participación en el foro y quería preguntaros si alguien tiene ejemplos de código perl o alguna documentación para escribir scripts en este lenguaje a través del SecureCRT.

Muchas gracias.

@nodos = (
{ id => 17, size => 300, keys => 2, cmp => 'keys' },
{ id => 14, size => 104, keys => 9, cmp => 'size' },
{ id => 31, size => 2045, keys => 43, cmp => 'keys' },
{ id => 28, size => 6, keys => 0, cmp => 'id' },
);

La idea es ordenar las tres listas según el valor de 'cmp' en cada una ...

¿Alguien me puede explicar cómo mostrar la fecha, estoy utilizando Perl/Tk?

:( Gracias..........

Buenas, mi consulta es la siguiente:
en un txt un texto con el siguiente formato:

Code: Seleccionar todo

-------
system Information for \\nombredepc1
Processor: 500 mhz
ram: 512mb
sistema Operativo: Windows XP Professional .
-------
system Information for \\nombredepc2
Processor: 1ghz
ram: 512mb
sistema Operativo: Windows 2000 Professional .
-------

y así sigue....
Yo necesito tomar cada bloque delimitado entre las líneas separadoras formadas por guiones "---------" (estás lineas puedo reemplazarlas por otro caracter si fuera necesario) y encolumnar ...