Foro - Perl en Español

Saludos, estoy tratando de crear una archivo XML con el módulo XML::Simple que tenga más o menos la siguiente estructura:
<ajaxresponse>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>1</numero>
</item>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>2</numero>
</item>
<item>
<apellido>xxx</apellido>
<nombre>zzz</nombre>
<numero>3</numero>
</item>
</ajaxresponse>


Esto lo puedo obtener haciendo esto:

my $lista = {
'item' => [
{
'numero' => '1',
'nombre' => 'zzz',
'apellido' => 'xxx'
},
{
'numero' => '2',
'nombre' => 'zzz',
'apellido' => 'xxx'
},
{
'numero' ...

Hola

Estoy configurando un server para monitorear mi red con MRTG; ya tengo ciertas estadísticas construidas tales como: uso de cpu, procesos, tráfico de clientes en la red, router... y mi pregunta es cómo podría obtener información del switch... debido a que todos con los que he ido trabajando tiene IP's... también agradecería su apoyo en estadísticas de NIC, agradezco su apoyo de antemano.

Hola nuevamente,

Les comenté que instalé el ActivePerl sobre Windows 2000 Server y ahora los archivos de extensión .pl se ejecutan sin problemas, pero los archivos .cgi no; me sale el siguiente error:

Hay un problema con la página solicitada y no puede ser mostrada..

HTTP 500 - Error interno del servidor
Internet Explorer

Supongo que el IIS no reconoce esa extensión.

¿Cuál es la solución a esto?

Leí el tutorial de Cookies y Perl, pero lo que no me queda muy claro es:
Si yo tengo un formulario en html, y quiero que cuando cierre su sesión el usuario y abra nuevamente su sesión el formulario le aparezca nuevamente como ella lo dejo. Esto se tendría que realizar con Cookies, para guardar la info del formulario, ¿no?

Desde ya muchas gracias.
Maxy

¿Podríais decirme cómo inicializar un hash?

¿Basta con esto?

@hash = {};

¡¡¡Gracias!!!
Felipe

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

Hola,

Tengo una duda que concierne más al sistema operativo UNIX que a Perl pero creo que a todos los novatos como yo nos puede ser útil saber.
Con la tecla TAB, el sistema completa el comando (en caso de ser único), o propone todas las posibilidades existentes.
En determinadas ocasiones, me encuentro en un directorio conteniendo ciertos script Perl, pero estoy obligado a invocarlos con:
perl nombre_Script.pl
y además, escribiendo el inicio de sus ...