Foro - Perl en Español

Hola, pues tengo una duda con el Perl.

He hecho un script para lanzar un programilla con Perl pero después cuando todo se ha ejecutado en este programa, me gustaría poder leer el valor de algunas variables que tiene. ¿Hay algún modo con Perl?

El programa lo lanzo con el comando: system()

Y espero a que éste ha terminado su ejecución dentro de un bucle.

Las pipe no creo que me sirvan... y no sé ...

Hola a todos,

El caso es que estoy tratando de generar una regexp que sea una extensión de \w, pero tomando en cuenta también el carácter $.

Mi objetivo es capturar múltiples caracteres o ninguno.

He intentado con lo siguiente: ()* pero no funciona;
también he probado ()* pero tampoco parece funcionar...

¿Alguien podría echarme una mano?

¡¡Un saludo y gracias por adelantado!!
Felipe

No sé si pregunto en el lugar correcto debido a que es sobre un código Perl/Tk.

Resulta ser que el programita en cuestión realiza consultas a Mysql; tengo una función que cuando la subconsulta se realiza satisfactoriamente, le avisa al usuario que se realizo satisfactoriamente... pero cuando falla la consulta (ya sea porque existe la tabla, o error de conexión a Mysql, o cualquiera error) debería imprimir en pantalla "Error No se pudo" y es ...

Les cuento. Tengo un script de JavaScript para hacer Select dependientes y su código es este:

contents=new Array();

function TCN_addContent(str){
contents.push(str);
arrayValues = new Array();
for(i=0;i<contents.length;i++){
arrayValues=contents.split(separator);
}
}

function TCN_makeComboGroup(){
comboGroup=new Array();
args=TCN_makeComboGroup.arguments;
for(i=0;i<args.length;i++){
comboGroup=MM_findObj(args);
}
}

function TCN_startCombo(){
combo1=comboGroup;
for (i=0;i<arrayValues.length;i++){
existe=false;
for(j=0;j<combo1.options.length;j++){
if(arrayValues==combo1.options.text){
existe=true;
}
}
if(existe==false){
combo1.options=new Option(arrayValues,arrayValues);
}//end if
}//for(i)
combo1.options.selected=true;
TCN_reload(combo1);
}//function

function TCN_reload(from){
//averiguamos el indice del combo que llama:
for(j=0;j<comboGroup.length;j++){
if(comboGroup==from){
//el nuestro es el siguiente
i=j+1; ...

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