From emhn at telcel.net.ve Thu Feb 3 07:14:10 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Thu Feb 3 07:14:30 2005 Subject: [caracas-pm] Re: [L-unplug] Soft para pruebas de stress de Web Servers In-Reply-To: <1107392241.3113.8.camel@redskull.cantv.net> References: <1107392241.3113.8.camel@redskull.cantv.net> Message-ID: <1107443650.5426.32.camel@localhost> On Wed, 2005-02-02 at 20:57 -0400, Hir?n Arias wrote: > He estado intentando conseguir algun soft open source que permita > generar pruebas de stress sobre web servers y que soporte manejo de > formularios para simular la entrada de usuarios a un site, hasta los > momentos no he conseguido uno que cumpla con esas caracteristicas por lo > que recurro a uds para ver si alguien conoce o a probado algo parecido. En cualquier Debian Sarge tienes por lo menos los basados en C: ab (viene en el paquete apache-utils) hammerhead siege openload Yo acostumbro escribir mis scripts de prueba en Perl por la superioridad expresiva del lenguaje. Durante mucho tiempo me acostumbr? a utilizar el m?dulo HTTPD::Bench::ApacheBench, pero desde el a?o pasado me cambi? a HTTP::Webtest. En ambos puedes escribir scripts de pruebas "ad-hoc" incluyendo los c?lculos de regresi?n que te interesen, pero prefiero ?ste ?ltimo de los m?dulos porque incluye numerosos plugins que son interesantes seg?n el tipo de pruebas que deseas realizar. Est?n en CPAN. -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From aarnal at me.gov.ve Thu Feb 3 02:41:11 2005 From: aarnal at me.gov.ve (Alexis Arnal) Date: Thu Feb 3 07:40:44 2005 Subject: [caracas-pm] Alter Colunm en postgres In-Reply-To: <1107443650.5426.32.camel@localhost> References: <1107392241.3113.8.camel@redskull.cantv.net> <1107443650.5426.32.camel@localhost> Message-ID: <1107427271.1345.12.camel@03omisis090> Saludos, estoy trabajando en Postgres 7.4 y tengo una duda acerca de como alterar un campo que he definido como un tipo, por ejemplo un integer y lo deseo cambiar a varchar. Estuve leyendo la documentaci?n y no encontre forma de hacerlo, tambien trat? de utilizar unas herramientas gr?ficas (phpPgAdmin) y no ten?a la opci?n. Por ahora cuando me sucede algo parecido tengo que borrar la tabla y luego crearla, previamente respaldada la data, como la base de datos esta full relacionada tengo que hacerle un dump a toda la base de datos modificar el script y luego subirlo Sigo buscando, si alguien sabe como hacerlo o si no es posible por favor me avisan Gracias -- Alexis Arnal Linux user number 378161 Caracas-Venezuela From vicente at construguia.com Thu Feb 3 08:10:29 2005 From: vicente at construguia.com (Vicente Guedez Lopez) Date: Thu Feb 3 08:02:39 2005 Subject: [caracas-pm] Alter Colunm en postgres In-Reply-To: <1107427271.1345.12.camel@03omisis090> Message-ID: Saludos Alexis... Yo lo he hecho as? y me ha funcionado bien hasta los momentos... 1. Copias la columna original con toda su informaci?n a otra columna nueva con nombre diferente y con el tipo de dato que deseas pero que contenga la misma informaci?n es decir replicas la columna con otro nombre. 2. Haces un drop de la columna original 3. Haces un alter table para renombrar la columna que recien has creado y le colocas el nombre original. USADO PARA CAMBIO DE LONGITUD DE CAMPO EN TABLE PICS Ejemplo: tabla => pics columna original => url columna de destino => url2 nuevo tipo de campo => varchar(250); BEGIN; ALTER TABLE pics ADD COLUMN url2 varchar(250); UPDATE tab SET url2 = CAST(url AS varchar(250); ALTER TABLE pics DROP COLUMN url; COMMIT; VACUUM FULL pics; ALTER TABLE pics RENAME COLUMN url2 TO url; ---------------------------------------------------------------------------- - -----Original Message----- From: caracas-pm-bounces@pm.org [mailto:caracas-pm-bounces@pm.org]On Behalf Of Alexis Arnal Sent: Jueves, 03 de Febrero de 2005 06:41 a.m. To: Perl Mongers Caracas - Venezuela Cc: unplug Subject: [caracas-pm] Alter Colunm en postgres Saludos, estoy trabajando en Postgres 7.4 y tengo una duda acerca de como alterar un campo que he definido como un tipo, por ejemplo un integer y lo deseo cambiar a varchar. Estuve leyendo la documentaci?n y no encontre forma de hacerlo, tambien trat? de utilizar unas herramientas gr?ficas (phpPgAdmin) y no ten?a la opci?n. Por ahora cuando me sucede algo parecido tengo que borrar la tabla y luego crearla, previamente respaldada la data, como la base de datos esta full relacionada tengo que hacerle un dump a toda la base de datos modificar el script y luego subirlo Sigo buscando, si alguien sabe como hacerlo o si no es posible por favor me avisan Gracias -- Alexis Arnal Linux user number 378161 Caracas-Venezuela _______________________________________________ caracas-pm mailing list caracas-pm@pm.org http://mail.pm.org/mailman/listinfo/caracas-pm From emhn at telcel.net.ve Thu Feb 3 08:08:01 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Thu Feb 3 08:08:15 2005 Subject: [caracas-pm] Alter Colunm en postgres In-Reply-To: <1107427271.1345.12.camel@03omisis090> References: <1107392241.3113.8.camel@redskull.cantv.net> <1107443650.5426.32.camel@localhost> <1107427271.1345.12.camel@03omisis090> Message-ID: <1107446881.5426.73.camel@localhost> On Thu, 2005-02-03 at 11:41 +0100, Alexis Arnal wrote: > Saludos, estoy trabajando en Postgres 7.4 y tengo una duda acerca de > como alterar un campo que he definido como un tipo, por ejemplo un > integer y lo deseo cambiar a varchar. [...] La pregunta no tiene nada que ver con Perl, que es el tema central de ?sta lista. Para ?sta pregunta (y futuras del mismo estilo) es mejor que la formules en alguna lista de discusi?n de PostgreSQL, en la lista de desarrollo y/o t?cnicas de VELUG (l-desarrollo y l-linux, respectivamente), o bien en la lista t?cnica de UNPLUG (l-unplug). -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From aarnal at me.gov.ve Thu Feb 3 03:28:42 2005 From: aarnal at me.gov.ve (Alexis Arnal) Date: Thu Feb 3 08:28:01 2005 Subject: [caracas-pm] Alter Colunm en postgres In-Reply-To: <1107446881.5426.73.camel@localhost> References: <1107392241.3113.8.camel@redskull.cantv.net> <1107443650.5426.32.camel@localhost> <1107427271.1345.12.camel@03omisis090> <1107446881.5426.73.camel@localhost> Message-ID: <1107430122.1345.18.camel@03omisis090> Pido disculpas, me parecio pertinente a esta lista ya que es para un sistema cuya plataforma principal es PERL, hasta uno de los lenguajes procedurales que estamos tratando de implementar es Pl/perl, de todas manera lo tomar? en cuenta para la pr?xima vez que pregunte, Se que esto no tiene nada que ver con perl, pero existe una lista de discusi?n de postgresql aqu? en Vzla o en otra parte que me puedas recomendar. El jue, 03-02-2005 a las 12:08 -0400, Ernesto Hern?ndez-Novich escribi?: > On Thu, 2005-02-03 at 11:41 +0100, Alexis Arnal wrote: > > Saludos, estoy trabajando en Postgres 7.4 y tengo una duda acerca de > > como alterar un campo que he definido como un tipo, por ejemplo un > > integer y lo deseo cambiar a varchar. > [...] > > La pregunta no tiene nada que ver con Perl, que es el tema central de > ?sta lista. Para ?sta pregunta (y futuras del mismo estilo) es mejor que > la formules en alguna lista de discusi?n de PostgreSQL, en la lista de > desarrollo y/o t?cnicas de VELUG (l-desarrollo y l-linux, > respectivamente), o bien en la lista t?cnica de UNPLUG (l-unplug). -- Linux user number 378161 Caracas-Venezuela From emhn at telcel.net.ve Wed Feb 9 06:35:29 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Wed Feb 9 06:35:40 2005 Subject: [caracas-pm] Caracas Perl Quiz #1 Message-ID: <1107959729.19782.31.camel@localhost> El a?o pasado nos fue muy bien con la tradici?n de reunirnos peri?dicamente. Vamos a ver si ?ste a?o podemos introducir la tradici?n de enviar a la lista al menos un ejercicio mensual que nos permita ejercitarnos en cosas que no necesariamente son "del mundo real" pero que nos den herramientas para enfocar los problemas de manera diferente. Se me ocurri? el nada original nombre de Caracas Perl Quiz y ?ste es el primero. Yo dir?a que tomemos las siguientes "reglas" para que ?stos ejercicios sean del disfrute de todos: 0. Sean tan creativos como quieran. Se vale usar m?dulos, se vale preguntar todo lo que se les ocurra y proponer descabelladas y novedosas t?cnicas para resolver el problema. El punto de usar Perl es divertirse, expresarse y resolver. 1. Mantengamos _un_ s?lo hilo ra?z para el ejercicio (es decir, cualquier cosa relacionada con el ejercicio, que sea un Reply al mensaje original o alguno de los mensajes del hilo; evitar crear un mensaje nuevo). 2. Cuando alguien quiera enviar una soluci?n _completa_, ponga en el asunto "[solucion]". De ese modo aquellos que todav?a est?n pensando en el ejercicio pero _no_ quieren "viciarse" ni quieren "pistas", pueden dejar de leer ese mensaje. 3. Ser?a excelente dedicar algunos minutos de nuestra reuni?n mensual para hablar del Quiz y las soluciones propuestas por los participantes. El Quiz del mes es como sigue: Todo el mundo conoce los n?meros 0-800-USEPERL, en los cuales se usan letras para facilitar la memorizaci?n del n?mero tel?fonico. Si bien el ejemplo que yo puse tiene dos palabras ("use" y "perl"), concentr?monos en aquellos n?meros que tienen _una_ sola palabra de siete, seis o cinco letras, e.g. 0-800-HALLACA, 0-800-0SOLERA o 0-800-00PIZZA. Noten que el 0-800 y el '0' o '00' prefijos no son importantes. La pregunta es, ?habr? palabras que _compartan_ el mismo n?mero? Es decir, dada la palabra P1 en el diccionario, habr? otra palabra P2 que tenga el mismo "n?mero telef?nico". La idea del ejercicio es escribir un programa que analice el diccionario de un idioma [1], se concentre en las palabras que nos interesan y cuando encuentre dos o m?s palabras que compartan el mismo n?mero telef?nico indique el n?mero y _todas_ las palabras que lo comparten. [1] En cualquier sistema GNU/Linux, en /usr/share/dict/ tienen archivos con las palabras del diccionario. En Debian, pueden instalarlos con apt-get install wenglish wspanish -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From mendoza at kitiara.org Wed Feb 9 09:19:35 2005 From: mendoza at kitiara.org (Cesar Mendoza) Date: Wed Feb 9 09:19:56 2005 Subject: [solucion] [caracas-pm] Caracas Perl Quiz #1 In-Reply-To: <1107959729.19782.31.camel@localhost> References: <1107959729.19782.31.camel@localhost> Message-ID: <20050209171935.GA14553@tyka.kitiara.org> Hola, Aqu? les va mi soluci?n al quiz. #!/usr/bin/perl #name: telefono.pl #author: Cesar Mendoza #usage: telefono.pl /usr/share/dict/spanish use strict; $|++; my %dial = (a=>2,b=>2,c=>2,d=>3,e=>3,f=>3,g=>4,h=>4,i=>4,j=>5,k=>5,l=>5,m=>6,n=>6,o=>6,p=>7,q=>7,r=>7,s=>7,t=>8,u=>8,v=>8,w=>9,x=>9,y=>9,z=>9); my %seen; my %result; while (<>) #leer el archivo en @ARGV o el stdin { chomp; tr/??????A-Z'/aeiouna-z/d; #quitar acentos y poner en min?scula next unless !$seen{$_}++ && /^.{5,7}$/; #evitar duplicados como amag? y amago y solo procesar palabras entre 5 y 7 letras my $number = join('', map { $dial{$_} } split('', $_)); #transformar la palabra en n?mero if (defined $result{$number} ) { #si est? definido agregar al arreglo push @{$result{$number}}, $_; } else { $result{$number} = [$_]; } } for my $number (sort {$a <=> $b} keys %result) { next unless @{$result{$number}} > 1; print '0-800-','0'x(7-length($number)),"$number: "; print $_,' ' for @{$result{$number}}; print "\n"; } Bye Cesar Mendoza http://www.kitiara.org -- "First they tell you, you're wrong and they can prove it; then they tell you, you're right but it isn't important; then they tell you, it's important but they knew it all along." --Charles Kettering On Wed, Feb 09, 2005 at 10:35:29AM -0400, Ernesto Hern?ndez-Novich wrote: > El a?o pasado nos fue muy bien con la tradici?n de reunirnos > peri?dicamente. Vamos a ver si ?ste a?o podemos introducir la tradici?n > de enviar a la lista al menos un ejercicio mensual que nos permita > ejercitarnos en cosas que no necesariamente son "del mundo real" pero > que nos den herramientas para enfocar los problemas de manera diferente. > > Se me ocurri? el nada original nombre de Caracas Perl Quiz y ?ste es el > primero. Yo dir?a que tomemos las siguientes "reglas" para que ?stos > ejercicios sean del disfrute de todos: > > 0. Sean tan creativos como quieran. Se vale usar m?dulos, se vale > preguntar todo lo que se les ocurra y proponer descabelladas y novedosas > t?cnicas para resolver el problema. El punto de usar Perl es divertirse, > expresarse y resolver. > > 1. Mantengamos _un_ s?lo hilo ra?z para el ejercicio (es decir, > cualquier cosa relacionada con el ejercicio, que sea un Reply al mensaje > original o alguno de los mensajes del hilo; evitar crear un mensaje > nuevo). > > 2. Cuando alguien quiera enviar una soluci?n _completa_, ponga en el > asunto "[solucion]". De ese modo aquellos que todav?a est?n pensando en > el ejercicio pero _no_ quieren "viciarse" ni quieren "pistas", pueden > dejar de leer ese mensaje. > > 3. Ser?a excelente dedicar algunos minutos de nuestra reuni?n mensual > para hablar del Quiz y las soluciones propuestas por los participantes. > > El Quiz del mes es como sigue: > > Todo el mundo conoce los n?meros 0-800-USEPERL, en los cuales se usan > letras para facilitar la memorizaci?n del n?mero tel?fonico. Si bien el > ejemplo que yo puse tiene dos palabras ("use" y "perl"), concentr?monos > en aquellos n?meros que tienen _una_ sola palabra de siete, seis o cinco > letras, e.g. 0-800-HALLACA, 0-800-0SOLERA o 0-800-00PIZZA. Noten que el > 0-800 y el '0' o '00' prefijos no son importantes. La pregunta es, > ?habr? palabras que _compartan_ el mismo n?mero? Es decir, dada la > palabra P1 en el diccionario, habr? otra palabra P2 que tenga el mismo > "n?mero telef?nico". > > La idea del ejercicio es escribir un programa que analice el diccionario > de un idioma [1], se concentre en las palabras que nos interesan y > cuando encuentre dos o m?s palabras que compartan el mismo n?mero > telef?nico indique el n?mero y _todas_ las palabras que lo comparten. > > [1] En cualquier sistema GNU/Linux, en /usr/share/dict/ tienen archivos > con las palabras del diccionario. En Debian, pueden instalarlos con > apt-get install wenglish wspanish > -- > Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! > Geek by nature, Linux by choice, Debian of course. > If you can't apt-get it, it isn't useful or doesn't exist. > GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm From rmcampos at me.gov.ve Fri Feb 11 07:42:09 2005 From: rmcampos at me.gov.ve (Rosa Campos) Date: Fri Feb 11 07:42:54 2005 Subject: [caracas-pm] Errores de timezone con Date::Manip Message-ID: <1108136529.2402.8.camel@03omisis099> estoy usando la funcion DateCalc de Date:.Manip $x=DateCalc($fi[$j],$ff[$j],$error,$modo); y me dice lo siguiente ERROR: Date::Manip unable to determine TimeZone. Date::Manip::Date_TimeZone called at /usr/share/perl5/Date/Manip.pm line 661 Date::Manip::Date_Init() called at /usr/share/perl5/Date/Manip.pm line 779 Date::Manip::ParseDateString('1902-4-2') called at /usr/share/perl5/Date/Manip.pm line 1479 Date::Manip::DateCalc('1902-4-2', '1907-4-3', 'SCALAR (0x815ff84)', 1) called at ./prue.pl line 21 revise la documentacion, y no se que hacer si me pueden ayudar se lo agradeceria Lic. Rosa Campos From emhn at telcel.net.ve Fri Feb 11 12:33:04 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Fri Feb 11 12:33:30 2005 Subject: [caracas-pm] Errores de timezone con Date::Manip In-Reply-To: <1108136529.2402.8.camel@03omisis099> References: <1108136529.2402.8.camel@03omisis099> Message-ID: <1108153984.30415.68.camel@localhost> On Fri, 2005-02-11 at 11:42 -0400, Rosa Campos wrote: > estoy usando la funcion DateCalc de Date:.Manip > > $x=DateCalc($fi[$j],$ff[$j],$error,$modo); > > y me dice lo siguiente > > ERROR: Date::Manip unable to determine TimeZone. El m?dulo Date::Manip necesita saber la zona horaria en la cual est?s trabajando. La zona horaria se define con la variable de ambiente TZ utilizando la forma convencional de definir zonas horarias como un desplazamiento a partir de UTC. En el caso de Venezuela, debe servirte #!/usr/bin/perl use Date::Manip; $Date::Manip::TZ = '-0400'; Date_Init(); ... (operaciones con Date::Manip han de funcionar bien) F?jate que tambi?n podr?a utilizar $ENV{TZ}, pues lo que hace es asignar la variable de ambiente TZ. El m?dulo Date::Manip busca _autom?ticamente_ esa variable; tener que especificarla a mano en los programas no es una buena idea. Prueba $ env | grep TZ y si no reporta valores, quiere decir que el administrador del sistema no ha colocado un valor por defecto para TZ (no es ni bueno, ni malo, simplemente no lo ha hecho). Dependiendo del uso del sistema, ser?a conveniente que todos los usuarios tuviesen la zona horaria por defecto asignada, y aquellos excepcionales (que viven en otros pa?ses pero se conectan a ese servidor) tengan un valor diferente. Puedes probar $ TZ="-0400"; export TZ y luego correr tu programa sin modificar, seguramente funcionar?. > revise la documentacion, y no se que hacer En el manual de Date::Manip hay una secci?n dedicada a timezones, que indica los lugares donde Date::Manip busca, y como asignarlo. -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From jrey at linuxsis.net Sat Feb 12 07:08:42 2005 From: jrey at linuxsis.net (Jose Rey) Date: Sat Feb 12 07:08:59 2005 Subject: [solucion] [golf] [caracas-pm] Caracas Perl Quiz #1 In-Reply-To: <20050209171935.GA14553@tyka.kitiara.org> References: <1107959729.19782.31.camel@localhost> <20050209171935.GA14553@tyka.kitiara.org> Message-ID: <420E1BFA.9010006@linuxsis.net> Ya que los expertos se manifiestan, se me antoja un partidito de golf :-9 -------------------------------------------- #!/usr/bin/perl -w while(<>) { chomp; $_=lc; $w = $_; tr {abc?????def????ghi????jklmno?o????pqrstuv????wxyz} {2222222233333334444444555666666666777788888889999}; $h{$_}{$w} = undef; } for ( values %h ) { @r = sort keys %$_; print join(", ", @r), "\n" if @r > 1; } -------------------------------------------- Uso: $ perl equiv.pl /ruta/al/dic01 /ruta/al/dic02 ... ? $perl equiv.pl < dic.dat Salida: Cada linea de la salida es una clase de equivalencia con al menos 2 palabras (todas las palabras son el mismo n?mero). Problemas: Si hay muchas palabras necesita mucha RAM !!!!!!!, una versi?n m?s comprensible, r?pida y compacta, pero que no detecta palabras duplicadas se muestra a continuaci?n: -------------------------------------------- #!/usr/bin/perl -w while(<>) { chomp; $_=lc; $w = $_; tr {abc?????def????ghi????jklmno?o????pqrstuv????wxyz} {2222222233333334444444555666666666777788888889999}; push @{$h{$_}}, $w; } for ( values %h ) { print join(", ", @$_), "\n" if @$_ > 1; } -------------------------------------------- Saludos Jose Luis Rey Cesar Mendoza wrote: >Hola, > >Aqu? les va mi soluci?n al quiz. > > From ibermude at ucab.edu.ve Sat Feb 12 10:19:26 2005 From: ibermude at ucab.edu.ve (Irving A. =?iso-8859-1?q?Berm=FAdez?= S.) Date: Sat Feb 12 10:19:19 2005 Subject: [solucion] [golf] [caracas-pm] Caracas Perl Quiz #1 In-Reply-To: <420E1BFA.9010006@linuxsis.net> References: <1107959729.19782.31.camel@localhost> <20050209171935.GA14553@tyka.kitiara.org> <420E1BFA.9010006@linuxsis.net> Message-ID: <200502121419.26501.ibermude@ucab.edu.ve> On Saturday 12 February 2005 11:08, Jose Rey wrote: > Ya que los expertos se manifiestan, se me antoja un partidito de golf :-9 No soy experto, pero para estrenarme en la lista pongo mi soluci?n. Hago reply al mensaje de JLR porque el correo original de EHN no me lleg? a trav?s de la lista sino a trav?s de un forward de un compa?ero que s? est? suscrito. Es importante decir que mi funci?n trans() la puedo simplificar y mejorar con un tr, como hizo JLR en su soluci?n para as? tambi?n hacerse cargo de las vocales y consonantes "adornadas" (Ojo, no hice trampa. Mi script lo escrib? anoche y acabo de ver esta soluci?n). Un detalle que no vi ac? fue que no prevee la aparici?n de caracteres como los ap?strofes, que considero deber?a obliterar. ;-) Bueno, h? va, por favor no peguen duro. :-) --------------------------------------------- #!/usr/bin/perl $dict = "/usr/share/dict/american-english"; %tel = (); open (DICT, "$dict") or die "poff! $!"; while () { s/\W//g; $_ = lc; (/^\w{5}\w{0,2}$/) ? $n = trans($_) : next; $tel{$n} .= "$_ " unless ($tel{$n} =~ /$_/); } foreach (sort { $a <=> $b } keys %tel) { print '0' x (7 - length $_) . "$_: $tel{$_}\n" if ($tel{$_} =~ /^\w+\s\w+/)}; sub trans { local ($_) = @_; # Debe haber una forma menos horrible de hacer esto. s/[abc]/2/g; s/[def]/3/g; s/[ghi]/4/g; s/[jkl]/5/g; s/[mno]/6/g; s/[pqrs]/7/g; s/[tuv]/8/g; s/[wxyz]/9/g; return $_; } --------------------------------------------- Saludos, From fjgonzalezm at cantv.net Tue Feb 15 14:12:24 2005 From: fjgonzalezm at cantv.net (Francisco Gonzalez) Date: Tue Feb 15 14:12:32 2005 Subject: [caracas-pm] Convertir timestamp expresado en numero de segundos Message-ID: <240960-22005221522122433@cantv.net> An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/caracas-pm/attachments/20050215/8709eead/attachment.htm From fjgonzalezm at cantv.net Tue Feb 15 14:22:37 2005 From: fjgonzalezm at cantv.net (Francisco Gonzalez) Date: Tue Feb 15 14:22:47 2005 Subject: [caracas-pm] Convertir timestamp expresado en numero de segundos Message-ID: <212550-220052215222237587@cantv.net> Correcci?n. Quise decir desde el "6-Enero-1980 00:00:00" On 2/15/2005 6:12 PM, Francisco Gonzalez wrote: > Saludos a todos en la lista. > > Quisiera saber si existe alguna funci?n o modulo que me pueda servir a > convertir una fecha expresada en el numero de segundos transcurridos > desde "1-Enero-1980 00:00:00", a un formato de dd/MM/aaaa hh24:mm:ss. > > Por ejemplo, que pueda tomar el valor 792539903 y saber que eso es > 15/02/2005 21:58:23 GMT > > Cualquier orientaci?n en como lograr esto, es bien recibido. > > Gracias por su tiempo. > > Francisco > > > ------------------------------------------------------------------------ > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm From lem at cantv.net Tue Feb 15 16:29:52 2005 From: lem at cantv.net (=?ISO-8859-1?Q?Luis_Mu=F1oz?=) Date: Tue Feb 15 16:29:20 2005 Subject: [caracas-pm] Convertir timestamp expresado en numero de segundos In-Reply-To: <212550-220052215222237587@cantv.net> References: <212550-220052215222237587@cantv.net> Message-ID: <20a616b6c994890692d4a2b92b83512b@cantv.net> El Feb 15, 2005, a las 6:22 PM, Francisco Gonzalez escribi?: > Correcci?n. Quise decir desde el "6-Enero-1980 00:00:00" Quieres Date::Parse, que va a traducir hasta el "Epoch". Luego puedes sumar el offset en segundos entre epoch (el de verdad) y el epoch al que te refieres. Saludos. -lem From cjpineda at cantv.net Thu Feb 17 11:40:24 2005 From: cjpineda at cantv.net (azrael) Date: Thu Feb 17 11:40:35 2005 Subject: [caracas-pm] Reunion del Sabado 26 de Febrero Message-ID: <209650-220052417194024815@cantv.net> Hola a todos El sitio para la reuni?n de este s?bado sera el ISEIT, ya esta confirmado, el detalle es que no tendr?amos proyector (al parecer tienen mas de un curso ese d?a) , por otro lado, la primera parte del tutorial se mover?a para el pr?ximo mes, para ver si captamos mas publico. nos vemos el s?bado Saludos Carlos J. Pineda E. Azra3l cjpineda@cantv.net cjpineda@gmail.com From cjpineda at cantv.net Thu Feb 17 11:44:25 2005 From: cjpineda at cantv.net (azrael) Date: Thu Feb 17 11:44:35 2005 Subject: [caracas-pm] Reunion del Sabado 19 de Febrero Message-ID: <324220-22005241719442561@cantv.net> tuve una peque?a confuci?n de eventos, ups, nos vemos el 19 de febrero. saludos ----------- Mensaje Original -------------- De: azrael [cjpineda@cantv.net] Para: caracas-pm@pm.org [caracas-pm@pm.org] Cc: Asunto: [caracas-pm] Reunion del Sabado 26 de Febrero Fecha: 17/02/2005 15:40:36 Mensaje: Hola a todos El sitio para la reuni?n de este s?bado sera el ISEIT, ya esta confirmado, el detalle es que no tendr?amos proyector (al parecer tienen mas de un curso ese d?a) , por otro lado, la primera parte del tutorial se mover?a para el pr?ximo mes, para ver si captamos mas publico. nos vemos el s?bado Saludos Carlos J. Pineda E. Azra3l cjpineda@cantv.net cjpineda@gmail.com _______________________________________________ caracas-pm mailing list caracas-pm@pm.org http://mail.pm.org/mailman/listinfo/caracas-pm From zeus at mipropio.com Fri Feb 18 05:06:48 2005 From: zeus at mipropio.com (Tony Rodriguez) Date: Fri Feb 18 05:07:16 2005 Subject: [caracas-pm] Reunion del Sabado 19 de Febrero In-Reply-To: <324220-22005241719442561@cantv.net> References: <324220-22005241719442561@cantv.net> Message-ID: <200502180906.49264.zeus@mipropio.com> Por que no lo dejamos mejor para el s?bado 26 y as? poder aprovechar tambi?n para asistir al festival de instalaci?n? De todas formas, si se decide que sea seguro ma?ana, por favor confirmen y as? tratar de organizar todo para poder asistir (yo trabajo regularmente los s?bados). Gracias. Nos vemos. Tony. El Jue 17 Feb 2005 15:44, azrael escribi?: > tuve una peque?a confuci?n de eventos, ups, nos vemos el 19 de febrero. > > saludos > > ----------- Mensaje Original -------------- > > De: azrael [cjpineda@cantv.net] > Para: caracas-pm@pm.org [caracas-pm@pm.org] > Cc: > Asunto: [caracas-pm] Reunion del Sabado 26 de Febrero > Fecha: 17/02/2005 15:40:36 > Mensaje: > > Hola a todos > > El sitio para la reuni?n de este s?bado sera el ISEIT, ya esta confirmado, > el detalle es que no tendr?amos proyector (al parecer tienen mas de un > curso ese d?a) , por otro lado, la primera parte del tutorial se mover?a > para el pr?ximo mes, para ver si captamos mas publico. > > nos vemos el s?bado > > Saludos > > Carlos J. Pineda E. > Azra3l > cjpineda@cantv.net > cjpineda@gmail.com > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm From agazso at ius.cc Fri Feb 18 10:53:24 2005 From: agazso at ius.cc (=?iso-8859-1?Q?Andr=E9s_Gazs=F3?=) Date: Fri Feb 18 10:53:42 2005 Subject: [caracas-pm] Reunion del Sabado 19 de Febrero In-Reply-To: <200502180906.49264.zeus@mipropio.com> Message-ID: <200502181853.j1IIrPKM004442@rs25s9.datacenter.cha.cantv.net> Estimado Sres. Yo tambi?n apoyo la moci?n de Toni de traspasar la reuni?n de Perl Mongers para el s?bado pr?ximo. Toda vez que este s?bado no podr?a asistir. En espera de vuestra pronta respuesta les saluda, Andr?s. ------------------------------------- Andr?s Gazs? Gazs? & Dol?nyi Abogados Telf. : +58 (212) 976.59.93 976.63.55 Fax. : +58 (212) 976.66.06 mailto: agazso@ius.cc ------------------------------------- -----Original Message----- From: caracas-pm-bounces@pm.org [mailto:caracas-pm-bounces@pm.org] On Behalf Of Tony Rodriguez Sent: Viernes, 18 de Febrero de 2005 09:07 a.m. To: cjpineda@cantv.net; Perl Mongers Caracas - Venezuela Subject: Re: [caracas-pm] Reunion del Sabado 19 de Febrero Por que no lo dejamos mejor para el s?bado 26 y as? poder aprovechar tambi?n para asistir al festival de instalaci?n? De todas formas, si se decide que sea seguro ma?ana, por favor confirmen y as? tratar de organizar todo para poder asistir (yo trabajo regularmente los s?bados). Gracias. Nos vemos. Tony. El Jue 17 Feb 2005 15:44, azrael escribi?: > tuve una peque?a confuci?n de eventos, ups, nos vemos el 19 de febrero. > > saludos > > ----------- Mensaje Original -------------- > > De: azrael [cjpineda@cantv.net] > Para: caracas-pm@pm.org [caracas-pm@pm.org] > Cc: > Asunto: [caracas-pm] Reunion del Sabado 26 de Febrero > Fecha: 17/02/2005 15:40:36 > Mensaje: > > Hola a todos > > El sitio para la reuni?n de este s?bado sera el ISEIT, ya esta confirmado, > el detalle es que no tendr?amos proyector (al parecer tienen mas de un > curso ese d?a) , por otro lado, la primera parte del tutorial se mover?a > para el pr?ximo mes, para ver si captamos mas publico. > > nos vemos el s?bado > > Saludos > > Carlos J. Pineda E. > Azra3l > cjpineda@cantv.net > cjpineda@gmail.com > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm _______________________________________________ caracas-pm mailing list caracas-pm@pm.org http://mail.pm.org/mailman/listinfo/caracas-pm From emhn at telcel.net.ve Fri Feb 18 12:01:17 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Fri Feb 18 12:01:26 2005 Subject: [caracas-pm] Reunion del Sabado 19 de Febrero In-Reply-To: <200502181853.j1IIrPKM004442@rs25s9.datacenter.cha.cantv.net> References: <200502181853.j1IIrPKM004442@rs25s9.datacenter.cha.cantv.net> Message-ID: <1108756877.4507.34.camel@localhost> On Fri, 2005-02-18 at 14:53 -0400, Andr?s Gazs? wrote: > Estimado Sres. > > Yo tambi?n apoyo la moci?n de Toni de traspasar la reuni?n de Perl Mongers > para el s?bado pr?ximo. Toda vez que este s?bado no podr?a asistir. Parece que la moci?n es moverlo para el s?bado 26 y combinarlo con el Festival de Instalaci?n. A m? tambi?n me parece buena idea, considerando que puede ser dif?cil para algunos de nosotros obtener dos "permisos" seguidos ;-) -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From cjpineda at cantv.net Fri Feb 18 12:01:19 2005 From: cjpineda at cantv.net (azrael) Date: Fri Feb 18 12:01:29 2005 Subject: [caracas-pm] Reunion del Sabado 19 de Febrero Message-ID: <258230-22005251820119864@cantv.net> yo tambien los apoyo Saludos Carlos J. Pineda E. Azra3l cjpineda@cantv.net cjpineda@gmail.com ----------- Mensaje Original -------------- De: Andr???s Gazs??? [agazso@ius.cc] Para: Perl Mongers Caracas - Venezuela [caracas-pm@pm.org] Cc: Asunto: RE: [caracas-pm] Reunion del Sabado 19 de Febrero Fecha: 18/02/2005 14:53:43 Mensaje: Estimado Sres. Yo tambi???n apoyo la moci???n de Toni de traspasar la reuni???n de Perl Mongers para el s???bado pr???ximo. Toda vez que este s???bado no podr???a asistir. En espera de vuestra pronta respuesta les saluda, Andr???s. ------------------------------------- Andr???s Gazs??? Gazs??? & Dol???nyi Abogados Telf. : +58 (212) 976.59.93 976.63.55 Fax. : +58 (212) 976.66.06 mailto: agazso@ius.cc ------------------------------------- -----Original Message----- From: caracas-pm-bounces@pm.org [mailto:caracas-pm-bounces@pm.org] On Behalf Of Tony Rodriguez Sent: Viernes, 18 de Febrero de 2005 09:07 a.m. To: cjpineda@cantv.net; Perl Mongers Caracas - Venezuela Subject: Re: [caracas-pm] Reunion del Sabado 19 de Febrero Por que no lo dejamos mejor para el s???bado 26 y as??? poder aprovechar tambi???n para asistir al festival de instalaci???n? De todas formas, si se decide que sea seguro ma???ana, por favor confirmen y as??? tratar de organizar todo para poder asistir (yo trabajo regularmente los s???bados). Gracias. Nos vemos. Tony. El Jue 17 Feb 2005 15:44, azrael escribi???: > tuve una peque???a confuci???n de eventos, ups, nos vemos el 19 de febrero. > > saludos > > ----------- Mensaje Original -------------- > > De: azrael [cjpineda@cantv.net] > Para: caracas-pm@pm.org [caracas-pm@pm.org] > Cc: > Asunto: [caracas-pm] Reunion del Sabado 26 de Febrero > Fecha: 17/02/2005 15:40:36 > Mensaje: > > Hola a todos > > El sitio para la reuni???n de este s???bado sera el ISEIT, ya esta confirmado, > el detalle es que no tendr???amos proyector (al parecer tienen mas de un > curso ese d???a) , por otro lado, la primera parte del tutorial se mover???a > para el pr???ximo mes, para ver si captamos mas publico. > > nos vemos el s???bado > > Saludos > > Carlos J. Pineda E. > Azra3l > cjpineda@cantv.net > cjpineda@gmail.com > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm > > _______________________________________________ > caracas-pm mailing list > caracas-pm@pm.org > http://mail.pm.org/mailman/listinfo/caracas-pm _______________________________________________ caracas-pm mailing list caracas-pm@pm.org http://mail.pm.org/mailman/listinfo/caracas-pm _______________________________________________ caracas-pm mailing list caracas-pm@pm.org http://mail.pm.org/mailman/listinfo/caracas-pm From zeus at mipropio.com Fri Feb 18 13:36:53 2005 From: zeus at mipropio.com (Tony Rodriguez) Date: Fri Feb 18 13:37:12 2005 Subject: [caracas-pm] Reunion del Sabado 19 de Febrero In-Reply-To: <1108756877.4507.34.camel@localhost> References: <200502181853.j1IIrPKM004442@rs25s9.datacenter.cha.cantv.net> <1108756877.4507.34.camel@localhost> Message-ID: <200502181736.54168.zeus@mipropio.com> El Vie 18 Feb 2005 16:01, Ernesto Hern?ndez-Novich escribi?: > que puede ser dif?cil para algunos de nosotros obtener dos "permisos" > seguidos ;-) Exacto!!! ;-) From zeus at mipropio.com Fri Feb 18 13:38:56 2005 From: zeus at mipropio.com (Tony Rodriguez) Date: Fri Feb 18 13:39:13 2005 Subject: [caracas-pm] Reunion del Sabado 19 de Febrero In-Reply-To: <258230-22005251820119864@cantv.net> References: <258230-22005251820119864@cantv.net> Message-ID: <200502181738.56584.zeus@mipropio.com> El Vie 18 Feb 2005 16:01, azrael escribi?: > yo tambien los apoyo > > Saludos K, perfecto. Entonces asumir? que la reuni?n queda pospuesta para el s?bado 26 de Febrero y as? podr? asistir a ambos eventos. En todo caso, nos veremos entonces ese d?a. Salu2. Tony. From alvarolinares at cantv.net Fri Feb 18 18:24:00 2005 From: alvarolinares at cantv.net (Alvaro Linares Cabré) Date: Fri Feb 18 18:24:43 2005 Subject: [caracas-pm] Reunion del Sabado 19 de Febrero Message-ID: <230180-2200526192240413@cantv.net> Hola a todos, A mi se me complica este fin, cuenten conmigo para el S?bado 26..... Alvaro "Demencia" Linares ----------- Mensaje Original -------------- De: Tony Rodriguez [zeus@mipropio.com] Para: emhn@telcel.net.ve [emhn@telcel.net.ve], Perl Mongers Caracas - Venezuela [caracas-pm@pm.org] Cc: Asunto: Re: [caracas-pm] Reunion del Sabado 19 de Febrero Fecha: 18/02/2005 17:52:00 Mensaje: El Vie 18 Feb 2005 16:01, Ernesto Hern?ndez-Novich escribi?: > que puede ser dif?cil para algunos de nosotros obtener dos "permisos" > seguidos ;-) Exacto!!! ;-) _______________________________________________ caracas-pm mailing list caracas-pm@pm.org http://mail.pm.org/mailman/listinfo/caracas-pm From emhn at telcel.net.ve Fri Feb 25 06:47:26 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Fri Feb 25 06:55:30 2005 Subject: [caracas-pm] =?iso-8859-1?q?Reuni=F3n?= de =?iso-8859-1?q?ma=F1ana?= Message-ID: <1109342846.20231.128.camel@localhost> Se confirma la reuni?n para ma?ana, en el ISEIT a partir de las 9:00am, coincidiendo con el Festival de Instalaci?n Linux que tendr? lugar durante todo el d?a. Para ma?ana conversaremos acerca del nuevo set de tutoriales para novatos, que comenzar?n en la reuni?n de Marzo y que en principio ser? presentado por Carlos Pineda y Daniel Rodr?guez. Tambi?n ser?a bueno comparar los resultados del ejercicio propuesto, a ver si alguien se anima a mostrar su soluci?n all?. Por ?ltimo, ?qu? tal si hablamos de "one liners"? -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From jrey at linuxsis.net Fri Feb 25 09:58:40 2005 From: jrey at linuxsis.net (Jose Rey) Date: Fri Feb 25 09:58:53 2005 Subject: [caracas-pm] =?ISO-8859-1?Q?Reuni=F3n_de_ma=F1ana?= In-Reply-To: <1109342846.20231.128.camel@localhost> References: <1109342846.20231.128.camel@localhost> Message-ID: <421F6750.4070703@linuxsis.net> Cut&Paste :-) perl -ne 's/.* (.).* .ll(.)/$1$2/ && print "$_\n"' <Se confirma la reuni?n para ma?ana, en el ISEIT a partir de las 9:00am, >coincidiendo con el Festival de Instalaci?n Linux que tendr? lugar >durante todo el d?a. > >Para ma?ana conversaremos acerca del nuevo set de tutoriales para >novatos, que comenzar?n en la reuni?n de Marzo y que en principio ser? >presentado por Carlos Pineda y Daniel Rodr?guez. > >Tambi?n ser?a bueno comparar los resultados del ejercicio propuesto, a >ver si alguien se anima a mostrar su soluci?n all?. > >Por ?ltimo, ?qu? tal si hablamos de "one liners"? > > EOT From lem at cantv.net Fri Feb 25 11:04:39 2005 From: lem at cantv.net (=?ISO-8859-1?Q?Luis_Mu=F1oz?=) Date: Fri Feb 25 11:04:06 2005 Subject: =?ISO-8859-1?Q?Re:_[caracas-pm]_Reuni=F3n_de_ma=F1ana?= In-Reply-To: <1109342846.20231.128.camel@localhost> References: <1109342846.20231.128.camel@localhost> Message-ID: <2d372e0b908df34914c34f051d5ed797@cantv.net> El Feb 25, 2005, a las 10:47 AM, Ernesto Hern?ndez-Novich escribi?: > Para ma?ana conversaremos acerca del nuevo set de tutoriales para > novatos, [...] ?qu? tal si hablamos de "one liners"? Hmmm. Tutoriales para novatos y one-liners pos?blemente no deber?an mezclarse :) Saludos. -lem From emhn at telcel.net.ve Fri Feb 25 13:18:29 2005 From: emhn at telcel.net.ve (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=) Date: Fri Feb 25 13:26:32 2005 Subject: [caracas-pm] =?ISO-8859-1?Q?Reuni=F3n?= de =?ISO-8859-1?Q?ma=F1ana?= In-Reply-To: <2d372e0b908df34914c34f051d5ed797@cantv.net> References: <1109342846.20231.128.camel@localhost> <2d372e0b908df34914c34f051d5ed797@cantv.net> Message-ID: <1109366309.20231.158.camel@localhost> On Fri, 2005-02-25 at 15:04 -0400, Luis Mu?oz wrote: > El Feb 25, 2005, a las 10:47 AM, Ernesto Hern?ndez-Novich escribi?: > > > Para ma?ana conversaremos acerca del nuevo set de tutoriales para > > novatos, [...] ?qu? tal si hablamos de "one liners"? > > Hmmm. Tutoriales para novatos y one-liners pos?blemente no deber?an > mezclarse :) Exacto... por eso no los vamos a mezclar: vamos a hablar del set de tutoriales para novatos que comienzan en _marzo_ y despu?s de planificar eso, vamos a hablar de one-liners. -- Ernesto Hern?ndez-Novich - On Linux 2.6.10 i686 - Unix: Live free or die! Geek by nature, Linux by choice, Debian of course. If you can't apt-get it, it isn't useful or doesn't exist. GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3 From juanjose at lunarpages.com Fri Feb 25 14:31:51 2005 From: juanjose at lunarpages.com (Juan Jose Natera Abreu) Date: Fri Feb 25 14:31:59 2005 Subject: [caracas-pm] =?ISO-8859-1?Q?Reuni=F3n?= de =?ISO-8859-1?Q?ma=F1ana?= In-Reply-To: <1109366309.20231.158.camel@localhost> References: <1109342846.20231.128.camel@localhost> <2d372e0b908df34914c34f051d5ed797@cantv.net> <1109366309.20231.158.camel@localhost> Message-ID: <1109370711.18393.11.camel@juanjose.lunarpages.lan> On Fri, 2005-02-25 at 17:18 -0400, Ernesto Hern?ndez-Novich wrote: > On Fri, 2005-02-25 at 15:04 -0400, Luis Mu?oz wrote: > > El Feb 25, 2005, a las 10:47 AM, Ernesto Hern?ndez-Novich escribi?: > > > > > Para ma?ana conversaremos acerca del nuevo set de tutoriales para > > > novatos, [...] ?qu? tal si hablamos de "one liners"? > > > > Hmmm. Tutoriales para novatos y one-liners pos?blemente no deber?an > > mezclarse :) > > Exacto... por eso no los vamos a mezclar: vamos a hablar del set de > tutoriales para novatos que comienzan en _marzo_ y despu?s de planificar > eso, vamos a hablar de one-liners. Entonces se te van a aburrir los no tan novatos, yo sugiero que las reuniones, dentro de lo posible, tengan _algo_ de interesante para cada quien. Especialmente si van a hacer un set, de cuantos meses estan hablando? dos al menos. -- Juan Jose Natera Abreu From jrey at linuxsis.net Mon Feb 28 14:37:21 2005 From: jrey at linuxsis.net (Jose Rey) Date: Mon Feb 28 14:37:35 2005 Subject: [caracas-pm] Perl/Linux =?iso-8859-1?q?=F3_Perlix_=F3_Perlux?= Message-ID: <42239D21.5090504@linuxsis.net> Me encontre esto en freshmeat Perl/Linux is a Linux distribution where all programs are written in Perl. The only compiled code in this Perl/Linux system is the Linux Kernel (not currently built with this project), Perl, and uClibc. http://freshmeat.net/projects/perllinux/?branch_id=51501&release_id=189168 Disfrutenlo Jose Luis Rey