Foro - Perl en Español

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

Hola de nuevo, hacía tiempo que no consultaba por el foro.

El siguiente código conecta con un servidor externo, entra en un directorio, elimina ficheros gif y luego envía a esta carpeta vacía nuevos ficheros gif desde el ordenador.

Me encuentro que conecta con el servidor externo, elimina los gif y envía correctamente los gif en el primer directorio seleccionado. Posteriormente repito la misma operación pero en otro directorio.

El problema es el siguiente: No ...

Agradecería si me pudiesen explicar cómo defino variables globales en un paquete, para que luego las pueda utilizar en otro.

Necesitaría:

1- Definir variables globales en un paquete X.
2- Asignarle valores dentro del paquete X.
3- Acceder desde otro paquete XX al valor de dichas variables.

¡Gracias!