Foro - Perl en Español

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

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