Foro - Perl en Español

Hola, mi duda es si se puede escribir $line=~"$variable", o si hay alguna otra estructura para reconocer una variable en un texto.

El problema surge con este código, ya que en el archivo hay un título para cada estado y la variable $estado va cambiando.

open( $INFO, "$INFO" ) || die "cannot open file $INFO: $!";
open( OUT, ">OUT.$INFO" ) || die "cannot produce file $INFO: $!";

while ( $line = <$INFO> ) { ...

Buenas tardes, tengo una duda. Tengo datos que tienen acentos y al subirlos a la base de datos me sale este error.

DBD::Pg::st execute failed: ERROR: invalid byte sequence for encoding "UTF8": 0xf36e2072 at /home/rocco/proyecto/retorno2.pl line 169, <$FH> line 1.

DBD::Pg::st execute failed: ERROR: invalid byte sequence for encoding "UTF8": 0xf36e2072 at /home/rocco/proyecto/retorno2.pl line 169, <$FH> line 2.

¿Qué módulo puedo usar para que me lea los acentos?

Muchas gracias...

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