Foro - Perl en Español

En Crowdtilt (sitio web de financiación voluntaria -hecha con Dancer, por cierto-) se creó un proyecto para financiar una tarea de mejora del software Pinto (gestión de un CPAN local, de utilidad para equipos de desarrollo de tamaño medio/grande). Hasta ahora lleva recaudados casi $3000, pero la idea es llegar a los $4096.

Vídeo del autor
Artículo (en inglés): Crowd funding Pinto

Hola amigos.
Qué alegría volver a perlenespanol.com

Tengo una preguntica que quisiera me ayudaran.

Estoy usando unos componentes de Ajax que alimentan sus datos desde datos en XML (datos.xml) pero pues estoy viendo un ejemplo donde se genera el XML a partir de consultas SQL sobre una tabla de la base de datos.

A veces los archivos generados pueden tener hasta 7000 registros, lo cual hace que se ponga un poco lenta la visualización de ...

¡Hola! El objetivo de mi programa es calcular n! y pensando, tras entrar en numerosos bucles infinitos he llegado a elaborar un un programa que para mi está bien y se ejecuta pero que resulta que no funciona como tiene que hacerlo y en la pantalla no muestra el resultado. ¿Podéis darme alguna sugerencia o ayudarme a buscar el error?

print "Introduce un número\n";
$a = <STDIN>;
chomp($a);

while ( $n > 1 ) ...

Hola, me gustaría saber si es posible la conversión de estos dos lenguajes, teniendo un programa escrito en lenguaje en C, pasarlo a Perl, o si son demasiado diferentes como para hacer eso.

Hola amigos, soy nuevo en esto y necesito borrar unos respaldos antiguos desde un directorio y tengo este script, que me funciona en un servidor y en otro no, creo que es un problema de sintaxis, pero no logro dar con la solución y necesito su ayuda. :roll:


#!/usr/bin/perl
for i in `ls -lt /home/respaldo | tail -n1`
do
rm -rf /home/respaldo/$i
done
...

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

Estoy por dividir el disco para tener instalado por un lado XP y en el otro Ubuntu 10.04 pero no me decido en el tamaño a asignar a Ubuntu. Lo que voy a hacer es instalar todo lo necesario para programar en Perl, Ruby, Python y Java, instalar Geany y lo necesario para reproducir música. También si puedo puede que haga algunos vídeos, entonces pensé en ponerle 150 GB pero no sé si sobra mucho, ...

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!