Foro - Perl en Español

Hola,

estoy trabajando con ficheros xml y para ello estoy utilizando el módulo XML::TreePP.

Estoy atascado con algo que debe ser bastante fácil, pero no consigo hacer. Quiero que los campos de un árbol salgan ordenados de una determinada manera cuando se escribe el xml, y no se ordenen alfabéticamente como hace por defecto. Para ello intento utilizar la opción first_out de la siguiente manera:

my $tpp80 = XML::TreePP->new(%first_out);

##Voy dando diferentes valores a diferentes ...

¿Alguien sabrá hacer una aplicación Cliente/Servidor en Perl?
O guiarme dónde puedo leer.

Saludos.

Gente, comenzó a pasar algo raro: me está dando error de perl58.dll, que no lo encuentra...
cuando ejecuto un script, ¿cómo puedo saber dónde está apareciendo o causando el problema...?

Tengo estos use()... les cambié el orden en varios casos y pasa lo mismo...
Lo más raro es que el mismo script no da el error en otro ordenador...
Por ello reisntalé el Perl pero sigue igual...

#use strict;
use DateTime::Format::Strptime;
use DateTime;
#use warnings; ...

Buenas de nuevo. Estoy empaquetando a un exe y me da el siguiente error. ¿A alguno le paso algo similar o sabe cómo solucionarlo...?


Filesys\CygwinPaths.pm:
error: Can't locate Filesys\CygwinPaths.pm
refby: C:\Perl\lib\DBD\SQLite.pm line 89
Firstworks\SQLRClient.pm:
error: Can't locate Firstworks\SQLRClient.pm
refby: C:\Perl\site\lib\DBD\SQLRelay.pm line 6

Created 'informesv15demo.exe'
Executable size: 80.1 KB, 3.62 MB smaller than last time (98%)



{.\informesv15demo.exe}
Can't locate Term/Menu.pm in @INC (@INC contains: .) at informesv15demo.pl line 4.
BEGIN failed--compilation aborted at ...

Vamos por más. Estoy terminando un script de informes por consola (armado con mucho cariño), y se viene la parte en la que va a ir a producción... como un simple .exe.

Me interesaría que dicho programa tenga una opción de actualización del mismo ya que se estará mejorando constantemente... por ello les pregunto si alguno tuvo que pensar en algo similar...


Los recursos son:
- sistemas operativos Microsoft
- servidores ftp, http con IP ...

Saludos al foro.

Antes que nada debo mencionar que de Perl no conozco nada, pero si me explican bien, paso por paso me animo.

Bueno, la cuestión es que en un hosting de netfirms utilizo formmail.pl para enviar los datos de un formulario de contacto a mi correo. Como luego de enviar sacaba el mensaje de "envío correcto" y otras cosas en inglés, lo edité y le puse lo que yo quería, y funciona a ...

Gente: este aporte es de lo más básico pero me sirvió y seguramente os puede ayudar... si están comenzando en este maravilloso mundo de Perl... y les toca lidiar con fechas...

Previamente instalen Modern::Perl;

problema inicial: cuento con una variable pasada por el usuario en formato: aaaa-mm-dd
solución buscada: convertir dicha fecha en aaaammdd o ddmmaaaa

La solución utilizada fue...

use Modern::Perl;
my $cadena = '2009-11-02T00:00:00';
my $fecha = substr $cadena, 0, 10;
my @fecha ...

PDF::API2 o 3
Agradecería si me pudiesen pasar ejemplos y tutoriales de cómo utilizar este módulo. Mi idea es generar facturas y otros documentos contables en PDF, por lo que necesitaré un estudio completo. ¿Cómo generar columnas o tablas con datos por ejemplo, de cantidad, detalle , importe, etc. de producto vendido, insertar datos en forma tabular, etc.

Bueno ¡¡¡¡Muchísimas gracias!!!! :D

¿Puede ser que si pasamos una variable a una subrutina, que dentro de ella tiene dos conexiones a bases de datos, la variable solamente se pueda usar durante la primera conexión y/o while() ...??

Resultado correcto: la variable se muestra en un print() dentro del primer while()...
fin de primer hoja 6612

El mismo print() fuera del while() no se muestra la variable 6612
fin de primer hoja

fin de Segunda hoja ---------------------------------------------------------
- ...

Hola amigos, he creado un pequeño script en Perl para que me corte un trozo de una frase y me la guarde pero no he podido obtener los resultados esperados. Quisiera que esta frase:
h**p://mtomlin:[email protected]
me la partiera y me la dejara solo así:
mtomlin:picard

Un saludo.

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

print "Escriba la url.\n";

my $url = <STDIN>;

if ($url =~ /:/) {

my @datos = split (/\/\/(.+)@/,$url);

print "frase ...