From fxnahashref.com Wed Feb 1 12:55:50 2006 From: fxnahashref.com (Xavier Noria) Date: Wed, 1 Feb 2006 21:55:50 +0100 Subject: [bcn-pm] teletrabajo para Sapo.pt Message-ID: <784C5BBE-45A3-47D4-8115-4F28AC30B06A@hashref.com> Hola! Solo comentaros que hay una oferta de trabajo a distancia para Sapo.pt que pinta bien. Ellos fueron uno de los sponsors de la pasada YAPC::EU. Sin entrar en detalles se trata de trabajar en su buscador, junto con un senior de Sapo.pt. Dicen que el suyo es el segundo buscador en Portugal despues de Google. No tengo ninguna vinculacion comercial con Sapo.pt, os lo envio porque hable un poco con ellos y lo que hay que hacer suena bastante chulo. Hay tanto tareas sencillas como (quiza mas) tareas avanzadas, y tiene puntos alguien portugues, brasileño, español, catalan, etc. porque ocasionalmente hay comentarios o nombres de variables en el codigo que estan en portugues y, aunque uno no sepa portugues, ante algo escrito se nos hace menos raro que a un aleman, pongamos. Si os interesa, el anuncio en jobs tiene informacion de contacto: http://jobs.perl.org/job/3544 Animo! -- fxn From macklusadebianitas.net Wed Feb 8 16:10:23 2006 From: macklusadebianitas.net (Jose Pedro Andres Garcia) Date: Thu, 09 Feb 2006 01:10:23 +0100 Subject: [bcn-pm] =?iso-8859-1?q?Extra=F1o_error_con_getpwnam?= Message-ID: <43EA886F.8090607@debianitas.net> Buenas: Me he encontrado con un error muy raro, y no se si es tema de perl, o si es problema de Debian. Os cuento: Intento validar usuarios del sistema, cojiendo el password encriptado y el uid con la funcion getpwnam. El codigo de ejemplo seria este: foreach ( 'root', 'macklus' ) { if ( getpwnam ( $_ ) ) { my ($upass,$uid) = ( getpwnam ( $_ ))[1,2]; print "RECIBO: $upass, $uid\n"; } else { print "ERROR: Usuario $_ no se devuelve !\n"; } } El tema es que, tanto ejecutandolo como root, como haciendolo como usuario, me devuelve siempre que el usuario root no se devuelve ( por supuesto existe en el sistema :D ). En realidad no devuelve ningun registro que tenga UID == 0. La logica que veo aqui es que por seguridad no se devuelven registros de uid = 0 , para evitar que un usuario de sistema pille el pass encriptado de root, p.e.. Pero la verdad es que he usado antes esta funcion, y no me suena haber tenido estos problemas. ¿ Alguno sabe si este comportamiento es de perl o de debian ? ¿ Alguien puede probar esto en un linux que no sea debian, para saber si es de esta distro o es general ? ¿ Alguno habeis tenido este problema ? Gracias de antemano. From eperalesaac.upc.edu Wed Feb 8 23:37:14 2006 From: eperalesaac.upc.edu (Eva Perales Laguna) Date: Thu, 9 Feb 2006 08:37:14 +0100 Subject: [bcn-pm] =?iso-8859-1?Q?Extra=F1?= =?iso-8859-1?Q?o?= error con getpwnam In-Reply-To: <43EA886F.8090607@debianitas.net> References: <43EA886F.8090607@debianitas.net> Message-ID: <20060209073714.GC5940@ac.upc.edu> On Thu, Feb 09, 2006 at 01:10:23AM +0100, Jose Pedro Andres Garcia wrote: > Buenas: Hola > foreach ( 'root', 'macklus' ) { > if ( getpwnam ( $_ ) ) { > my ($upass,$uid) = ( getpwnam ( $_ ))[1,2]; > print "RECIBO: $upass, $uid\n"; > } else { > print "ERROR: Usuario $_ no se devuelve !\n"; > } > } > > ¿ Alguien puede probar esto en un linux que no sea debian, para saber si > es de esta distro o es general ? Lo he probado en el kurro (Red Hat Linux 7.3 y Perl 5.6.1) y me pasa lo mismo, "ERROR: Usuario root no se devuelve !". No puedo probarlo como root porque no tengo el password, pero intentaré preguntar a los de sistemas. Saludos, Eva From christofadamian.net Thu Feb 9 00:27:37 2006 From: christofadamian.net (Christof Damian) Date: Thu, 9 Feb 2006 09:27:37 +0100 Subject: [bcn-pm] Extra In-Reply-To: <43EA886F.8090607@debianitas.net> References: <43EA886F.8090607@debianitas.net> Message-ID: <20060209082737.GC24127@batman.gotham.krass.com> On Thu, 09 Feb 2006, Jose Pedro Andres Garcia wrote: > Buenas: > Me he encontrado con un error muy raro, y no se si es tema de perl, > o si es problema de Debian. > Os cuento: > Intento validar usuarios del sistema, cojiendo el password > encriptado y el uid con la funcion getpwnam. > El codigo de ejemplo seria este: > > foreach ( 'root', 'macklus' ) { > if ( getpwnam ( $_ ) ) { try this instead: if ( defined getpwnam ( $_ ) ) { or change maybe even better: foreach ( 'root', 'macklus' ) { if ( my ($upass,$uid) = (getpwnam( $_ ))[1,2] ) { print "RECIBO: $upass, $uid\n"; } else { print "ERROR: Usuario $_ no se devuelve !\n"; } } you will see the encrypted password entry usually only if you are root, because it is stored in the shadow file. christof (sorry about my lack of spanish) -- Christof Damian christofadamian.net From alexmaalexm.org Thu Feb 9 01:51:32 2006 From: alexmaalexm.org (Alex Muntada) Date: Thu, 9 Feb 2006 10:51:32 +0100 Subject: [bcn-pm] =?iso-8859-1?Q?Extra=F1?= =?iso-8859-1?Q?o?= error con getpwnam In-Reply-To: <43EA886F.8090607@debianitas.net> References: <43EA886F.8090607@debianitas.net> Message-ID: <20060209095132.GC29339@ac.upc.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 * Jose Pedro Andres Garcia : [2006-02-09 01:10:23 +0100] > foreach ( 'root', 'macklus' ) { > if ( getpwnam ( $_ ) ) { En aquest context, la funció getpwnam retorna l'uid, que en el cas de root és 0 i per tant fals. Només cal que canviïs la forma en què comproves el resultat: @getpwnam = getpwnam $_; if ( @getpwnam ) { ... } Per a més detalls «perldoc -f getpwnam». - -- Alex Muntada http://alexm.org/ -----BEGIN PGP SIGNATURE----- iD8DBQFD6xChLdxCGS3zaBERAgi3AJ9J6/VkAuFNupltyF7YrQeGzOENBQCgsvb2 n9zMiJujCadMmR0LsrV76pA= =GLDe -----END PGP SIGNATURE----- From frankieaetsetb.upc.edu Tue Feb 21 04:56:40 2006 From: frankieaetsetb.upc.edu (Francesc Guasch) Date: Tue, 21 Feb 2006 13:56:40 +0100 Subject: [bcn-pm] Perl Best Practices Message-ID: <43FB0E08.1060205@etsetb.upc.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hola nois, el dijous us parlaré del llibre Perl Best Practices. Tinc una petita introducció en format .odp, però no se si podrè portar portàtil. Hi ha algú que sàpiga segur que vindrà i en portarà un ? -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.1 (GNU/Linux) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFD+w4GVfvsWQAffzIRAudKAJ0QY1T91ma3vxmbhZlDIX/G9StcLQCg4UI4 YoJOdsJ4A5QiGnKxMZlV4L4= =iVzq -----END PGP SIGNATURE----- From jmereloageneura.ugr.es Tue Feb 21 04:55:41 2006 From: jmereloageneura.ugr.es (Juan Julian Merelo Guervos) Date: Tue, 21 Feb 2006 13:55:41 +0100 Subject: [bcn-pm] Perl Best Practices In-Reply-To: <43FB0E08.1060205@etsetb.upc.edu> References: <43FB0E08.1060205@etsetb.upc.edu> Message-ID: <43FB0DCD.6080102@geneura.ugr.es> Francesc Guasch wrote: >-----BEGIN PGP SIGNED MESSAGE----- >Hash: SHA1 > >Hola nois, el dijous us parlaré del llibre Perl Best Practices. > >Tinc una petita introducció en format .odp, però no se si podrè >portar portàtil. Hi ha algú que sàpiga segur que vindrà i en >portarà un ? > > Lo dejarás colgado en algún sitio? En el wiki, por ejemplo? JJ From fxnahashref.com Tue Feb 21 06:14:42 2006 From: fxnahashref.com (Xavier Noria) Date: Tue, 21 Feb 2006 15:14:42 +0100 Subject: [bcn-pm] Perl Best Practices In-Reply-To: <43FB0E08.1060205@etsetb.upc.edu> References: <43FB0E08.1060205@etsetb.upc.edu> Message-ID: <4C46949A-E18A-463C-BE4D-8B2A6F05ADEF@hashref.com> On Feb 21, 2006, at 13:56, Francesc Guasch wrote: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > Hola nois, el dijous us parlaré del llibre Perl Best Practices. > > Tinc una petita introducció en format .odp, però no se si podrè > portar portàtil. Hi ha algú que sàpiga segur que vindrà i en > portarà un ? Jo dure aquell portatil TAN BONIC I PRECIOS. Si et cal envia-me-la abans a veure com es veuen les fonts. Tinc OpenOffice 2.x i 1.1.x. From frankieaetsetb.upc.edu Tue Feb 21 23:31:28 2006 From: frankieaetsetb.upc.edu (Francesc Guasch) Date: Wed, 22 Feb 2006 08:31:28 +0100 Subject: [bcn-pm] Perl Best Practices In-Reply-To: <43FB0DCD.6080102@geneura.ugr.es> References: <43FB0E08.1060205@etsetb.upc.edu> <43FB0DCD.6080102@geneura.ugr.es> Message-ID: <43FC1350.70303@etsetb.upc.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 En/na Juan Julian Merelo Guervos ha escrit: > Francesc Guasch wrote: >>Tinc una petita introducció en format .odp, però no se si podrè > Lo dejarás colgado en algún sitio? En el wiki, por ejemplo? En la presentación me he dedicado a copiar algunas recomendaciones del libro que luego quería comentar de palabra. Por ello creo que debo estar infringiendo algún copyright si lo cuelgo en algún sitio. En todo caso, el libro es buenísimo y, en mi opinión, recomendable para cualquiera que use perl, ya sea experto o novato.No me llevo comisión ni nada eh :) -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.1 (GNU/Linux) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFD/BNOVfvsWQAffzIRAkW1AKCcIcKv6dQUSfYojsNfSzJLpM9mggCgphBs mRQ1Rhdh9ZhM6DfeQIySUQg= =eePc -----END PGP SIGNATURE----- From wjperezdagencat.net Fri Feb 24 04:31:10 2006 From: wjperezdagencat.net (Jose Luis Perez Diez) Date: Fri, 24 Feb 2006 13:31:10 +0100 Subject: [bcn-pm] Academy-es y perl oneliner Message-ID: <200602241331.11355.wjperezd@gencat.net> http://wiki.badopi.org/index.php/Kde-es2006 http://linuxgazette.net/issue90/okopnik.html From frankieaetsetb.upc.edu Fri Feb 24 04:47:49 2006 From: frankieaetsetb.upc.edu (Francesc Guasch) Date: Fri, 24 Feb 2006 13:47:49 +0100 Subject: [bcn-pm] =?iso-8859-1?q?Expressi=F3_Regular_per_saber_si_un_n=BA_?= =?iso-8859-1?q?=E9s_primer?= Message-ID: <43FF0075.20403@etsetb.upc.edu> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' [number] http://montreal.pm.org/tech/neil_kandalgaonkar.shtml -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.1 (GNU/Linux) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFD/wByVfvsWQAffzIRAvsDAKDSJG9e6mMRgtOGSo4TDXzKKyA1xQCeK8Jh k1W2unRH8EDl4wlc5c7ssmk= =EWkm -----END PGP SIGNATURE----- From fxnahashref.com Fri Feb 24 05:02:52 2006 From: fxnahashref.com (Xavier Noria) Date: Fri, 24 Feb 2006 14:02:52 +0100 Subject: =?ISO-8859-1?Q?Re:_[bcn-pm]_Expressi=F3_Regular_per_saber_si_un_?= =?ISO-8859-1?Q?n=BA_=E9s_primer?= In-Reply-To: <43FF0075.20403@etsetb.upc.edu> References: <43FF0075.20403@etsetb.upc.edu> Message-ID: <1356DBE4-8D8B-41B5-8876-DA1210C407F1@hashref.com> On Feb 24, 2006, at 13:47, Francesc Guasch wrote: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+ > $/' [number] Gairebe, l'autentica es % perl -wle 'print "prime" if ("1" x shift) !~ /^(11+)\1+$/' 13 prime que es la correcte doncs l'1 no es considerat primer en matematiques. Veieu com esta trencat una colla d'1s en parts iguals de tamany mes gran o igual que 2 i menor estricte que shift? La solucio es facil un cop la veus, pero al meu entendre el que es genial es pensar-hi. -- fxn From fxnahashref.com Fri Feb 24 05:12:32 2006 From: fxnahashref.com (Xavier Noria) Date: Fri, 24 Feb 2006 14:12:32 +0100 Subject: =?ISO-8859-1?Q?Re:_[bcn-pm]_Expressi=F3_Regular_per_saber_si_un_?= =?ISO-8859-1?Q?n=BA_=E9s_primer?= In-Reply-To: <1356DBE4-8D8B-41B5-8876-DA1210C407F1@hashref.com> References: <43FF0075.20403@etsetb.upc.edu> <1356DBE4-8D8B-41B5-8876-DA1210C407F1@hashref.com> Message-ID: <3E05B50B-4897-497E-838B-174FE5372249@hashref.com> On Feb 24, 2006, at 14:02, Xavier Noria wrote: > On Feb 24, 2006, at 13:47, Francesc Guasch wrote: > >> -----BEGIN PGP SIGNED MESSAGE----- >> Hash: SHA1 >> >> perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+ >> $/' [number] > > Gairebe, l'autentica es > > % perl -wle 'print "prime" if ("1" x shift) !~ /^(11+)\1+$/' 13 > prime > > que es la correcte doncs l'1 no es considerat primer en matematiques. Argh, oblideu aquest missatge, el que dic es mes fals que un duro sevillano!!! -- fxn From fxnahashref.com Tue Feb 28 10:57:08 2006 From: fxnahashref.com (Xavier Noria) Date: Tue, 28 Feb 2006 19:57:08 +0100 Subject: [bcn-pm] dues coses pendents Message-ID: <427B1195-9CEB-48CA-8D07-2E06481D2AF8@hashref.com> Van un parell de coses que varen sortir a la reunio. Aquesta es la xerrada de l'Stallman: http://iespuigcastellar.xeill.net/activitats/arxiu/2006/rms/ conferencia-de-richard-stallman I aquest es Acme::Don't: http://search.cpan.org/~dconway/Acme-Don-t/t.pm Sublime!!! :-) -- fxn From cesatablinum.org Tue Feb 28 15:03:22 2006 From: cesatablinum.org (Carlos Escribano) Date: Wed, 1 Mar 2006 00:03:22 +0100 Subject: [bcn-pm] dues coses pendents In-Reply-To: <427B1195-9CEB-48CA-8D07-2E06481D2AF8@hashref.com> References: <427B1195-9CEB-48CA-8D07-2E06481D2AF8@hashref.com> Message-ID: <200603010003.43055.ces@tablinum.org> A Acme::Don't ya llegué, pero veo que me fui antes de que hablarais de la charla de Stallman en Santa Coloma. Yo pienso ir. ¿Alguien más piensa acercarse? Y por cierto que he visto la presentación de Perl Profesional que mencionaste [http://maddingue.org/conferences/yapc-eu-2004/entreprise-perl/]. Impagable. Os dejo el enlace a XML::Simpler[2]. Obsérvese la fecha de publicación. http://www.mclean.net.nz/cpan/xmlsimpler/XML-Simpler.html -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 189 bytes Desc: signature Url : http://mail.pm.org/pipermail/barcelona-pm/attachments/20060228/daa2f807/attachment.bin