• Publicidad

Fecha actual 2025-03-13 23:09 @006

News News of Foro - Perl en Español

Site map of Foro - Perl en Español » Foro : Foro - Perl en Español

La comunidad de programadores en Perl de habla-hispana.

Cómo pasar variables desde programa externo

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é ...
Read more : Cómo pasar variables desde programa externo | Vistas : 1049 | Respuestas : 4 | Foro : Intermedio


regexp para atrapar el caracter $

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
Read more : regexp para atrapar el caracter $ | Vistas : 534 | Respuestas : 1 | Foro : Básico


Problemas Perl/Tk

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 ...
Read more : Problemas Perl/Tk | Vistas : 3331 | Respuestas : 6 | Foro : Bases de datos


Reiniciar Select

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; ...
Read more : Reiniciar Select | Vistas : 4103 | Respuestas : 0 | Foro : JavaScript


Tiempo de duración de un hilo

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.
Read more : Tiempo de duración de un hilo | Vistas : 749 | Respuestas : 1 | Foro : Básico


Crear programa Perl que lea archivos Excel

¿Cómo crear un programa en Perl que lea celdas desde un archivo de Excel? Espero su respuesta. Soy nuevo en Perl. Saludos
Read more : Crear programa Perl que lea archivos Excel | Vistas : 10211 | Respuestas : 31 | Foro : Básico


Consulta sobre MD5 y Find

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); ...
Read more : Consulta sobre MD5 y Find | Vistas : 1294 | Respuestas : 6 | Foro : Intermedio


Conteo while con ceros hacia la izquierda

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.
Read more : Conteo while con ceros hacia la izquierda | Vistas : 1733 | Respuestas : 8 | Foro : Básico


Valor de retorno de una clase

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 ...
Read more : Valor de retorno de una clase | Vistas : 725 | Respuestas : 1 | Foro : Básico


Duda con función

# 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) ...
Read more : Duda con función | Vistas : 992 | Respuestas : 3 | Foro : Intermedio


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981