Foro - Perl en Español

Coincidiendo con la salida de Perl v5.16, sale una nueva versión de PDL, compatible con la nueva versión estándar de Perl, además de varios errores corregidos, y mejoras en usabilidad y robustez. Y alguna nueva funcionalidad.

«La distribución PDL ofrece al perl estándar la habilidad de almacenar de forma COMPACTA y manipular de forma RÁPIDA grandes conjuntos de datos N-dimensionales que son el pan y la mantequilla de la computación científica».

PDL
PDL::Basic
PDL::Bench
PDL::Char ...

Nuevo año, nueva versión de Perl...

Perl v5.16

Estos son los cambios más relevantes:

• Control de las características propias de cada versión Perl, con use VERSION
• El token __SUB__, facilita la escritura de clausuras
• Arreglos, cambios y mejoras en eval, substr y tied
• Soporte -casi- completo de Unicode v6.1
• Se mejora la capacidad de mezclar configuraciones regionales con Unicode, incluyendo configuraciones regionales en UTF-8
• Nueva función fc y ...

Hola, perleros. Me hace falta saber cómo subir varios archivos por un solo <input type="file">. Lo he intentado pero no me deja, ya que deja subir uno solo archivo. ¿Esto será posible? :?: :?: :?:

Hola. He estado trabajando en descomprimir en mi sitio web, un archivo zip que cargo. Éste lo guardo en el servidor pero lo que ocurre es lo siguiente: Me da el siguiente error:
The following fatal error has occurred:
Write error! 4

Esto lo hace cuando se llama al método de $zip->writeToFileNamed()

que está debajo de:

my $status = $zip->read($pathdir); # read file contents

if ( $status != AZ_OK ) {
die('Error ...

Los molesto porque tengo una duda y no logro poder resolverla.

Estoy usando el módulo en cuestión para analizar información de nmap. Ahora quería pasarle un directorio donde hay muchos "xml" y que me analice todos. En estos momentos solamente le estoy pasando un archivo "xml" y por eso funciona.

my $np = new Nmap::Parser;
my $infile = $ARGV;
$np->parsefile($infile);


¿Alguien me puede guiar?

Estimados, quería preguntarles cómo puedo acomodar de mejor forma este bucle ya que me parece que no es muy aceptable.

for my $host ($np->all_hosts()){
for my $port ($host->tcp_ports()){
my $service = $host->tcp_service($port);
print $host->hostname."|".$host->ipv4_addr()."|".$port."|".$host->tcp_port_state($port)."|".$service->name."|".$service->product."|".$service->version."\n";
}
for my $port ($host->udp_ports()){
my $service = $host->udp_service($port);
print $host->hostname."|".$host->ipv4_addr()."|".$port."|".$host->udp_port_state($port)."|".$service->name."|".$service->product."|"
}
}


Como ven tengo 2 "for" dependiendo el protocolo.

Saludos.

¿Podría ayudarme alguien con un programa?

Tengo un array con una serie de elementos. Utilizo un foreach() para comprobar si cada uno de los elementos cumple una condición.

Mi problema es que si cumple la condición quiero que me borre dicho elemento del array, pero no sé cómo hacerlo...

«Como administrador del servicio proxy Squid, estoy encantado con su funcionamiento. Sin embargo, la gestión de fechas y horas en los ficheros logs suele ser un poco molesto. Sé que se puede cambiar a nivel de configuración pero, a veces, no es posible si queremos guardar la compatibilidad con otras aplicaciones. Para ellos, hay un pequeño truco en Perl para convertir de timestamp a un formato legible por un ser humano: »

Artículo

Hola de nuevo, a lo mejor lo que pregunto es una tonteria, pero me gustaria que todo mi sito web, estuviese gestionado por archivos en Perl.

La pregunta es cómo llamo al primer archivo, ya que como por defecto en las web es el index.html, cómo hago para que esa primera página llame al index.pl nada más empezar. Gracias.

¿Qué tal?

Quería saber si hay alguna forma de realizar un script para administrar los puertos de mi PC. He instalado iptables pero lo quiero hacer desde un CGI Perl.