Foro - Perl en Español

Quiero extraer exactamente la ruta absoluta junto con el directorio wp-content con una posible profundidad de 12 directorios... ¿Habría alguna manera de compactar esta expresión que me funciona pero es un poco larga?

open(WP, "/tmp/salida.txt");

while (my $p = <WP>) {

while ($p =~ m#((/\w*|/\w*/\w*|/\w*/\w*/\w*|/\w*/\w*/\w*/\w*|/\w*/\w*/\w*/\w*/\w*|/\w*/\w*/\w*/\w*/\w*/\w*)?/wp-content/)#g) {
my $dir = $1;

$directorios{ $dir } = 1;
}
}

close(WP);

my @directorios = keys %directorios;

for my $dir (@directorios) {
print $dir ."\n";
}



Gracias ...

Estimados,
Los molesto para realizarles una consulta.
Tengo las siguientes regex las cuales se encargan de escribir en un Excel, el problema es que no queda como yo necesito.

Digamos obtengo:



Como pueden ver la información se encuentra alojada correctamente en su columna, pero recién comienza debajo de donde termino la información de su columna anterior, necesito que comiencen todos en la misma fila.

{ ... ... . }
my $columna = 0; ...

Buenas a todos,

Primero me presento, soy Javier y soy nuevo en el foro, llevo varios años trabajando con Perl, pero siempre a nivel de sistemas, scripts pequeños de un solo uso, etc. La verdad es que es un lenguaje que me gusta bastante porque con poco se puede hacer mucho.

Os lanzo mi pregunta para ver si me podéis ayudar: necesito hacer una pequeña aplicación en Windows, se va a conectar a una BBDD ...

Hola a todos...

Bueno, entre unas y otras cosas vuelvo aquí por una duda sencilla. ¿Cómo puedo escribir al principio de cada línea de un archivo suponiendo que éste ya esté escrito, algo determinado?

Pensé en usar el while() más el descriptor de archivo y luego usar la función seek() para situar el puntero siempre al principio de cada línea pero he pensado que debe haber algo más sencillo que realizar eso.

¡Gracias!

Cuando dije que estaría mucho por aquí, no mentía.

También tengo que hacer un programa que calcule el máximo común divisor de dos números.

Lo primero que se me ha ocurrido es hacerlo mediante el uso de bucles while y un array para almacenar los divisores de cada número.

De momento he hecho esto, pero hay algún fallo, porque se ejecuta pero no pone los números.

Gracias de antemano.


print "Introduce un numero:\n"; ...

Hola, soy nueva en el foro y también una novata en lo que se refiere a la utilización de Perl.
Planteo mi primera pregunta, aunque tengo la sensación de que mis preguntas van a ser muy frecuentes.

¿Hay algún comando concreto que permita introducir este valor sin tener que escribirlo a mano con todos sus decimales?

El programa consiste en calcular el área de un círculo, una vez dado el radio y que no funcione ...

¡Saludos!

Estoy haciéndome un pequeño script para que me saque mi "tendencia" a la hora de navegar. Para ello, la mejor idea que se me había ocurrido era utilizar la base de datos SQLite que guarda el historial en Firefox y a partir de ahí sacar las 25 páginas más visitadas ordenadas por frecuencia. Esto que a priori sería lo difícil, ya lo tengo hecho.

Mi problema reside en que dicha base de datos reside ...

¿ Alguien me podría decir por qué se da este fallo en un script ?

Wide character in print at ./test.pl line 236.

En esa línea hay un bucle for() que recupera e imprime datos de un archivo XML.

He intentado poner codificación:
# -*- coding: utf-8 -*-
<?xml version="1.0" encoding="utf-8" ?>

Al principio del script y en el documento xml también pero me sigue saliendo el error.

Estaría agradecido si alguien me ...

Hola, estoy teniendo problemas con un script para rescatar una expresión regular que es correspondiente a un identificador:

En el archivo original, luciría así:

MOLECULE
CARBON65005451
45 67 89

y sigue ofreciendo más información para cada molécula. Si su id number (CARBON65005451 en este caso) es mencionada solo una vez en el archivo, ¿cómo puedo usar una expresión regular correctamente para meter todos los id numbers en una especie de lista (arreglo, supongo) y exportarlo ...

Tengo que hacer un programa que me ordene unos números, pero ocurre que el búcle solo lo realiza una vez. Es decir, introduzco los números 3, 2 y 1 y me los ordena como 2, 1, 3.

No encuentro el fallo. A ver si alguien puede ayudarme a verlo.

Esta es la parte del código que creo que falla:
$b = 1;
$c = 0;
while ( $b < $n ) {
while ( ...