Foro - Perl en Español

Hola a todos.

Quiero editar el fichero Registry.pol (de un Windows) pero tiene una codificación particular, creo que está en ABNF.

¿Alguien sabe cómo puedo editarlo sin que aparezcan caracteres extraños para extraer su información?

Muchas gracias.

Un saludo,
Ricar.

Hola a todos. Tengo nuevamente problema de threads.
Primero les dejo una prueba de concepto para tratar de entender mejor.

#!/usr/bin/perl
use threads;
system'clear';
my@SALIDA : shared=(12,12,12,12,12,12,12,12,12,12,15);

$THREAD_NUM_COLUMN = 5;

for(0 .. $THREAD_NUM_COLUMN-1) {
push @threads, threads->create(\&CHECKING);
}
sleep(1);
foreach $THREAD_FOR (@threads){
#print"finalizado ".$THREAD_FOR->tid() , "\n"; ##DEBUG
$OUT_NUMBER= $THREAD_FOR->join();
}

print"RETORNADO: $OUT_NUMBER\n";

sub CHECKING{
my@NUMBER_ARRAY : shared=(0..100);

$TID_COLUMN = threads->tid();
$I = $TID_COLUMN - 1;
while ( $I < @NUMBER_ARRAY ) {
$INT_COLMN = ...

Hola,

supongamos que tengo un archivo de texto que se llama texto.txt y es así:
bla bla bla oihsa
ljhaf paijf a

CLAVE: hola
ljsg

lasjg
CLAVE: chau
lkj

jo

Quiero recorrerlo y guardar en variables las palabras que están después de CLAVE.
¿Cómo puedo hacer esto?

Voy haciendo esto:
open(FILEHANDLE, "$rutaArchivo") || die "ERROR: no pude abrir el archivo: $!";
my @datos = $procesador->parsear(FILEHANDLE);

# en otro módulo tengo definida la subrutina parsear:
sub ...

Hola a todos, estoy aprendiendo hace muy poco Perl y estoy haciendo un script; básicamente lo que no logro hacer es que al abrir un archivo y detectar unas líneas, las mismas las pase como variables para poder ser ejecutadas con un exec(). Les dejo la parte del código que no funciona:

open(FD,$patch);

my $found = 0;
my $linea;
my $linea2;

foreach(<FD>)
{
if($_ =~ /Los comandos son:/) {
$linea = <FD>;
$linea2 = <FD>; ...

Hola a todos, en este día estuve programando unas cosas y tenía un problema: necesitaba comparar el código fuente a ver si eran iguales y al parecer no comparaba bien el código fuente o hay algún error.

Este es mi código:
use LWP::UserAgent;
use HTTP::Request;

my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");

my $com1 = new HTTP::Request GET =>"http://start.ubuntu.com/9.04/";
my $com2 = new HTTP::Request GET =>"http://www.google.es/"; ...

Saludos a todos.

Hice una aplicación para Ferreterías y Farmacias, que cubre la parte de ventas, ingresos e inventarios y en la parte del Punto de Venta, imprimo el tique de cada venta y todo está muy bien, pero me gustaría agregarle el importe total de la venta, también en letras, por ejemplo:

Si el total de la venta fue ==> $ 1,546.75 M.N.

Que me aparezca la leyenda:

Mil quinientos cuarenta y seis pesos, ...

¡Hola!

Estoy trabajando con las interfaces gráficas de gtk2 y acabo de hacer un combobox para que el usuario elija un número.

La cosa es que... ¿cómo sé yo cuál de todos los números ha pulsado? ¿Y si quiero luego pasarle en una variable a otra interfaz el número pulsado... ¿cómo lo hago?

Esto es lo que yo he escrito:

$tabla_combo= Gtk2::Table->new(2,3,TRUE);
$comboBox = Gtk2::ComboBox-> new_text;
$model = $comboBox->get_model;
$model->set ($model->append, 0, "1");
$model->set ($model->append, ...

Hola,

Estoy utilizando el módulo XML::Parser para crear un parser XML. Me gustaría utilizarlo desde una clase. He creado una clase (MiClase.pm) y dentro he implementado el parser XML. Pero desde dentro de una clase no funciona, mientras que en un script Perl tal cual sí lo hace.

Creo que está relacionado con la manera que tiene Perl de definir los métodos de una clase. Se requiere que la primera línea sea algo así:

my ...

Buenas, compañeros.

La última vez que nos vimos necesitaba ayuda para sacar link desde Google, pero esta vez tengo otra duda.

Esa vez yo examinaba el código fuente y desde las expresiones regulares sacaba los link.

Pero ¿qué pasa esta vez?

Pues que quiero examinar lo mismo pero el problema es el siguiente:

Primero tengo que hacer la petición, que no sé hacerla; luego examino el código fuente de la web y con las expresiones ...

¡Hola!

Estoy haciendo unos programas en Perl. En el primer programa quiero recoger las palabras o frases (puede tener cualquier longitud) que me introduzca el usuario (ej. base de datos) y pasárselo al segundo programa.

La cosa es que yo se lo paso como $_ y lo recojo con $ARGV pero así solo me coge la primera palabra de todas.

¿Cómo podría hacerlo para que me cogiese todas las palabras?