Foro - Perl en Español

Hola a todos. Me preguntaba si hay alguna función para medir el tiempo de duración de un hilo.

De antemano les agradezco por su respuesta.

¿Cómo crear un programa en Perl que lea celdas desde un archivo de Excel? Espero su respuesta. Soy nuevo en Perl. Saludos

Buenas. en este caso les molesto porque quiero unir dos scripts y el resultado que obtengo no es satisfactorio.

Mi idea es mediante el módulo Find y Md5, listar todos los archivos de un directorio y obtener el HASH de cada uno.

Tengo los dos scripts por separado pero al querer unirlos no me andan :S

Find:#!/usr/bin/perl
## Lista los archivos con su PATH completo
use strict;
use File::Find;

my $dir = '/home/operador/scripts/perl';

find(\&imprimir_archivo, $dir); ...

Cómo puedo imprimir en pantalla la cuenta:

Code: Seleccionar todo

01
02
03...
50

001
002
003
...200

Lo que yo hago es:
my $inicio = 1; my $final = 50;
while ( $inicio1 <= $final ) { print $inicio; $inicio++; }

Pero necesito los ceros.

Hola, acabo de empezar con Perl.

He hecho una clase y según los manuales hay que poner 1; al final para que vaya bien (bueno, también lo he podido comprobar que si no lo pones da error).

Tengo un método de la clase que lo que hace es sacar por pantalla el objeto. O sea, si fuese el objeto persona me sacaría algo como:

Code: Seleccionar todo

Nombre: marianico
Edad: 23

Los print los he puesto directamente en ...

# By John Bazik
#
# Usage: $cwd = &fastcwd;
#
# This is a faster version of getcwd. It's also more dangerous because
# you might chdir out of a directory that you can't chdir back into.

sub fastcwd_ {
my($odev, $oino, $cdev, $cino, $tdev, $tino);
my(@path, $path);
local(*DIR);

my($orig_cdev, $orig_cino) = stat('.');
($cdev, $cino) = ($orig_cdev, $orig_cino);
for (;;) {
my $direntry;
($odev, $oino) = ($cdev, $cino);
CORE::chdir('..') || return undef;
($cdev, $cino) ...

hola.adios

($palabra1, $palabra2) = $doc =~ m/\'(\w+)\.(\w+)\'/simo;

Con eso lo que haciamos era guardar en $palabra1-hola y en $palabra2-adios.

Si el texto que quiero guardar está entre comillas simples sería así???

' texto de prueba '

($palabra1, $palabra2) = $doc =~ m/\'\'(\w+)\'\'/simo;

?????

Saludos

Hola, escribo para pedir una guía en la documentación que debo buscar para aprender a hacer un programa que me reconozca una lista de palabras en un texto y que una vez reconocidas les introduzca la etiqueta en XML.

Así por ejemplo tengo un archivo de texto y tengo otro archivo lleno de etiquetas del tipo:

Code: Seleccionar todo

<N genero=masculino>caso</N>
<N genero=femenino>casa</N>

Lo que me gustaría es que cada vez que en el texto se encontrara la ...

He hecho un intento fallido de crear un scripts que me busque palabras claves dentro de un texto y que me los guarde dentro de otro texto.

Por ejemplo tengo cuatro bases de datos y quiero extraer únicamente los correos de usuarios para enviarles una notificación de que el sitio ya cerró y para eso necesito un script que busque palabras completas que contengan la letra @ y que filtre el carácter de comilla pero ...

@palabra=("tarde","lunes","@@hola","adios@@hola");

for ($i=0;$i<=3;$i++)
{
print "$palabra\n\n";
}

Resultado:

Code: Seleccionar todo

tarde

lunes

@

adios@

Las dos últimas no se pintan completamente.