Foro - Perl en Español

Hola...

¿Cómo podría resolver integrales indefinidas con Perl?... ¿Alguien me podría ayudar?

grax

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.

Tengo una ligera duda sobre el funcionamiento de Perl en la máquina Linux.

Lógicamente, es mejor utilizar los módulos como tales en vez de copiarlos y usarlo como si fueran scripts. Una de las ventajas es que la actualización del módulo requerirá que se copie y se realicen los cambios de nuevo, sino me equivoco, pero mi pregunta es, en una máquina Linux en la que tenemos instalados varios módulos de Perl, ¿la actualización de ...

Hola.

Tengo una duda al querer hacer una expresión regular; lo que quiero hacer es, por ejemplo:

http://localhost/imagenes/gifs/bmp/

Lo que necesito es que extraiga las frases (paths) entre barras a excepción de localhost que vendría a ser el host y los paths que es lo que necesito.

¿Alguien me podría ayudar?

Hola,

lo que quiero hacer es abrir un archivo de texto (.txt) y guardarlo en una variable escalar.

open (FILE, "texto.txt");
my $archivo;

¿Cómo hago para que quede todo el texto guardado en $archivo?
¿Tengo que recorrer línea por línea y concatenar todo?
¿O hay una forma más directa?

¡Gracias!

Hola, muy buenos días a todos.

Tengo la siguiente duda y no he podido dar con la solución y me gustaría contar con sus comentarios y ayuda. Tengo que hacer un hash, pero este hash debe ser de n niveles, es decir, puede contener n keys, ya que esto lo debo sacar de una tabla que es recursiva.

Me explico mejor: tengo una tabla que es recursiva, es decir se llama a sí misma. Lo ...

Hola, tengo problemas al pasar parámetros a subrutinas que tengo definidas en otros módulos (paquetes).

Ejemplo 1:
Quiero pasarle como parámetro a la función "parsear_por_nombre" el nombre del archivo, o sea, una cadena de caracteres, no una referencia. ¿Cómo hago?
Esto es lo que tengo hecho:

opendir(DIRHANDLE,"$ruta")||die"ERROR: no se pudo leer el directorio";

foreach (readdir(DIRHANDLE)){
my $nombreArchivo = $_;

if (!($nombreArchivo eq "." || $nombreArchivo eq "..")){
my $datos = $procesador->parsear_por_nombre($nombreArchivo)
}
}
...

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