Foro - Perl en Español

Hola, gente. Tengo problemas con CPAN. Estoy buscando unos módulos que me permitan realizar una operación por ejemplo cada 30 minutos y otro que me genere números aleatorios.

Saludos.

¿Existe algún script de Perl por ahí para hacerle un datadump a todas las bases de datos MySQL que tenga el servidor y que estos me queden en un directorio ? Ojalá no fuera un módulo si no un script puro Perl.

Hola, gente, ¿cómo están? Espero que bien. Soy nuevo en el foro y me gustaría saber si alguien tiene algún libro bueno de Perl en español. Lo que he encontrado son tutoriales muy superficiales. Se los agradecería mucho. Nos vemos.

Saludos.

Supongamos que tenemos una serie de números como los siguientes:

86.4539
0.0023412
.23442
12.000

¿Existe alguna forma de imprimirlos con un formato de notación científica específica? Por ejemplo:

0.86453900E+02
0.23412000E-02
0.23442000E+00
0.12000000E+02

Ya que si utilizo la función printf ("%.8E" , $var), los números se imprimen como sigue:

8.6453900E+01
2.3412000E-03
2.3442000E-01
1.2000000E+01

Un saludo. Según he leído, se puede importar a Perl código nativo de C como un módulo llevando extensión '.xs' pero aún no me aclaro mucho.

¿Alguna documentación acerca de este tema?

use DBI;
# See "Creating database handle" below
$dbh = DBI->connect ("dbi:CSV:", undef, undef, {
f_ext => ".csv/r",
RaiseError => 1,
}) or die "Cannot connect: $DBI::errstr";

print "Inicio: \n";
# Selecting
my $sth = $dbh->prepare ("select * from fil");
$sth->execute;
$sth->bind_columns (\my ($fname, $lname, $email, $pageid, $studentid, $a, $b));
my $i =0;
while ($sth->fetch) {

print '$userarray = '.$studentid.';'."\n"; # Aqui es mi duda.. cuando $stundeid cambia su valor ?
print '$userarray ...

Hola, un saludo.

Tengo el siguiente problema: No puedo retornar los valores de un hash contenido en una subrutina llamada desde un módulo, un trozo del código:

package query;
sub new {} #
sub struct_user
{
# Almacena datos de los usuarios actualmente conectados.
#my $q = new;
#my $class = shift;
#my($id,$nick,$ip,$modos,$realname,$identd,$timestamp) = @_;
my $struct = {
users => {
$nick => {
id => $id,
nickname => $nick,
ip => ...

Hola, buenos días.

Quiero hacer un pequeño script que me permita leer una primera columna de palabras y que compare cada palabra de la primera columna con las palabras de la segunda columna. Solo si las palabras son iguales quiero que el programa me imprima las columnas ordenadas.

Ejemplo: (file1.txt)
a b
b c
c a
j z

Ejemplo (resultado final)
a a
b b
c c

Con mi programa no consigo el resultado esperado ...

Hola,

necesito eliminar carpetas que tengan una antigüedad de más de 12 horas.

El siguiente código está incompleto porque necesito la fecha de creación de cada carpeta y no lo consigo. ¿Me pueden echar un cable?

De momento el código queda de esta manera:
#!/usr/bin/perl -w

use v5.10.0;
use File::Copy;
use POSIX 'strftime';
use File::Temp;
use File::stat;



my $dir = '/home/sim/data/';
opendir(DIR,"$dir");
@files = readdir(DIR);
foreach $file (@files){
print $file, "\n";
if (-C $file ...

Hola, buenas tardes.

Tengo un ordenador que funciona con Windows 7 y he instalado Strawberry Perl para poder ejecutar el siguiente script de prueba.

En la línea de comandos de Perl me he situado en la carpeta dónde se sitúa mi programa para poder ejecutarlo, pero el script no consigue abrir el archivo.

Con la imagen adjunta podéis ver el comando que he utilizado, el programa de prueba y la localización del programa.

Es posible ...