Foro - Perl en Español

La verdad que es una cosa, que me trae bastante desconcertado porque no consigo instalar un módulo en Windows 7 x64. No sé si estaré haciendo algo mal...

Voy a la consola de Windows y escribo CPAN. A continuación install File::Stat y me salta un error "Cannot install File::Stat ..." y nada, que no consigo.

He seguido estas pautas:

Code: Seleccionar todo

http://rm-rf.es/como-instalar-modulos-de-perl-via-cpan/

A ver si alguien sabe por qué no me instala... ¡Un saludo!

Hola, perl en español, un problemita acá.

Tengo un hash de arreglos el cual tiene como llaves fechas de la siguiente manera
2013-08-16 =>
2013-08-17 =>
2013-08-29 =>
2013-08-9 =>
2013-08-5 =>
2013-08-30 =>
2013-08-1 =>
.
.
.
Necesito ordenar las fechas y lo traté así:
foreach(sort(keys (%hashvalores))){
print "$_\n";
}

# y quedó esto

#2013-08-1
#2013-08-10
#2013-08-11
#2013-08-12
#2013-08-13
#2013-08-14
#2013-08-15
#2013-08-16
#2013-08-17
#2013-08-18 ...

Hola a todos,

Tengo un problema con Excel y las fechas. Tengo un xls de la forma:
PRODUCTO COMERCIAL TARIFA FECHA CLIENTE UDS_VENTA
th5589 EMV34 F2 27/12/2011 0:00 11222 1
tj7753 EMV34 F2 29/12/2011 0:00 9845 1
h65ed EMV02 G5 02/01/2012 0:00 66038 1
th5589 EMV56 F1 10/01/2012 0:00 11462 2
tj7753 EMV34 G2 12/01/2012 0:00 40035 1
El tema es que quiero sacar las unidades vendidas en un determinado mes.
#!/usr/bin/perl
use Excel::Writer::XLSX; ...

Hola, perl en español, necesito ayuda con este problemilla.

Tengo una función que genera 3 hashes correctamente, pero a la hora de devolver dichos hashes hacia afuera solo devuelve el último.

sub recoger_valores{
my (%hashuno, %hashdos, %hashtres) = &genera_hashes();

use Data::Dumper::Simple;
warn Dumper(%hashuno, %hashdos, %hashtres);
}

sub genera_hashes{
my (%primerhash, %segundohash, %tercerhash);

{
#procedimientos que asignan valores a los hashes
#de una manera correcta.
}
return (%primerhash, %segundohash, %tercerhash);
}

&recoger_valores;

Cuando invocamos ...

Holaaa :D Soy nuevo en el foro y también en Perl (estoy aprendiendo)... Dada mi condición de noob tengo una duda que espero puedan ayudarme.

Quiero descargar un archivo Excel que es generado por una página web. ¿Cómo podría hacerlo? Estoy usando LWP::UserAgent pero solo me trae un html que dice en estos momentos no podemos atender su consulta, es decir, no realiza la consulta a ...

Me acuerdo que había preguntado esto antes y lo resolví en PHP, pero no lo encuentro, así que tengo que empezar de nuevo. La pregunta es esa: ¿qué expresión regular me conviene para buscar direcciones de correo en una variable?

Tengo este código, pero no funciona:
my $code = "hola mundo [email protected] hola mundo";

if($code=~/(.*?)\@(.*?)/) {
print $1."@".$2;
}

¿ Alguien me puede ayudar ?

P.D.: acá lo encontré ...

Hola, un saludo.

Quisiera eliminar el carácter '+'. Intenté hacerlo con
my $frase = "+Hola";
my $linea = chr(43);

$frase =~ s/$linea//;

pero no funcionó :S

my $dato = 0.2333333333;
my $dato_ = substr($dato,0,4);

# Quiero obtener...

print "0.23";

# Pero me arroja...

print ".23";


¿Alguna otra forma mejor?

Hola, un saludo.

Quiero convertir un dato epoch 1381717807, y quiero convertirlo a tiempo normal. Intenté pasarlo como parámetro a localtime() pero no me dio resultado.
#Línea que extraigo el epoch
#->1264 1381717807 :seconds idle, signon time

#Intenté...
my $data = localtime($1);
print $data;
#Pero no funcionó

Me está dando este error
-> 1381717807 -> Time::tm=ARRAY(0x9625dc4)

Hola, perleros,

Dispongo de un fichero formato CSV con el siguiente contenido:
Tomates,10,12,9,13
Peras,19,20,22,18
Manzanas,15,20,22,17
Quiero añadir la siguiente línea como primera fila:
Frutas,1,2,3,4
Pero este fichero CSV puede tener un número diferente de columnas, es decir, que el formato, de la primera línea tiene que ser, Frutas, 1,2,...,N-1

¿Alguien puede ayudarme?

Gracias, estaré agradecido.