From jdelgado a lsi.upc.edu Fri Jul 3 09:12:41 2009 From: jdelgado a lsi.upc.edu (Jordi Delgado) Date: Fri, 3 Jul 2009 18:12:41 +0200 Subject: [bcn-pm] Amelia Andersdotter @ Citilab Message-ID: <20090703161241.GA10934@entropia.lsi.upc.edu> Hola, FYI: Evento: Amelia Andersdotter @ Citilab "Amelia Andersdotter of the Swedish Pirate Party invited by Virtual European Parliament (VEP) research programme" Descripción: Informational Meeting Organizador(a): CitiLab-Cornellà Fecha y hora de inicio: el martes, 07 de julio a las 19:00 Finalización: el martes, 07 de julio a las 21:00 Lugar: CitiLab-Cornellà, Barcelona Salut! Jordi From jdelgado a lsi.upc.edu Tue Jul 14 08:34:46 2009 From: jdelgado a lsi.upc.edu (Jordi Delgado) Date: Tue, 14 Jul 2009 17:34:46 +0200 Subject: [bcn-pm] programilla Perl, inutil pero divertido Message-ID: <20090714153446.GA3505@entropia.lsi.upc.edu> Buenas, Algunos os acordareis de aquel programilla en Lisp que os mostre en una reunion de mongers, que hacia memoizing auto-modificando su propio codigo. Bien, creo que esto no es posible en Perl, ya que se compila a bytecode y luego se interpreta (por cierto, si me equivoco y alguien sabe de una subrutina que, dado un nombre, retorne una string con el codigo fuente de la subrutina con ese nombre que lo diga; que yo sepa no existe). Sea como sea, aqui va un programilla bastante tontito que hace algo parecido a lo que hacia aquel programa Lisp (ya se que con un array se resuelve mejor el problema, que conste). Completamente inutil, bastante sencillo (estoy intentando llegar al nivel Alpaca antes del YAPC de Lisboa), pero... entretenido. ## Esta funcion 'costly' no sirve para nada, solo es la supuesta funcion que ## cuesta mucho de calcular, y que no queremos calcular mas de una vez para ## cada valor del parametro. sub costly { print "This computation takes a lot of time with parameter $_[0]...\n"; return $_[0] + 1; } ## 'memoize_funny' retorna una closure donde la variable $code_string contiene ## el codigo que se va a modificar y que se va a ejecutar mediante 'eval'. El ## valor inicial sirve para detectar la presencia de un valor nuevo, al que ## todavia no hemos aplicado nunca la funcion 'costly'. sub memoize_funny { my $code_string = 'if (1) { \'dummy\' };'; return sub { my $param = shift; my $result = eval $code_string; if ($result eq 'dummy') { $result = &costly($param); $code_string = "if (\$param == $param) { $result } els$code_string"; } else { print "No costly call! Result: $result\n"; } } } ## Esto solo sirve para probar lo anterior my $computing_function = &memoize_funny(); while () { chomp; &$computing_function($_); } Bueno, es para animar la lista, y si se os ocurre alguna manera mas bizarra de hacer lo mismo... Ya se que no es muy complicado, pero se hace lo que se puede... ;-) Salud! Jordi From jluis a escomposlinux.org Wed Jul 15 02:02:50 2009 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Wed, 15 Jul 2009 11:02:50 +0200 Subject: [bcn-pm] programilla Perl, inutil pero divertido In-Reply-To: <20090714153446.GA3505@entropia.lsi.upc.edu> References: <20090714153446.GA3505@entropia.lsi.upc.edu> Message-ID: <200907151102.50712.jluis@escomposlinux.org> El Tuesday, 14 de July de 2009 17:34:46 Jordi Delgado va escriure: > Buenas, > > Algunos os acordareis de aquel programilla en Lisp que os mostre en una > reunion de mongers, que hacia memoizing auto-modificando su propio codigo. > Bien, creo que esto no es posible en Perl, ya que se compila a bytecode y > luego se interpreta (por cierto, si me equivoco y alguien sabe de una > subrutina que, dado un nombre, retorne una string con el codigo fuente de > la subrutina con ese nombre que lo diga; que yo sepa no existe). http://search.cpan.org/~nwclark/perl-5.8.9/ext/B/B/Deparse.pm http://search.cpan.org/~vpit/B-RecDeparse-0.04/lib/B/RecDeparse.pm >.... > sub memoize_funny { > my $code_string = 'if (1) { \'dummy\' };'; my $code_string = 'undef;'; > return sub { > my $param = shift; > my $result = eval $code_string; > if ($result eq 'dummy') { > $result = &costly($param); > $code_string = "if (\$param == $param) { $result } els$code_string"; > } else { > print "No costly call! Result: $result\n"; > } if (defined $result ) { print "No costly call! Result: $result\n"; } else { $result = costly($param); $code_string = "\$param == $param ?$result:$code_string"; } >.... > Bueno, es para animar la lista, y si se os ocurre alguna manera mas bizarra > de hacer lo mismo... use B::Deparse; sub costly { return $_[0] + 1; } { my $code_string = ''; sub memoize_funny { my $param = shift; print("Cheap\n") && return $1 if $code_string =~ /<$param>([^<]*)/; my $result = costly($param); $code_string .= "<$param>$result"; return $result; } } while () { chomp; die unless memoize_funny($_) == costly($_); } my $deparse= B::Deparse->new(); print $deparse->coderef2text(\&memoize_funny); From jdelgado a lsi.upc.edu Wed Jul 15 05:03:38 2009 From: jdelgado a lsi.upc.edu (Jordi Delgado) Date: Wed, 15 Jul 2009 14:03:38 +0200 Subject: [bcn-pm] programilla Perl, inutil pero divertido In-Reply-To: <200907151102.50712.jluis@escomposlinux.org> References: <20090714153446.GA3505@entropia.lsi.upc.edu> <200907151102.50712.jluis@escomposlinux.org> Message-ID: <20090715120338.GA5617@entropia.lsi.upc.edu> Hola, Gracias Jose Luis, pero lo que tu has hecho no es exactamente lo que yo queria hacer, que es conseguir una funcion que se auto-modificara en tiempo de ejecucion (aunque si que es bizarro, si). Sin embargo, gracias al deparse que utilizas puedo hacer lo que queria: ---------------------------------------------------- use B::Deparse; sub costly { return $_[0] + 1; } sub memoize_funny { my $param = shift; if (1) { my $result = &costly($param); print "Computing costly... $result\n"; my $deparse= B::Deparse->new(); $_ = $deparse->coderef2text(\&memoize_funny); s/(.*)do/$1if (1)/; # This is because the initial 'if (1)' # is deparsed as a 'do ' s/(.*)if /$1if (\$param == $param) { print "cheap: $result\\n" } elsif /; eval "sub memoize_funny $_"; } }; while () { ## exit with ctrl + d chomp; &memoize_funny($_); } ## To see how the program has been modified... my $deparse= B::Deparse->new(); $_ = $deparse->coderef2text(\&memoize_funny); print; ---------------------------------------------------- Bueno, pues eso... que casi es la hora de comer, ahora no te pondras a hacer nada serio y... Salud! Jordi From jluis a escomposlinux.org Wed Jul 15 05:55:14 2009 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Wed, 15 Jul 2009 14:55:14 +0200 Subject: [bcn-pm] programilla Perl, inutil pero divertido In-Reply-To: <20090715120338.GA5617@entropia.lsi.upc.edu> References: <20090714153446.GA3505@entropia.lsi.upc.edu> <200907151102.50712.jluis@escomposlinux.org> <20090715120338.GA5617@entropia.lsi.upc.edu> Message-ID: <200907151455.14330.jluis@escomposlinux.org> El Wednesday, 15 de July de 2009 14:03:38 Jordi Delgado va escriure: > Gracias Jose Luis, pero lo que tu has hecho no es exactamente lo > que yo queria hacer, que es conseguir una funcion que se auto-modificara > en tiempo de ejecucion (aunque si que es bizarro, si). > > Sin embargo, gracias al deparse que utilizas puedo hacer lo que queria: Ya me imagine que querias realizar algo asi. > Bueno, pues eso... que casi es la hora de comer, ahora no te pondras a > hacer nada serio y... Por lo que he leido de los moduloes de B se puede modificar el codigo de la rutina sin necesidad de decopilar, modificar, recompilar y asignar el nuevo arbol a la rutina. Aunque pernsar en ello hace que se magudice el hambre ;). From luismottacampos a yahoo.co.uk Wed Jul 15 11:21:33 2009 From: luismottacampos a yahoo.co.uk (Luis Motta Campos) Date: Wed, 15 Jul 2009 20:21:33 +0200 Subject: [bcn-pm] Wikidot Spam - WTF? Message-ID: <4A5E1E2D.4080504@yahoo.co.uk> Hi, everybody. Just received a spam message (wtf?) from Wikidot (wtf?), claiming that I've registered myself (wtf?) to a wiki run by them (wtf?). After a little investigation, discovered that Wikidot is running tallerperl.wikidot.com, a.k.a. "Organización del Primer Taller de Perl en España" (wtf?). The message was to inform that they're changing the wikies they provide (wtf?) to offer a 30 pixels wide header and bottom (wtf? wtf?) with their logo (wtf?), trackers (wtf?) -- I see Google Analitics and QuantaCast (wtf? wtf?), and "interesting links to third parties" (wtf!!!). I believe everybody here agree this (both the spamming and the defacing of any website) is unacceptable. I would like to offer to remove the content and close the Wiki. If nobody else can provide a server, I can try getting one. I can also help with the system administration and transfer of the wiki contents, as needed. We just need to get a domain name to go with it (SpanishPerlWorkshop.{perl,pm}.org? SpanishPerlWorkshop.es? tallerperl.es?). In other words: I'm leaving the wiki, and I'm trying to drag as many of you (all, if possible) as I can. Is anyone interested? Hasta pronto, -- Luis Motta Campos is a software engineer, Perl Programmer, foodie and photographer. From fxn a hashref.com Wed Jul 15 14:27:54 2009 From: fxn a hashref.com (Xavier Noria) Date: Wed, 15 Jul 2009 23:27:54 +0200 Subject: [bcn-pm] Wikidot Spam - WTF? In-Reply-To: <4A5E1E2D.4080504@yahoo.co.uk> References: <4A5E1E2D.4080504@yahoo.co.uk> Message-ID: <31a130740907151427q7960aaa3k77b996ca4b22bb54@mail.gmail.com> On Wed, Jul 15, 2009 at 8:21 PM, Luis Motta Campos wrote: > Just received a spam message (wtf?) from Wikidot (wtf?), claiming that > I've registered myself (wtf?) to a wiki run by them (wtf?). He recibido el mismo mensaje, no sabia cual podia ser el vinculo. From luismottacampos a yahoo.co.uk Thu Jul 16 05:53:55 2009 From: luismottacampos a yahoo.co.uk (Luis Motta Campos) Date: Thu, 16 Jul 2009 14:53:55 +0200 Subject: [bcn-pm] Wikidot Spam - WTF? In-Reply-To: <31a130740907151427q7960aaa3k77b996ca4b22bb54@mail.gmail.com> References: <4A5E1E2D.4080504@yahoo.co.uk> <31a130740907151427q7960aaa3k77b996ca4b22bb54@mail.gmail.com> Message-ID: <4A5F22E3.50309@yahoo.co.uk> Xavier Noria wrote: > On Wed, Jul 15, 2009 at 8:21 PM, Luis Motta > Campos wrote: > >> Just received a spam message (wtf?) from Wikidot (wtf?), claiming that >> I've registered myself (wtf?) to a wiki run by them (wtf?). > > He recibido el mismo mensaje, no sabia cual podia ser el vinculo. Hi, Xavier. Now that you know, what are you planning to do about it? I unsubscribed from Wikidot yesterday, and reported them as spammers to SpamCop.net, my favourite online spam catalog. ;) Hasta pronto! -- Luis Motta Campos is a software engineer, Perl Programmer, foodie and photographer. From fred a fredsampedro.com Tue Jul 21 14:40:01 2009 From: fred a fredsampedro.com (Fred Sampedro) Date: Tue, 21 Jul 2009 23:40:01 +0200 Subject: [bcn-pm] Bot(?) d'IRC Message-ID: <24f802690907211440u4ee13035rc66814f5260c40ec@mail.gmail.com> Hola Mongers! Estava disfrutant d'una aborridota nit d'estiu al irc (#barcelona.pm all the way!) i se'm ha ocurrit quelcom per tal de tocar una mica de Perl i fer alguna cosa més o menys útil. La idea és que jo, com suposo que la majoria, deixa el IRC obert i se'n va a sopar/donar una volta/piscina... Aleshores quan torno puc saber si m'han parlat en els canals(per llumetes de la GUI), pero si vull veure el misatge concret he de fer scrolling cap amunt a la sala fins a trobar-lo en cas de que a la sala hi hagi bastanta activitat. Trobo interessant fer algun tipus d'utilitat d'IRC (bot? plugin del client?), ja sigui a nivell d'usuari de la room (d'us personal), o a nivell de servidor (que proporciona el servei als usuaris de la sala) de manera que se li pugui demanar al bot quins misatges han estat dirigits a tu (extensio a altres nicks) en la sala Foo durant les 15.00 i les 18.00 del dia xx-xx-xx. Imagino que bàsicament caldria anar guardant els logs amb els timestamp dels misatges i despres parsejar els logs tornant la informació que es desitgi. Algú ja ha treballat amb aquest tipus de scripts? He instalat Bot::BasicBot i he conseguit que un bot entri a una sala. Potser algú utilitza algun client d'IRC que ja té aquesta funcionalitat implementada! no sóc fan de reinventar la roda :D Ho he parlat una mica amb l'alexm, i es podria fer a nivell de servidor i més elaborat, obrint un repo a git i comentant-ho a #opers ... Doncs això, ens veiem per #barcelona.pm ! :) -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From alexm a alexm.org Wed Jul 22 05:04:41 2009 From: alexm a alexm.org (Alex Muntada) Date: Wed, 22 Jul 2009 14:04:41 +0200 Subject: [bcn-pm] Bot(?) d'IRC In-Reply-To: <24f802690907211440u4ee13035rc66814f5260c40ec@mail.gmail.com> References: <24f802690907211440u4ee13035rc66814f5260c40ec@mail.gmail.com> Message-ID: <35064d940907220504s4967a74x859cad1400fcf105@mail.gmail.com> + Fred Sampedro : > Trobo interessant fer algun tipus d'utilitat d'IRC (bot? plugin del > client?), ja sigui a nivell d'usuari de la room (d'us personal), o a nivell > de servidor (que proporciona el servei als usuaris de la sala) de manera que > se li pugui demanar al bot quins misatges han estat dirigits a tu (extensio > a altres nicks) en la sala Foo durant les 15.00 i les 18.00 del dia > xx-xx-xx. Tal com vam parlar a la sala, jo veig dos enfocaments possibles: - un plugin per al client (per exemple, l'xchat permet fer-los en perl) - un bot per a la sala #barcelona.pm (que pot tenir d'altres funcionalitats prou interessants de passada) Què en penseu els habituals a la sala? I la resta? Us sembla bona idea tenir un bot que guardi els logs de la sala i se li puguin preguntar coses? Quan és la propera reunió, la llista de xerrades pendents, etc. -- Alex Muntada http://alexm.org/ From adherml a gmail.com Wed Jul 22 05:15:05 2009 From: adherml a gmail.com (=?ISO-8859-1?B?QWRyaeFuIEgu?=) Date: Wed, 22 Jul 2009 14:15:05 +0200 Subject: [bcn-pm] Bot(?) d'IRC In-Reply-To: <35064d940907220504s4967a74x859cad1400fcf105@mail.gmail.com> References: <24f802690907211440u4ee13035rc66814f5260c40ec@mail.gmail.com> <35064d940907220504s4967a74x859cad1400fcf105@mail.gmail.com> Message-ID: <51a9e5e20907220515q61d39c82kfd830df3f0004fee@mail.gmail.com> Bones, Feia temps que no escribia, no ho diré gaire alt però potser el motiu és que ara per ara utilitzo python xD Això que dieu de lo del bot, hi havia un paio per freenode que tenia una cosa semblant, una mena de bouncer, si no recordo malament, que després li generaba uns bonics htmls on podia consultar tots els missatges que li havien adreçat. Potser us interessa aquesta idea, el que no recordo es el nick del paio ni res. Crec que paraba per #perl i que si li foties un ctcp version et tornaba el seu nick+bot. 2009/7/22 Alex Muntada > + Fred Sampedro : > > > Trobo interessant fer algun tipus d'utilitat d'IRC (bot? plugin del > > client?), ja sigui a nivell d'usuari de la room (d'us personal), o a > nivell > > de servidor (que proporciona el servei als usuaris de la sala) de manera > que > > se li pugui demanar al bot quins misatges han estat dirigits a tu > (extensio > > a altres nicks) en la sala Foo durant les 15.00 i les 18.00 del dia > > xx-xx-xx. > > Tal com vam parlar a la sala, jo veig dos enfocaments possibles: > > - un plugin per al client (per exemple, l'xchat permet fer-los en perl) > - un bot per a la sala #barcelona.pm (que pot tenir d'altres > funcionalitats > prou interessants de passada) > > Què en penseu els habituals a la sala? I la resta? Us sembla bona idea > tenir un bot que guardi els logs de la sala i se li puguin preguntar coses? > Quan és la propera reunió, la llista de xerrades pendents, etc. > > -- > Alex Muntada > http://alexm.org/ > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm en pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org -- Slds. Adrián H. ------------ pr?a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From alexm a alexm.org Wed Jul 22 05:30:59 2009 From: alexm a alexm.org (Alex Muntada) Date: Wed, 22 Jul 2009 14:30:59 +0200 Subject: [bcn-pm] programilla Perl, inutil pero divertido In-Reply-To: <200907151102.50712.jluis@escomposlinux.org> References: <20090714153446.GA3505@entropia.lsi.upc.edu> <200907151102.50712.jluis@escomposlinux.org> Message-ID: <35064d940907220530l5df86b83x2b5848e668b36da7@mail.gmail.com> + Jose Luis Perez Diez : > my $deparse= B::Deparse->new(); > print $deparse->coderef2text(\&memoize_funny); No tenia present que el B::Deparse es pugués utilitzar com un mòdul estàndard a part de com un backend del compilador de Perl. Moltes gràcies als dos per aquest fil tant interessant :) -- Alex Muntada http://alexm.org/ From alexm a alexm.org Wed Jul 22 05:36:25 2009 From: alexm a alexm.org (Alex Muntada) Date: Wed, 22 Jul 2009 14:36:25 +0200 Subject: [bcn-pm] Bot(?) d'IRC In-Reply-To: <51a9e5e20907220515q61d39c82kfd830df3f0004fee@mail.gmail.com> References: <24f802690907211440u4ee13035rc66814f5260c40ec@mail.gmail.com> <35064d940907220504s4967a74x859cad1400fcf105@mail.gmail.com> <51a9e5e20907220515q61d39c82kfd830df3f0004fee@mail.gmail.com> Message-ID: <35064d940907220536n4e3b2430w3c6fb4d336b67eae@mail.gmail.com> + Adrián H. : > Feia temps que no escribia, no ho diré gaire alt però potser el motiu > és que ara per ara utilitzo python xD Hi ha d'altra gent a la llista que usen d'altres llenguatges, això no ha estat mai cap impediment ni per la llista ni per les reunions. Si tens ganes de participar, que no sigui per aquest motiu :-) > Això que dieu de lo del bot, hi havia un paio per freenode que tenia una > cosa semblant, una mena de bouncer, si no recordo malament, que després > li generaba uns bonics htmls on podia consultar tots els missatges que li > havien adreçat. Estic segur que hi ha molts bots i per a tots els gustos. Si la idea us sembla interessant, ja farem una mica de recerca. Records i moltes gràcies pel comentari! -- Alex Muntada http://alexm.org/ From sfandino a yahoo.com Thu Jul 23 05:54:22 2009 From: sfandino a yahoo.com (Salvador Fandino) Date: Thu, 23 Jul 2009 05:54:22 -0700 (PDT) Subject: [bcn-pm] [Madrid-pm] Viaje a la YAPC In-Reply-To: <4A6854BC.2090309@kuperman.com.ar> References: <4A61BED6.5060701@kuperman.com.ar> <982340880907230145ifb1b81cyc9c4cc9c10a09b01@mail.gmail.com> <810904.63787.qm@web52707.mail.re2.yahoo.com> <4A6854BC.2090309@kuperman.com.ar> Message-ID: <329842.64818.qm@web52709.mail.re2.yahoo.com> [Copio a Barcelona.pm por si alguno de los que viene de alli se quiere apuntar tambien. Estamos hablando del viaje a la YAPC::EU y de quedar el domingo por la tarde/noche en Lisboa para ir al preemeeting y tomar unas cervezas] ----- Original Message ---- > From: Diego Kuperman > To: Lista de correo de Madrid Perl Mongers > Sent: Thursday, July 23, 2009 2:17:00 PM > Subject: Re: [Madrid-pm] Viaje a la YAPC > > Hola! > > On 23/7/09 11:05, Salvador Fandino wrote: > > hola, > > > > en la wiki de la conferencia hay una serie de paginas donde poner donde se > aloja cada uno y los vuelos en los que se viaja... > > > > http://yapceurope2009.org/ye2009/wiki?node=WhoIsStayingWhere > > http://yapceurope2009.org/ye2009/wiki?node=AirArrivals > > http://yapceurope2009.org/ye2009/wiki?node=AirDepartures > > > > Por cierto, los que lleguemos el domingo a una hora razonable (o antes) > quedaremos para tomar unas cervezas, no? > > > Seguro!, nosotros estaremos llegando sobre las 18hs segun mis calculos. > Incluye el 20% extra, desviacion profecional :) > > http://yapceurope2009.org/ye2009/wiki?node=PreconferenceMeeting > > Nos apuntamos en esa y luego nos vamos a cenar? Nosotros (David, Rafa y yo) aterrizamos a las 20:10 asi que no creo que nos de tiempo a llegar al pre-meeting. ¿que tal si hacemos un intercambio de telefonos? para no ponerlos en un sitio publico (= estas listas), si quereis mandadmelos a mi en privado, y yo los recopilo y luego los reenvio (en privado otra vez, claro). - Salva From alexm a alexm.org Thu Jul 23 06:33:24 2009 From: alexm a alexm.org (Alex Muntada) Date: Thu, 23 Jul 2009 15:33:24 +0200 Subject: [bcn-pm] [Madrid-pm] Viaje a la YAPC In-Reply-To: <329842.64818.qm@web52709.mail.re2.yahoo.com> References: <4A61BED6.5060701@kuperman.com.ar> <982340880907230145ifb1b81cyc9c4cc9c10a09b01@mail.gmail.com> <810904.63787.qm@web52707.mail.re2.yahoo.com> <4A6854BC.2090309@kuperman.com.ar> <329842.64818.qm@web52709.mail.re2.yahoo.com> Message-ID: <35064d940907230633oc1da230h9b5c0d8456068712@mail.gmail.com> + Salvador Fandino : > ¿que tal si hacemos un intercambio de telefonos? Google Docs? -- Alex Muntada http://alexm.org/ From avilella a gmail.com Mon Jul 27 03:53:22 2009 From: avilella a gmail.com (Albert Vilella) Date: Mon, 27 Jul 2009 11:53:22 +0100 Subject: [bcn-pm] numeros en notacions no estandard Message-ID: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> Hola, Algu sap quina es la manera mes adequada de convertir numeros en notacions com aquesta: 91.8M 12.3G perl no tracta el M en mega i G en giga automaticament... Gracies -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From quim a rovira.cat Mon Jul 27 04:06:26 2009 From: quim a rovira.cat (Quim Rovira) Date: Mon, 27 Jul 2009 13:06:26 +0200 Subject: [bcn-pm] numeros en notacions no estandard In-Reply-To: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> References: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> Message-ID: No se si et farà el fet... #!/usr/bin/perl # use warnings; use strict; my $NUM = $ARGV[0]; my @MULTS = ('','k','M','G'); my $k = (log($NUM)/log(10)); my $kk = int($k/3); #print "k is $k\nkk is $kk\n10^kk is ".(1000**$kk)."\n"; print "Num is: ".sprintf("%.2f%s",$NUM/(1000**$kk),$MULTS[$kk])."\n"; On Mon, Jul 27, 2009 at 12:53 PM, Albert Vilella wrote: > Hola, > > Algu sap quina es la manera mes adequada de convertir numeros en notacions > com aquesta: > > 91.8M > 12.3G > > perl no tracta el M en mega i G en giga automaticament... > > Gracies > > > > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org > -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From explorer a joaquinferrero.com Mon Jul 27 04:25:39 2009 From: explorer a joaquinferrero.com (Joaquin Ferrero) Date: Mon, 27 Jul 2009 13:25:39 +0200 Subject: [bcn-pm] numeros en notacions no estandard In-Reply-To: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> References: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> Message-ID: <4A6D8EB3.3080703@joaquinferrero.com> Albert Vilella escribió: > Hola, > > Algu sap quina es la manera mes adequada de convertir numeros en > notacions com aquesta: > > 91.8M > 12.3G > > perl no tracta el M en mega i G en giga automaticament... > #/usr/bin/perl -l use Number::Format qw(:subs); $x = "12.3G"; print unformat_number($x); # 13207024435.2 $x = "91.8M"; print unformat_number($x); # 96259276.8 $x = "12.3G"; print unformat_number($x, base => 1000); # 12300000000 -- JF^D From jmerelo a geneura.ugr.es Mon Jul 27 04:26:36 2009 From: jmerelo a geneura.ugr.es (Juan Julian Merelo Guervos) Date: Mon, 27 Jul 2009 13:26:36 +0200 Subject: [bcn-pm] numeros en notacions no estandard In-Reply-To: <4A6D8EB3.3080703@joaquinferrero.com> References: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> <4A6D8EB3.3080703@joaquinferrero.com> Message-ID: <4A6D8EEC.5080002@geneura.ugr.es> Joaquin Ferrero escribió: > Albert Vilella escribió: > >> Hola, >> >> Algu sap quina es la manera mes adequada de convertir numeros en >> notacions com aquesta: >> >> 91.8M >> 12.3G >> >> perl no tracta el M en mega i G en giga automaticament... >> >> > > #/usr/bin/perl -l > use Number::Format qw(:subs); > > $x = "12.3G"; print unformat_number($x); # 13207024435.2 > $x = "91.8M"; print unformat_number($x); # 96259276.8 > $x = "12.3G"; print unformat_number($x, base => 1000); # 12300000000 > > > Lo que no sepa el Explorer... JJ From alexm a alexm.org Mon Jul 27 08:38:20 2009 From: alexm a alexm.org (Alex Muntada) Date: Mon, 27 Jul 2009 17:38:20 +0200 Subject: [bcn-pm] numeros en notacions no estandard In-Reply-To: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> References: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> Message-ID: <35064d940907270838h14a9096ds20ec655896fd8414@mail.gmail.com> + Albert Vilella : > Algu sap quina es la manera mes adequada de convertir numeros > en notacions com aquesta: > > 91.8M > 12.3G Seguint el suggeriment d'en Joaquín he provat de fer el que l'Albert demanava: perl -MNumber::Format=:subs -le ' print format_bytes(999999)' Curiosament, si el vostre «locale» és català o castellà, us donarà un error com aquest: Number::Format: {thousands_sep} and {decimal_point} may not be equal at -e line 1 Això es deu a què nosaltres usem la coma per als decimals. Si canvieu el $LANG de l'intèrpret d'ordres per C o POSIX, aleshores funciona bé. Evidentment és un error, miraré si ja és conegut. -- Alex Muntada http://alexm.org/ From alexm a alexm.org Mon Jul 27 09:00:21 2009 From: alexm a alexm.org (Alex Muntada) Date: Mon, 27 Jul 2009 18:00:21 +0200 Subject: [bcn-pm] numeros en notacions no estandard In-Reply-To: <35064d940907270838h14a9096ds20ec655896fd8414@mail.gmail.com> References: <358f4d650907270353h710bfc9h9ce30edaf080e20a@mail.gmail.com> <35064d940907270838h14a9096ds20ec655896fd8414@mail.gmail.com> Message-ID: <35064d940907270900q7da62b3bhf935884ab42e2258@mail.gmail.com> + Alex Muntada : > Si canvieu el $LANG de l'intèrpret d'ordres per C o POSIX, > aleshores funciona bé. Evidentment és un error, miraré si ja > és conegut. Veig que a la versió 1.72 del Number::Format ja no passa. Jo ho havia provat en una ubuntu jaunty (1.52). -- Alex Muntada http://alexm.org/ From jmerelo a geneura.ugr.es Wed Jul 29 00:12:52 2009 From: jmerelo a geneura.ugr.es (Juan Julian Merelo Guervos) Date: Wed, 29 Jul 2009 09:12:52 +0200 Subject: [bcn-pm] =?iso-8859-1?q?=BFPasswords_de_PerlMonks_craqueadas=3F?= Message-ID: <4A6FF674.8060103@geneura.ugr.es> ¿Habéis visto lo que hay ahora mismo en el chatterbox de Perlmonks? Saludos JJ From sfandino a yahoo.com Wed Jul 29 01:17:55 2009 From: sfandino a yahoo.com (Salvador Fandino) Date: Wed, 29 Jul 2009 01:17:55 -0700 (PDT) Subject: [bcn-pm] =?iso-8859-1?q?=BFPasswords_de_PerlMonks_craqueadas=3F?= In-Reply-To: <4A6FF674.8060103@geneura.ugr.es> References: <4A6FF674.8060103@geneura.ugr.es> Message-ID: <327109.7701.qm@web52707.mail.re2.yahoo.com> Hola > From: Juan Julian Merelo Guervos > To: Barcelona Perl Mongers > Sent: Wednesday, July 29, 2009 9:12:52 AM > Subject: [bcn-pm] ¿Passwords de PerlMonks craqueadas? > > ¿Habéis visto lo que hay ahora mismo en el chatterbox de Perlmonks? Aqui cuentan algo mas: http://perlmonks.org/?node_id=784123 Por lo que se ve, han conseguido entrar en las maquinas donde corre Perlmonks, y las claves de los usuarios estan en la base de datos en claro... menuda metedura de pata!!! Por lo que pone en el log, las maquinas corren FreeBSD 4.8-STABLE, que salio en el 2003! - Salva From jmerelo a geneura.ugr.es Wed Jul 29 01:15:58 2009 From: jmerelo a geneura.ugr.es (Juan Julian Merelo Guervos) Date: Wed, 29 Jul 2009 10:15:58 +0200 Subject: [bcn-pm] =?iso-8859-1?q?Evitar_recursi=F3n_profunda?= Message-ID: <4A70053E.9080101@geneura.ugr.es> Hola, Al generar eventos desde dentro de una subrutina resulta que me acaba dando este warning: Deep recursion on subroutine "main::generation" at /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/Tk/Submethods.pm line 19. ¿Se puede evitar de alguna forma? El problema es que al hacer: sub generation { # Cosas aquí $canvas->eventGenerate( '<>' ); } Y ese evento estar ligado a la misma subrutina, al parecer lo llama desde ese stack frame o lo que sea. ¿Hay forma de evitarlo? Quizás no estoy haciendo las cosas bien; lo que quiero es ejecutar una cosa detrás de otra, y al terminar de ejecutarse generation que se vuelva a ejecutar. ¿Quizás debería simplemente generar una lista de eventos que llamen secuencialmente a generation? Saludos JJ From christof a damian.net Wed Jul 29 03:10:20 2009 From: christof a damian.net (Christof Damian) Date: Wed, 29 Jul 2009 12:10:20 +0200 Subject: [bcn-pm] I am giving away some Perl books Message-ID: Hello, I know I never made it to the barcelona-pm so far. And my Spanish and Catalan still sucks. But I have some Perl books to give away. They are rather old, but maybe someone is interested anyway. You can find the list here: http://bookcrossing.com/mybookshelf/cdamian/page_1/statusfilter_2 If anyone wants one I might be able to drop them off at the next meeting or the one after that one. Cheers Christof From raimonster a gmail.com Wed Jul 29 03:16:48 2009 From: raimonster a gmail.com (Raimon Grau) Date: Wed, 29 Jul 2009 12:16:48 +0200 Subject: [bcn-pm] I am giving away some Perl books In-Reply-To: References: Message-ID: <1075ac710907290316ne570f9dhd7a9c62c29eff7bb@mail.gmail.com> I was glancing at 'Mastering algorithms with perl' some time ago in electronic format, but my eyes will thank you if I could read it in dead-tree format. It'd be a good read for the trip to Lisbon :) I'll be in the next meeting (tomorrow). Next month I can bring it back and pass it to anyone else, or give it back to you. Thanks! Rai On Wed, Jul 29, 2009 at 12:10 PM, Christof Damian wrote: > Hello, > I know I never made it to the barcelona-pm so far. And my Spanish and > Catalan still sucks. > > But I have some Perl books to give away. They are rather old, but > maybe someone is interested anyway. > > You can find the list here: > http://bookcrossing.com/mybookshelf/cdamian/page_1/statusfilter_2 > > If anyone wants one I might be able to drop them off at the next > meeting or the one after that one. > > Cheers > Christof > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org -- MU From christof a damian.net Wed Jul 29 04:19:43 2009 From: christof a damian.net (Christof Damian) Date: Wed, 29 Jul 2009 13:19:43 +0200 Subject: [bcn-pm] I am giving away some Perl books In-Reply-To: <1075ac710907290316ne570f9dhd7a9c62c29eff7bb@mail.gmail.com> References: <1075ac710907290316ne570f9dhd7a9c62c29eff7bb@mail.gmail.com> Message-ID: On Wed, Jul 29, 2009 at 12:16, Raimon Grau wrote: > I was glancing at 'Mastering algorithms with perl' some time ago in > electronic format, but my eyes will thank you if I could read it in > dead-tree format.  It'd be a good read for the trip to Lisbon :) > > I'll be in the next meeting (tomorrow).  Next month I can bring it > back and pass it to anyone else, or give it back to you. I will try to make it tomorrow. When and where is it? But whatever you do, don't give the books back to me :-) Christof From raimonster a gmail.com Wed Jul 29 04:31:21 2009 From: raimonster a gmail.com (Raimon Grau) Date: Wed, 29 Jul 2009 13:31:21 +0200 Subject: [bcn-pm] I am giving away some Perl books In-Reply-To: References: <1075ac710907290316ne570f9dhd7a9c62c29eff7bb@mail.gmail.com> Message-ID: <1075ac710907290431v36caf039qee7ed65458af3e43@mail.gmail.com> On Wed, Jul 29, 2009 at 1:19 PM, Christof Damian wrote: > On Wed, Jul 29, 2009 at 12:16, Raimon Grau wrote: >> I was glancing at 'Mastering algorithms with perl' some time ago in >> electronic format, but my eyes will thank you if I could read it in >> dead-tree format.  It'd be a good read for the trip to Lisbon :) >> >> I'll be in the next meeting (tomorrow).  Next month I can bring it >> back and pass it to anyone else, or give it back to you. > > I will try to make it tomorrow. When and where is it? at 20h at 'Viena' . carrer Pelai. Next to Plaça Catalunya http://maps.google.es/maps?hl=es&client=firefox-a&rls=com.ubuntu:en-US:unofficial&hs=zi7&q=map+pelai+barcelona&um=1&ie=UTF-8&split=0&gl=es&ei=PjJwSszaF92fjAf59-mWBQ&sa=X&oi=geocode_result&ct=title&resnum=1 > > But whatever you do, don't give the books back to me :-) lol. Ok Cya, Rai From jdelgado a lsi.upc.edu Wed Jul 29 05:14:35 2009 From: jdelgado a lsi.upc.edu (Jordi Delgado) Date: Wed, 29 Jul 2009 14:14:35 +0200 Subject: [bcn-pm] YAPC en Lisboa In-Reply-To: <4A70053E.9080101@geneura.ugr.es> References: <4A70053E.9080101@geneura.ugr.es> Message-ID: <20090729121434.GA7951@entropia.lsi.upc.edu> Hola, Como somos varios los que vamos a Lisboa creo que seria buena idea que intercambiaramos moviles y otra informacion de interes (se hablo de esto en un mensaje anterior, pero no se ha sabido nada mas) Pues eso. Mi movil es 609243761, llego el dia 2 de agosto al mediodia (hacia las dos de la tarde) y estare en el hotel Alif, a dos paradas de metro de la YAPC. Si hay alguna quedada/juerga/fiesta/cenorra/lo que sea el domingo por la tarde, estaria bien saberlo... :-) Nos vemos alli! Salud! Jordi From sfandino a yahoo.com Wed Jul 29 05:31:08 2009 From: sfandino a yahoo.com (Salvador Fandino) Date: Wed, 29 Jul 2009 05:31:08 -0700 (PDT) Subject: [bcn-pm] YAPC en Lisboa In-Reply-To: <20090729121434.GA7951@entropia.lsi.upc.edu> References: <4A70053E.9080101@geneura.ugr.es> <20090729121434.GA7951@entropia.lsi.upc.edu> Message-ID: <731899.43779.qm@web52702.mail.re2.yahoo.com> Hola > Como somos varios los que vamos a Lisboa creo que > seria buena idea que intercambiaramos moviles y > otra informacion de interes (se hablo de esto en > un mensaje anterior, pero no se ha sabido nada mas) si, la idea era que en vez de enviar los teléfonos a las listas de correo que las puede leer cualquiera me los enviaseis a mi y yo los reenviaba unos días antes de la YAPC::EU a los involucrados pero la iniciativa no tuvo mucho exito... de todas formas, sigue en pie y ya somos tres! > llego el dia 2 de agosto > al mediodia (hacia las dos de la tarde) y estare en el > hotel Alif, a dos paradas de metro de la YAPC. Para publicar esa informacion hay algunas paginas en la wiki de la conferencia - Salva From alexm a alexm.org Wed Jul 29 06:27:00 2009 From: alexm a alexm.org (Alex Muntada) Date: Wed, 29 Jul 2009 15:27:00 +0200 Subject: [bcn-pm] YAPC en Lisboa In-Reply-To: <20090729121434.GA7951@entropia.lsi.upc.edu> References: <4A70053E.9080101@geneura.ugr.es> <20090729121434.GA7951@entropia.lsi.upc.edu> Message-ID: <35064d940907290627s72cab4ffg5cb2904d5d06fbb5@mail.gmail.com> + Jordi Delgado : > llego el dia 2 de agosto al mediodia (hacia las dos de la tarde) > y estare en el hotel Alif, a dos paradas de metro de la YAPC. Jo marxo demà mateix, així que t'espero a l'hotel el diumenge ;) > Si hay alguna quedada/juerga/fiesta/cenorra/lo que sea > el domingo por la tarde, estaria bien saberlo... :-) Hi ha un esdeveniment per escalfar motors el diumenge a la tarda: http://yapceurope2009.org/ye2009/wiki?node=PreconferenceMeeting -- Alex Muntada http://alexm.org/ From fxn a hashref.com Wed Jul 29 18:29:38 2009 From: fxn a hashref.com (Xavier Noria) Date: Thu, 30 Jul 2009 03:29:38 +0200 Subject: [bcn-pm] YAPC en Lisboa In-Reply-To: <20090729121434.GA7951@entropia.lsi.upc.edu> References: <4A70053E.9080101@geneura.ugr.es> <20090729121434.GA7951@entropia.lsi.upc.edu> Message-ID: <31a130740907291829n6dfafba2vd37ed12c97b90b10@mail.gmail.com> Que disfruteu la conferencia, ja explicareu :-). From jdelgado a lsi.upc.edu Thu Jul 30 07:38:57 2009 From: jdelgado a lsi.upc.edu (Jordi Delgado) Date: Thu, 30 Jul 2009 16:38:57 +0200 Subject: [bcn-pm] =?iso-8859-1?q?Evitar_recursi=F3n_profunda?= In-Reply-To: <4A70053E.9080101@geneura.ugr.es> References: <4A70053E.9080101@geneura.ugr.es> Message-ID: <20090730143857.GB10739@entropia.lsi.upc.edu> Buenas, No estoy seguro de entender muy bien tu problema, pero si lo que te ocurre es una recursion "descontrolada" (que no lo seria si Perl tuviese optimizada la tail recurison a la Scheme) sugiero pasar el algoritmo a iterativo y ver donde esta el problema. Ya sabes que esencialmente recursividad = iteracion + pila asi que sustituyendo una cosa por la otra igual tienes mas claro lo que ocurre. Sospecho que la solucion sera del estilo de lo que tu comentas al final (con s/lista/pila/). No se si esto sera muy util... Salud! Jordi > Al generar eventos desde dentro de una subrutina resulta que me acaba > dando este warning: > Deep recursion on subroutine "main::generation" at > /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi/Tk/Submethods.pm > line 19. > > ¿Se puede evitar de alguna forma? El problema es que al hacer: > sub generation { > # Cosas aquí > $canvas->eventGenerate( '<>' ); > } > > Y ese evento estar ligado a la misma subrutina, al parecer lo llama > desde ese stack frame o lo que sea. ¿Hay forma de evitarlo? > > Quizás no estoy haciendo las cosas bien; lo que quiero es ejecutar una > cosa detrás de otra, y al terminar de ejecutarse generation que se > vuelva a ejecutar. ¿Quizás debería simplemente generar una lista de > eventos que llamen secuencialmente a generation? > > Saludos > > JJ > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm at pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org From christof a damian.net Thu Jul 30 09:21:52 2009 From: christof a damian.net (Christof Damian) Date: Thu, 30 Jul 2009 18:21:52 +0200 Subject: [bcn-pm] I am giving away some Perl books In-Reply-To: <1075ac710907290431v36caf039qee7ed65458af3e43@mail.gmail.com> References: <1075ac710907290316ne570f9dhd7a9c62c29eff7bb@mail.gmail.com> <1075ac710907290431v36caf039qee7ed65458af3e43@mail.gmail.com> Message-ID: Bugger, I probably should have checked how I find you guys in the Viena. Well, if you see someone with a black record back which Caterpillar logo, that is me. cu christof On Wed, Jul 29, 2009 at 13:31, Raimon Grau wrote: > On Wed, Jul 29, 2009 at 1:19 PM, Christof Damian wrote: >> On Wed, Jul 29, 2009 at 12:16, Raimon Grau wrote: >>> I was glancing at 'Mastering algorithms with perl' some time ago in >>> electronic format, but my eyes will thank you if I could read it in >>> dead-tree format.  It'd be a good read for the trip to Lisbon :) >>> >>> I'll be in the next meeting (tomorrow).  Next month I can bring it >>> back and pass it to anyone else, or give it back to you. >> >> I will try to make it tomorrow. When and where is it? > > at 20h at 'Viena' .  carrer Pelai. Next to Plaça Catalunya > > http://maps.google.es/maps?hl=es&client=firefox-a&rls=com.ubuntu:en-US:unofficial&hs=zi7&q=map+pelai+barcelona&um=1&ie=UTF-8&split=0&gl=es&ei=PjJwSszaF92fjAf59-mWBQ&sa=X&oi=geocode_result&ct=title&resnum=1 > > >> >> But whatever you do, don't give the books back to me :-) > > lol. Ok > > Cya, > > Rai > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm at pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org