Foro - Perl en Español

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

Hola nuevamente, amigos del foro. Les cuento: tengo el siguiente código:
#!/usr/bin/perl
use strict;
use warnings;
use Tie::InsertOrderHash;

tie my %Meses, => 'Tie::InsertOrderHash',
'Enero' => 'January',
'Febrero' => 'February',
'Marzo' => 'March',
'Abril' => 'April',
'Mayo' => 'May',
'Junio' => 'June',
'Julio' => 'July',
'Agosto' => 'August',
'Septiembre'=> 'September',
'Octubre' => 'October',
'Noviembre' => 'November',
'Diciembre' => 'December',
;

for my $mes (keys %Meses ) {
print "$mes\n";
}

Lo que hace es imprimir ...

Hola, compañeros.

Con el siguiente código interpreto la información de una web utilizando HTML::TableExtract. Se leen dos tablas. Por pantalla sale lo que he pegado después del código, y necesitaría guardar la información en un fichero csv en el formato que indico en la parte inferior de esta consulta. Muchas gracias por adelantado.

#!/usr/local/bin/perl
use strict;
use warnings;
use utf8::all;
use v5.10;
use LWP::Simple;
use HTML::TableExtract;
use String::Util qw< trim >;
use Text::CSV;

my ...