From diego en kuperman.com.ar  Mon May  2 02:30:15 2011
From: diego en kuperman.com.ar (Diego Kuperman)
Date: Mon, 02 May 2011 11:30:15 +0200
Subject: [Madrid-pm] Fwd: Madrid.pm
Message-ID: <4DBE79A7.7080005@kuperman.com.ar>

Hola!,

alguien ha hecho algo con santander/4b?, reenvio un correo que me ha 
enviado un monger de alemania :)

-dk


-------- Original Message --------
Subject: Madrid.pm
Date: Mon, 2 May 2011 10:12:07 +0200
From: Rolf Schaufelberger <rs en plusw.de>
To: diego en freekeylabs.com

Hi Diego,

could you please forward this mail to you madrid .pm mailing list ?

I  have to implement an online payment system for a spanish customer. He 
likes to do credit-card payment and  direct bank account  (  I don't 
know the exact english or spanish name for this :-(  ) . Credit card 
will be done via an interface by systema4b, and - as much as my 
informations tell me so far - they only have a spanish documentation.
On CPAN  I couldn't find anything  when searching for System4b or 
Santander, so my questions, did somebody of you implement online payment 
for Santander in  Perl and   give my some more information ?

Thanks .

Rolf Schaufelberger
Stuttgart.pm

plusW GmbH
Vorstadtstr. 61  -67   Tel.   07181 47 47 305
73614 Schorndorf     Fax.  07181 47 45 344






From franciscojrivash en gmail.com  Thu May  5 06:50:47 2011
From: franciscojrivash en gmail.com (Francisco Rivas)
Date: Thu, 5 May 2011 06:50:47 -0700
Subject: [Madrid-pm] Parsear un XML
In-Reply-To: <BANLkTi=OuMm=Cj-6yuWpPSOo0B-W3wHCuQ@mail.gmail.com>
References: <BANLkTinFqOJTiTwmtVVgPMVujS66TGTswQ@mail.gmail.com>
	<BANLkTimjoJ8jznbLAvqxs=4wd0yA9FCysw@mail.gmail.com>
	<BANLkTi=T8GQmrhEmZfKneL26-bcy+83+dw@mail.gmail.com>
	<BANLkTi=OuMm=Cj-6yuWpPSOo0B-W3wHCuQ@mail.gmail.com>
Message-ID: <BANLkTimHESy67YhkEcJ8iju91iaDZSRpug@mail.gmail.com>

Hola a todos de nuevo! :D

Han pasado un monton de dias desde que plantee esto y entre una cosa y otra
lo tuve que dejar a un lado y volvi y les coloco finalmente lo que
necesitaba, aun estoy agregando un par de cosas por requerimientos
especificos (ahora tengo que subir esos zip a un servidor por ftp y tal).
Aqui esta el codigo http://pastebin.com/4DhSFHqG Se que no es la manera mas
corta y elegante que hay pero por el momento necesito resolver esto y ademas
no tengo mucha experiencia con programando en perl (y eso se nota en el
codigo). La verdad es que habis escogido Python para esto pero al ver los
distintos modulos que hay y compararlos con los de Perl me di cuenta de
inmediato que los de Perl son muuucho mas flexibles y tienen exactamente lo
que necesito. Python me gusta mucho de hecho tengo algo mas de tiempo
programando en Python pero Perl creo que se ajusta mucho mas a esta tarea.

Por otro lado si alguno me puede hacer alguna sugerencia o incluso
recomendarme alguna manera mas "Perlistica" de hacer alguna de las cosas que
esta en el script estaria muy agradecido :D. Por ejemplo una mejora pudiese
ser que en vez de usar variables globales usara locales y llamara a cada
subrutina dentro de un loop en vez de hacer el loop dentro de la subrutina
el detalle esta en que cuantas veces tendria que llamar a la subrutina creo
que por eso podria sacrificar el uso de variables locales, supongo que seria
un poco mas eficiente. Esto solo por comentar alguna cuestion que veo
directamente.

Pasen muy buen dia y gracias a todos por sus comentarios me han servido de
mucho :D

2011/4/28 Francisco Rivas <franciscojrivash en gmail.com>

> Hola de nuevo, he hecho el script con XML::Twig y solo puedo decir que es
> muuuuyyy bueno!. Excelente!, Justo lo que necesitaba. Por otro lado me esta
> sucediendo algo que quiza se trata de algo que estoy haciendo mal, quisiera
> hacer las modificaciones al archivo y escribirlas en el mismo archivo una
> vez que termine, entonces he visto la funcion parsefile_inplace pero si
> parseo el archivo de esa manera al final el archivo queda en blanco, estoy
> haciendo algo mal? (seguro :P).
>
> Este es el codigo que he escrito hasta el momento
> http://pastebin.com/mzN7AxQH en este caso no estoy usando parsefile_input
> y se que hay cosas que se pueden hacer de manera distinta y quiza mas corta
> pero como estoy aprendiendo a usar el modulo lo he hecho asi.
>
> Para resumir un poco la duda : si utilizo parsefile_inplace cuando termino
> el parseo el archivo queda en blanco.
>
> Muchas gracias a todos de nuevo por los comentarios y por orientarme, muy
> buen dia :D
>
> 2011/4/27 Francisco Rivas <franciscojrivash en gmail.com>
>
>> Justo en esto estoy! :D
>>
>> 2011/4/27 Javier Camuñas <kamunas en gmail.com>
>>
>>> - Si es grande el xml a parsear XML::Simple te dejará prácticamente sin
>>> RAM.
>>> - Usaría ForceArray en caso de Simple
>>> - Prueba XML::Twig
>>>
>>> un saludo
>>>
>>>  2011/4/27 Francisco Rivas <franciscojrivash en gmail.com>
>>>
>>>>  Hola *,
>>>>
>>>> Quiero hacer un script para modificar un XML y he encontrado varios
>>>> modulos en el CPAN que lo hacen XML::LibXML y XML::Simple por ejemplo. El
>>>> detalle es que la forma del XML que tengo es biiiienn extrana :P, puesto que
>>>> tiene varios niveles. Entonces lo que quiero hacer con el XML es quitarle
>>>> algunos elementos y modificar otros. Estoy utilizando por el momento
>>>> XML::Simple, soy bastante novato en Perl y por eso recurro a la lista.
>>>>
>>>> #!/usr/bin/perl
>>>>
>>>> use strict;
>>>> use warnings;
>>>>
>>>> use XML::Simple;
>>>> use Data::Dumper;
>>>> $Data::Dumper::Indent = 3;
>>>>
>>>> my $fh = 'BookatableWid_asset.xml';
>>>> my $tree = XMLin($fh);
>>>> delete $tree->{protocolVersion};
>>>> print Dumper($tree);
>>>>
>>>> En esto que llevo hecho, que es una tonteria al final, solo elimino una
>>>> de las 'keys' que me interesa.
>>>>
>>>> El detalle esta en que luego hay hash de hashes de hashes dentro del
>>>> XML. Miren http://pastebin.com/muT2zH9E
>>>>
>>>> Entonces necesito iterar en esa estructura para buscar las 'keys' que
>>>> quiero modificar o eliminar incluso.
>>>>
>>>> Algunas recomendacion?. usar otro modulo?, utilizar ForceArray o
>>>> ForceContent, GroupTags o algo asi?
>>>>
>>>> Gracias de antemano. Muy buena tarde. :D
>>>>
>>>> _______________________________________________
>>>> Madrid-pm mailing list
>>>> Madrid-pm en pm.org
>>>> http://mail.pm.org/mailman/listinfo/madrid-pm
>>>>
>>>
>>>
>>> _______________________________________________
>>> Madrid-pm mailing list
>>> Madrid-pm en pm.org
>>> http://mail.pm.org/mailman/listinfo/madrid-pm
>>>
>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/madrid-pm/attachments/20110505/41e73cd4/attachment.html>

From franciscojrivash en gmail.com  Tue May 10 01:46:53 2011
From: franciscojrivash en gmail.com (Francisco Rivas)
Date: Tue, 10 May 2011 01:46:53 -0700
Subject: [Madrid-pm] Perl::Critic
Message-ID: <BANLkTi=8r8fAUC1+p4qy_y+KdAySpE82cA@mail.gmail.com>

Hola a todos, buscando un poco sobre mejores maneras de escribir mejor
codigo en Perl encontre esto :

http://perlcritic.com/ quiza ya lo conozcan :P

Y esta tambien PerlTidy y TidyView que estan de lujo :D

Muy buen dia.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/madrid-pm/attachments/20110510/a7bf7b6b/attachment.html>

From alexm en alexm.org  Tue May 10 02:06:16 2011
From: alexm en alexm.org (Alex Muntada)
Date: Tue, 10 May 2011 11:06:16 +0200
Subject: [Madrid-pm] Perl::Critic
In-Reply-To: <BANLkTi=8r8fAUC1+p4qy_y+KdAySpE82cA@mail.gmail.com>
References: <BANLkTi=8r8fAUC1+p4qy_y+KdAySpE82cA@mail.gmail.com>
Message-ID: <BANLkTimfecy_bqQGAtRk8SPypBw4m4ROjg@mail.gmail.com>

+ Francisco Rivas <franciscojrivash en gmail.com>:

> http://perlcritic.com/ quiza ya lo conozcan :P
>
> Y esta tambien PerlTidy y TidyView que estan de lujo :D

Los puedes usar también en tus test de desarrollo:

Test::PerlTidy
Test::Perl::Critic

Yo los uso directamente con Dist::Zilla, una maravilla.

-- 
Alex Muntada <alexm en alexm.org>
http://alexm.org/