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.

¿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;

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.

Hola, buenas noches:

Necesito saber cómo puedo seleccionar información que empieza con dos signos de mayor y además que empiece con inst. ¿Cómo le puedo hacer en Perl?

Hola. He visto el tutorial de la página pero hay algo que no me queda claro:

open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Asunto del mensaje\n\n";
print MAIL "Cuerpo del mensaje\n";
close(MAIL);

¿@e.mail es una variable donde pongo la dirección?

Perdonar, pero soy algo novato con esto. Gracias.