Foro - Perl en Español

¡¡Buenos días!!!

Tengo una duda... Estoy trabajando en un proyecto en el framework de Symfony y tengo que llamar a un script en Perl para que ejecute una opción... pero no sé cómo hacerlo, estuve leyendo en algunos foros... pero pocos tienen alguna solución a esta duda... no sé si pueda usar el comando shell_exec()... pero hice la prueba... ¡pero no me lo ejecuta...!

Alguna sugerencia... ¡Cualquiera es bienvenida...!

¡Gracias de antemano!

Hola a todos,

Tengo un problema con una expresión regular.

En $input, tengo una cadena de elementos separados por el carácter coma (,). De hecho se trata de un fichero .csv (comma separated value).

El problema es que desconozco el número de elementos.

Lo que pretendo es crear una expresión regular que me permita leer dicho fichero línea por línea (todas las líneas del fichero tienen el mismo número de columnas) y recuperar los elementos ...

Estimados amigos, uso un CMS que permite administrar los archivos del servidor web. Este CMS usa Perl para el upload.

El caso es que haciendo un test para ver si Perl funciona, no funciona. Esto ocurre al tiempo de haber dado de alta una página o sitio web.

¿Qué puedo hacer? No sé si en Perl (para Fedora Linux) existen cosas como parar y arrancar... o si hubiese alguna solución definitiva, desconozco qué puede estar ...

¡Hola de nuevo!

Parece que lleve una cruz con las selecciones de texto, pero tras varios intentos con el operador match de Perl, me doy cuenta de que no consigo lo que quiero (y en ocasiones no consigo nada).

Bien, resulta que tengo un servicio al que pasándole el nombre de una ciudad, obtendría sus coordenadas en latitud y longitud.

El fichero resultante tras probar con Oviedo por poner un ejemplo:
wget http://maps.google.com/maps?q=Oviedo -O city ...

Saludos, me pueden ayudar tengo una trama que esta separada por pipe y lo tengo que reemplazar por nueva línea, les mando un ejemplo de como viene la trama:

$trama = "120|4512.245|Juan Diaz | | |20080504| | |";

Quiero convertir varias imágenes jpg en un archivo .tiff. El código que tengo es el siguiente:

use Image::Magick;

$p = Image::Magick->new;
$p->Read('i.jpg');
$p->Read('p.jpg');
$p->Read('x.jpg');
$p->set(compress=>'zip');
$p->Write('archivo.tiff');

Aparentemente me lo ejecuta bien, pero a la hora de visualizar las imágenes en el archivo.tiff aparecen las tres páginas (las 3 jpg ) pero todas negras, es decir, hora de ver el archivo.tiff éstas se ven obscuras.

Espero me puedan ayudar.

Hola a todos:

Hay algo que falla en la siguiente expresión regular que estoy utilizando, pero no sé qué. A ver si me podéis echar una manita...

Tengo un string $anb_klaseak, que he hecho leyendo un fichero con:

open(SS,"/xagutxu/corp_anb_klaseak.txt");
my $anb_klaseak;
while(my $rang=<SS>)
{
$anb_klaseak = $anb_klaseak.$rang;
}
close(SS);

Y el string resultante, $anb_klaseak, es:

<1><ANB_TAL_002><9856>
(LOT JNT EMEN)
(LOT MEN KAUS AM)
<2><ANB_TAL_002><5508>
(IZE ARR BIZ-)
(IZE ARR BIZ- ABS MG)
<3><ANB_TAL_002><3434>
(IZE ARR) ...

¿Dónde puedo encontrar los repositorios para Perl versión 5.10 de los siguientes paquetes?

zlib-1.2.3
libpng-1.2.8
jpeg-6b giflib-4.1.3
FreeType-2.1.9.

La versión no es importante, algunos son de Sourceforge.net donde he encontrado los paquetes tar.gz, zip, pero no los repositorios...

Hola a todos. Mi problema es el siguiente :roll:, ojalá me puedan ayudar:
Tengo dos archivos .dat que cada uno contienen una fila de datos y quisiera unir esas dos filas de datos en un solo archivo .dat por ejemplo:

---archivo1.dat------ archivo2.dat------------------- archivo3.dat
-------23 ---------------- 13------------------------- 23----13
-------36 ---------------- 16------------------------- 36----16
-------13 ---------------- 44------------------------- 13----44
-------16 ---------------- 23--------------------------16--- 23
-------26 ---------------- 19--------------------------26----19
-------43 ---------------- 26------------------------- 43----26 ...

Hola a todos:

Estoy "jugando" con el módulo libXML de Perl y no encuentro el modo de crear un documento. El asunto es que quisiera hacer un script para crear un documento XML, a partir de una base de datos en txt.

Para eso, mi intención es crear un documento, con:

my $doc = XML::LibXML::Document->createDocument();

y un parser, con:

my $parser = XML::LibXML->New();

Pero ahora, no sé cómo indicarle al script cómo debe añadir la ...