Foro - Perl en Español

Tengo el siguiente código.

#!usr/bin/perl
use Cwd;

sub cargar_archivo {
if($^O =~/Win/) {
system("start $_");
} else {
system("firefox $_");
}
}

cargar_archivo(getcwd()."/logs_html/logs.html");

El problema es que no me carga el archivo html. ¿Qué estoy haciendo mal?

Hola. Estoy tratando de evitar el famoso <script>alert('hola mundo');</script> en un archivo. Esto lo soluciono con htmlentities en PHP pero quería preguntar cómo lo evito en un archivo html generado con Perl. Había pensado que antes de generar en archivo html cerrar las etiquetas <> con otra cosa para evitar esto pero ¿ qué otra soluciones tengo ?

P.D.: esto es en un archivo local, no para una página web.

Un simple script en Perl que hice con la ayuda de explorer para realizar búsquedas en Shodan usando el API que hicieron para Perl.

El código.

#!usr/bin/perl
# Shodan Tool 0.2
# (C) Doddy Hackman 2013

# Install the dependencies
# sudo perl -MCPAN -e 'install CGI::Enurl'
# sudo perl -MCPAN -e 'install JSON::XS'
# sudo perl -MCPAN -e 'install HTTP::Request::Common'
# Install Shodan
# curl -OL http://github.com/downloads/achillean/s ... 0.3.tar.gz ...

Hoy se cumple el vigésimo sexto cumpleaños de Perl.

¿Existe algo más rápido que el grep para verificar si un dato de un array está repetido ?

Tengo esto:

my $c = grep { $_->{$key} == $data->{$key} } @$pagosCSVData;

Es un array de hash, de unos 30 000 registros, y quiero eliminar los repetidos según una llave :P Pero el proceso para los 30 000 registros me toma mucho, ¿ Cuánto me debería tomar, hay ...

Hola, tengo esta función para leer archivos en una variable string final pero quería preguntaros por qué no anda bien o cómo podía hacerlo más fácil.

print savewords("test.txt");

sub savewords {
my @words;
my $r;
open( FILE, $_ );

@words = <FILE>;
close FILE;

for (@words) {
$r .= $r + $_;
}

return ($r);
}


¿ Alguien me puede ayudar ?

Hola.

Tengo un array de botones creados con el módulo Win32::GUI. El problema es que quiero que todos los botones, al hacer clic, vayan al mismo evento, porque si no es una locura para manejarlos todos. Los creo de la siguiente manera:
$casillas = $ventana->AddButton( # creamos botón
-name => "Boton$i",
-text => "$i",
-pos => ,
-size => ,
);

DATO: La variable $i contiene un ...

Estimados, tengo la siguiente duda y es que desde un Excel estoy leyendo un campo fecha que está de la siguiente manera "April 05/2013" el tema es que cómo puedo transformar esa fecha a "yyyy-mm-dd" para poder insertarla en la BD.

Gracias por su ayuda.

Hola,

me han pasado un archivo .txt que vendría a ser un seudoarchivo XML: está perfectamente estructurado con todos sus elementos, jerarquías y valores, pero no deja de ser un txt que no puedo usar como XML. Es por ello que estoy intentando leer el documento con un intérprete como el de XML::DOM para luego imprimirlo de nuevo pero en un xml con todas las de la ley.

La verdad es que estoy bastante perdido: ...

Hola. Estoy mejorando una función que hice para usar print con colores usando un módulo llamado Color::Output. Ahora le agregué otra función llamada texto_raro() que es como un efecto de texto corrido. El tema es que combinando los dos da errores con caracteres raros al contrario que cuando los uso por separado.

El código es este:
use Color::Output;
Color::Output::Init;
use Time::HiRes "usleep";

sub texto_raro {
my @letras = split //, $_;
for(@letras) {
usleep(40_000); ...