Foro - Perl en Español

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

Estoy intentando instalar el paquete GDTextUtil-0.86 y
me aparece el siguiente error al ejecutar nmake test desde la línea de comandos de Ms-dos:

C:\GDTextUtil-0.86\GDTextUtil-0.86>nmake test

Microsoft (R) Program Maintenance Utility Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.

C:\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'bl
ib\lib', 'blib\arch')" t/*.t
t/align....Can't locate GD.pm in @INC (@INC contains: . .. C:\GDTextUtil-0.86\GD
TextUtil-0.86\blib\lib C:\GDTextUtil-0.86\GDTextUtil-0.86\blib\arch C:/Perl/site
/lib C:/Perl/lib) at t/align.t line 8.
BEGIN failed--compilation aborted at t/align.t line 8.
t/align....dubious ...

Hola, me gustaría que me dieran una orientada sobre en un problema que tengo y es el siguiente.

Necesito conectar Outlook con Perl, es decir, desde el server se debe de enviar la información a Outlook. Outlook se debe de conectar con el server y descargarse la información para procesarla en la agenda del mismo Outlook. :shock:

Hola, me pueden ayudar, soy novato en Perl y necesito buscar en un directorio archivos que empiecen con un texto (éste no cambia), luego fecha y hora (éste si cambia) y formato .cvs (éste no cambia); pongo ejemplo de lo que necesito buscar:

Code: Seleccionar todo

documento20080529_1433.cvs
documento20080529_1440.cvs