Foro - Perl en Español

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

Hola. Tengo el siguiente código.

@paginas = repes( cortar( savewords("paginas.txt") ) );

print "uno : ".@paginas;

@paginas = repes( cortar( savewords("paginas.txt") ) );

print "dos : ".@paginas;

sub savewords {
my @words;
my @r;
open( FILE, $_ );
@words = <FILE>;
close FILE;
for (@words) {
push( @r, $_ );
}
return (@r);
}

sub repes {
my @limpio;
foreach $test (@_) {
push @limpio, $test unless $repe{$test}++;
}
return @limpio;
}

sub cortar ...

Hola, estoy en Ubuntu tratando de instalar el módulo DBD::mysql de la siguiente forma:
sudo cpan DBD::mysql
Y me devuelve
CPAN: Storable loaded ok (v2.20)
Going to read '/home/doddy/.cpan/Metadata'
Database was generated on Thu, 12 Dec 2013 20:53:02 GMT
Running install for module 'DBD::mysql'
CPAN: YAML loaded ok (v0.84)
Running make for C/CA/CAPTTOFU/DBD-mysql-4.025.tar.gz
CPAN: Digest::SHA loaded ok (v5.47)
CPAN: Compress::Zlib loaded ok (v2.063)
Checksum for /home/doddy/.cpan/sources/authors/id/C/CA/CAPTTOFU/DBD-mysql-4.025.tar.gz ok
CPAN: Archive::Tar loaded ok (v1.52)
DBD-mysql-4.025/
DBD-mysql-4.025/META.yml ...