Foro - Perl en Español

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

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.

¿Alguien me podría ayudar a saber cómo puedo reemplazar esa "Â" y ese "?" que aparece al final de estas cadenas?
$Nombre = "PARA?";
$Nombre = "PARAÂ";

He tratado con lo siguiente, pero nada
$Nombre =~ tr/áéíóúüñçÁÉÍÓÚÜÑÇ?/aeiouuncAEIOUUNC/;
$Nombre =~ s:\†:†:g;
$Nombre =~ s:\&:&:g;
$Nombre =~ s:\â,,¢:™:g;
$Nombre =~ s:\®:®:g;
$Nombre =~ s:\§:§:g;
$Nombre =~ s:\‡:‡:g;
$Nombre =~ s:\’:':g;

Hola buenas,

Soy novato en Perl y en este foro, por lo que quizás diga algo que no tengo ningún sentido. ¿Se puede pasar una variable de un script Perl a otro script Perl?

Me explico: Tengo que meter unos datos en una base de datos, y estos datos los tengo que leer de diferentes archivos que se encuentran en diferentes rutas, y para poder saber cuál es el fichero que tengo que leer en ...

Buenas tardes. Quisiera guardar un log. Vi por el foro el Log::Log4Perl pero no lo entiendo bien, lo que quiero hacer algo como esto.

my $dbt= DBI->connect('DBI:Pg:dbname=xxx;host=xxx.xxx.xxx.xxx','xxxx','xxxxxx')|| die "ERROR CONEXION : $DBI::errstr";

Pero además, ese error, aparte de aparecer en pantalla en caso de no conectarse, se guarde en un archivo txt, ¿me podrían decir qué función uso? Gracias.