From volmosg.bt a gmail.com Mon Feb 2 11:58:46 2015 From: volmosg.bt a gmail.com (=?UTF-8?Q?Ver=C3=B3nica_Olmos_Gonz=C3=A1lez?=) Date: Mon, 2 Feb 2015 20:58:46 +0100 Subject: [bcn-pm] Duda con arrays Message-ID: ¡Hola a todos! Bueno, ante todo, como decía en mi presentación, soy bastante (muy) novata en Perl, así que es bastante probable que la esté liando con algo muy básico... pero me gustaría compartir mi problema con vosotros, por si alguno supiera darme alguna orientación (aunque sea simplemente remitirme a alguna página concreta de documentación). El contexto de mi problema es el siguiente: parto de un array que contiene secuencias de nucleótidos (o sea, strings que deben estar formados por "A", "C", "G" o "T"). La cosa es que estos strings pueden contener, cualquiera de ellos, en determinada posición, el carácter "N", que no es "válido". Lo que hace el resto de mi programa es hacer comparaciones dos a dos entre cada elemento del array. Lo que quiero hacer, y el quid de mi duda: si en "x" posición de cualquier elemento encuentro una "N", debo borrar esa "x-ésima" posición en TODOS los elementos del array. Un ejemplo: si tengo @arr = ("AATN", "AATG", "TATG") debo quedarme con @arr2 = ("AAT", "AAT", "TAT"). Sin enrollarme con más explicaciones, os enseño el código con mi planteamiento: @sequences = ("AATGTCAACGAN", "AATGTCAACGNA", "ATTGTCAACGTN", > "ATTGTGATCGTT"); > for ($i = 0; $i <= scalar(@sequences); $i++) { > if ($sequences[$i] =~ "N") { > # Localizo las "N" y guardo su posición en un array push(@pos,index($sequences[$i], "N")); } } # Elimino posiciones repetidas y ordeno los valores my @pos = do { my %seen; grep { !$seen{$_}++ } @pos }; @pos = sort @pos; # Mi idea era, mediante expresiones regulares, poner "N" en todos los elementos de los arrays, en las posiciones guardadas, para luego eliminarlo todo evitando "corrimientos" en las posiciones for ($i = 0; $i <= scalar(@sequences); $i++) { for ($j = 0; $j <= scalar(@pos); $j++) { substr($sequences[$i],$pos[$j],1) =~ s/\D/N/; } } Ahora bien, en el último bucle se me va todo de madre, permanece iterando continuamente. La verdad es que seguro que estoy haciendo fatal algo tontísimo, pero no soy capaz de ver el origen del error, por lo que agradecería enormemente cualquier tipo de orientación. Un saludo, Verónica -- Verónica Olmos González Skype: v.olmosg Teléfono/Phone: +34 666 68 16 01 ------------ pr�a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From sfandino a gmail.com Mon Feb 2 13:42:11 2015 From: sfandino a gmail.com (=?UTF-8?B?U2FsdmFkb3IgRmFuZGnDsW8=?=) Date: Mon, 02 Feb 2015 22:42:11 +0100 Subject: [bcn-pm] Duda con arrays In-Reply-To: References: Message-ID: <54CFEF33.3060705@gmail.com> On 02/02/2015 08:58 PM, Verónica Olmos González wrote: > ¡Hola a todos! > > Bueno, ante todo, como decía en mi presentación, soy bastante (muy) > novata en Perl, así que es bastante probable que la esté liando con > algo muy básico... pero me gustaría compartir mi problema con > vosotros, por si alguno supiera darme alguna orientación (aunque sea > simplemente remitirme a alguna página concreta de documentación). > > El contexto de mi problema es el siguiente: parto de un array que > contiene secuencias de nucleótidos (o sea, strings que deben estar > formados por "A", "C", "G" o "T"). La cosa es que estos strings pueden > contener, cualquiera de ellos, en determinada posición, el carácter > "N", que no es "válido". Lo que hace el resto de mi programa es hacer > comparaciones dos a dos entre cada elemento del array. Lo que quiero > hacer, y el quid de mi duda: si en "x" posición de cualquier elemento > encuentro una "N", debo borrar esa "x-ésima" posición en TODOS los > elementos del array. Un ejemplo: si tengo @arr = ("AATN", "AATG", > "TATG") debo quedarme con @arr2 = ("AAT", "AAT", "TAT"). > > Sin enrollarme con más explicaciones, os enseño el código con mi > planteamiento: > > @sequences = ("AATGTCAACGAN", "AATGTCAACGNA", "ATTGTCAACGTN", > "ATTGTGATCGTT"); > for ($i = 0; $i <= scalar(@sequences); $i++) { > if ($sequences[$i] =~ "N") { > > # Localizo las "N" y guardo su posición en un array > > push(@pos,index($sequences[$i], "N")); > } > } > > # Elimino posiciones repetidas y ordeno los valores > my @pos = do { my %seen; grep { !$seen{$_}++ } @pos }; > @pos = sort @pos; > > # Mi idea era, mediante expresiones regulares, poner "N" en todos > los elementos de los arrays, en las posiciones guardadas, para > luego eliminarlo todo evitando "corrimientos" en las posiciones > > for ($i = 0; $i <= scalar(@sequences); $i++) { > for ($j = 0; $j <= scalar(@pos); $j++) { > substr($sequences[$i],$pos[$j],1) =~ s/\D/N/; > } > } > > Ahora bien, en el último bucle se me va todo de madre, permanece > iterando continuamente. > > La verdad es que seguro que estoy haciendo fatal algo tontísimo, pero > no soy capaz de ver el origen del error, por lo que agradecería > enormemente cualquier tipo de orientación. > > > Un saludo, > Verónica > Para esto de la N hay un truco. Si te fijas, de todos los caracteres AGCTN solo la N tiene un 1 en el bit 3 (0x08) asi que puedes detectar donde hay Ns haciendo un OR de todas las sequencias y luego buscando los caracteres que tienen ese bit a uno en el resultado. A partir de ahi es fácil generar una mascara que al hacer AND con las secuencias originales ponga a cero las posiciones con N, y luego solo hay que borrar los ceros: @sequences = ("AATGTCAACGAN", "AATGTCAACGNA", "ATTGTCAACGTN", "ATTGTGATCGTT"); my $mask = ''; $mask |= $_ for @sequences; $mask =~ s/(.)/(ord($1) & 8) ? "\0" : "\xFF"/ge; for (@sequences) { $_ &= $mask; tr/\0//; } use Data::Dumper; print Dumper \@sequences; ------------ pr�a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jjmerelo a gmail.com Mon Feb 2 23:00:20 2015 From: jjmerelo a gmail.com (JJ Merelo) Date: Tue, 3 Feb 2015 08:00:20 +0100 Subject: [bcn-pm] Duda con arrays In-Reply-To: <54CFEF33.3060705@gmail.com> References: <54CFEF33.3060705@gmail.com> Message-ID: Madre mía, qué hack. Aplausos. El 2 de febrero de 2015, 22:42, Salvador Fandiño escribió: > On 02/02/2015 08:58 PM, Verónica Olmos González wrote: > > ¡Hola a todos! > > Bueno, ante todo, como decía en mi presentación, soy bastante (muy) novata > en Perl, así que es bastante probable que la esté liando con algo muy > básico... pero me gustaría compartir mi problema con vosotros, por si > alguno supiera darme alguna orientación (aunque sea simplemente remitirme a > alguna página concreta de documentación). > > El contexto de mi problema es el siguiente: parto de un array que > contiene secuencias de nucleótidos (o sea, strings que deben estar formados > por "A", "C", "G" o "T"). La cosa es que estos strings pueden contener, > cualquiera de ellos, en determinada posición, el carácter "N", que no es > "válido". Lo que hace el resto de mi programa es hacer comparaciones dos a > dos entre cada elemento del array. Lo que quiero hacer, y el quid de mi > duda: si en "x" posición de cualquier elemento encuentro una "N", debo > borrar esa "x-ésima" posición en TODOS los elementos del array. Un ejemplo: > si tengo @arr = ("AATN", "AATG", "TATG") debo quedarme con @arr2 = ("AAT", > "AAT", "TAT"). > > Sin enrollarme con más explicaciones, os enseño el código con mi > planteamiento: > > @sequences = ("AATGTCAACGAN", "AATGTCAACGNA", "ATTGTCAACGTN", >> "ATTGTGATCGTT"); >> for ($i = 0; $i <= scalar(@sequences); $i++) { >> if ($sequences[$i] =~ "N") { >> > # Localizo las "N" y guardo su posición en un array > > push(@pos,index($sequences[$i], "N")); > } > } > > # Elimino posiciones repetidas y ordeno los valores > my @pos = do { my %seen; grep { !$seen{$_}++ } @pos }; > @pos = sort @pos; > > # Mi idea era, mediante expresiones regulares, poner "N" en todos los > elementos de los arrays, en las posiciones guardadas, para luego eliminarlo > todo evitando "corrimientos" en las posiciones > > for ($i = 0; $i <= scalar(@sequences); $i++) { > for ($j = 0; $j <= scalar(@pos); $j++) { > substr($sequences[$i],$pos[$j],1) =~ s/\D/N/; > } > } > > Ahora bien, en el último bucle se me va todo de madre, permanece iterando > continuamente. > > La verdad es que seguro que estoy haciendo fatal algo tontísimo, pero no > soy capaz de ver el origen del error, por lo que agradecería enormemente > cualquier tipo de orientación. > > > Un saludo, > Verónica > > > Para esto de la N hay un truco. > > Si te fijas, de todos los caracteres AGCTN solo la N tiene un 1 en el bit > 3 (0x08) asi que puedes detectar donde hay Ns haciendo un OR de todas las > sequencias y luego buscando los caracteres que tienen ese bit a uno en el > resultado. > > A partir de ahi es fácil generar una mascara que al hacer AND con las > secuencias originales ponga a cero las posiciones con N, y luego solo hay > que borrar los ceros: > > @sequences = ("AATGTCAACGAN", > "AATGTCAACGNA", > "ATTGTCAACGTN", > "ATTGTGATCGTT"); > > my $mask = ''; > $mask |= $_ for @sequences; > $mask =~ s/(.)/(ord($1) & 8) ? "\0" : "\xFF"/ge; > > for (@sequences) { > $_ &= $mask; > tr/\0//; > } > > use Data::Dumper; > print Dumper \@sequences; > > > > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org > -- JJ ------------ pr�a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From maneta a gmail.com Mon Feb 2 23:17:44 2015 From: maneta a gmail.com (H. Daniel Cesario) Date: Tue, 3 Feb 2015 08:17:44 +0100 Subject: [bcn-pm] Duda con arrays In-Reply-To: References: <54CFEF33.3060705@gmail.com> Message-ID: <220BA557-802C-4637-90BC-08A97425619C@gmail.com> Igual podrías mirar la funcion grep de perl:http://perlmaven.com/filtering-values-with-perl-grep Y filtrar la array de entrada quitando los elementos que no te interesan. Ej: my @arr2 = grep { $_ =~ /(?!N)/ } @arr1; No estoy seguro de la regex(dont shoot the messenger) Pero el grep igual te ayuda! Salut y Perl Sent from my iPhone > On 3/2/2015, at 8:00, JJ Merelo wrote: > > Madre mía, qué hack. Aplausos. > > El 2 de febrero de 2015, 22:42, Salvador Fandiño escribió: >> On 02/02/2015 08:58 PM, Verónica Olmos González wrote: >>> ¡Hola a todos! >>> >>> Bueno, ante todo, como decía en mi presentación, soy bastante (muy) novata en Perl, así que es bastante probable que la esté liando con algo muy básico... pero me gustaría compartir mi problema con vosotros, por si alguno supiera darme alguna orientación (aunque sea simplemente remitirme a alguna página concreta de documentación). >>> >>> El contexto de mi problema es el siguiente: parto de un array que contiene secuencias de nucleótidos (o sea, strings que deben estar formados por "A", "C", "G" o "T"). La cosa es que estos strings pueden contener, cualquiera de ellos, en determinada posición, el carácter "N", que no es "válido". Lo que hace el resto de mi programa es hacer comparaciones dos a dos entre cada elemento del array. Lo que quiero hacer, y el quid de mi duda: si en "x" posición de cualquier elemento encuentro una "N", debo borrar esa "x-ésima" posición en TODOS los elementos del array. Un ejemplo: si tengo @arr = ("AATN", "AATG", "TATG") debo quedarme con @arr2 = ("AAT", "AAT", "TAT"). >>> >>> Sin enrollarme con más explicaciones, os enseño el código con mi planteamiento: >>> >>>> @sequences = ("AATGTCAACGAN", "AATGTCAACGNA", "ATTGTCAACGTN", "ATTGTGATCGTT"); >>>> for ($i = 0; $i <= scalar(@sequences); $i++) { >>>> if ($sequences[$i] =~ "N") { >>> >>> # Localizo las "N" y guardo su posición en un array >>> push(@pos,index($sequences[$i], "N")); >>> } >>> } >>> >>> # Elimino posiciones repetidas y ordeno los valores >>> my @pos = do { my %seen; grep { !$seen{$_}++ } @pos }; >>> @pos = sort @pos; >>> >>> # Mi idea era, mediante expresiones regulares, poner "N" en todos los elementos de los arrays, en las posiciones guardadas, para luego eliminarlo todo evitando "corrimientos" en las posiciones >>> for ($i = 0; $i <= scalar(@sequences); $i++) { >>> for ($j = 0; $j <= scalar(@pos); $j++) { >>> substr($sequences[$i],$pos[$j],1) =~ s/\D/N/; >>> } >>> } >>> >>> Ahora bien, en el último bucle se me va todo de madre, permanece iterando continuamente. >>> >>> La verdad es que seguro que estoy haciendo fatal algo tontísimo, pero no soy capaz de ver el origen del error, por lo que agradecería enormemente cualquier tipo de orientación. >>> >>> >>> Un saludo, >>> Verónica >> >> Para esto de la N hay un truco. >> >> Si te fijas, de todos los caracteres AGCTN solo la N tiene un 1 en el bit 3 (0x08) asi que puedes detectar donde hay Ns haciendo un OR de todas las sequencias y luego buscando los caracteres que tienen ese bit a uno en el resultado. >> >> A partir de ahi es fácil generar una mascara que al hacer AND con las secuencias originales ponga a cero las posiciones con N, y luego solo hay que borrar los ceros: >> >> @sequences = ("AATGTCAACGAN", >> "AATGTCAACGNA", >> "ATTGTCAACGTN", >> "ATTGTGATCGTT"); >> >> my $mask = ''; >> $mask |= $_ for @sequences; >> $mask =~ s/(.)/(ord($1) & 8) ? "\0" : "\xFF"/ge; >> >> for (@sequences) { >> $_ &= $mask; >> tr/\0//; >> } >> >> use Data::Dumper; >> print Dumper \@sequences; >> >> >> >> _______________________________________________ >> llista dels Barcelona-pm >> Barcelona-pm a pm.org >> http://mail.pm.org/mailman/listinfo/barcelona-pm >> BCN Perl Mongers: http://barcelona.pm.org > > > > -- > JJ > _______________________________________________ > 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 volmosg.bt a gmail.com Tue Feb 3 02:47:24 2015 From: volmosg.bt a gmail.com (=?UTF-8?Q?Ver=C3=B3nica_Olmos_Gonz=C3=A1lez?=) Date: Tue, 3 Feb 2015 11:47:24 +0100 Subject: [bcn-pm] Duda con arrays In-Reply-To: <220BA557-802C-4637-90BC-08A97425619C@gmail.com> References: <54CFEF33.3060705@gmail.com> <220BA557-802C-4637-90BC-08A97425619C@gmail.com> Message-ID: Muchísimas gracias por las respuestas. De momento, he probado lo de la máscara que me ha sugerido Salvador (no tenía ni idea de que se podía hacer eso) y, salvo porque los elementos del array no recuperan so longitud original después de la eliminación (no sé si esto es la consecuencia lógica esperable; pero seguiré echándole un ojo), me soluciona bastante bien el problema que tenía :) Lo dicho, muchas gracias, y seguiré investigando con las cosillas que me habéis ido diciendo! El 3 de febrero de 2015, 8:17, H. Daniel Cesario escribió: > Igual podrías mirar la funcion grep de perl:http:// > perlmaven.com/filtering-values-with-perl-grep > Y filtrar la array de entrada quitando los elementos que no te interesan. > Ej: > my @arr2 = grep { $_ =~ /(?!N)/ } @arr1; > > No estoy seguro de la regex(dont shoot the messenger) > > Pero el grep igual te ayuda! > > Salut y Perl > > Sent from my iPhone > > On 3/2/2015, at 8:00, JJ Merelo wrote: > > Madre mía, qué hack. Aplausos. > > El 2 de febrero de 2015, 22:42, Salvador Fandiño > escribió: > >> On 02/02/2015 08:58 PM, Verónica Olmos González wrote: >> >> ¡Hola a todos! >> >> Bueno, ante todo, como decía en mi presentación, soy bastante (muy) >> novata en Perl, así que es bastante probable que la esté liando con algo >> muy básico... pero me gustaría compartir mi problema con vosotros, por si >> alguno supiera darme alguna orientación (aunque sea simplemente remitirme a >> alguna página concreta de documentación). >> >> El contexto de mi problema es el siguiente: parto de un array que >> contiene secuencias de nucleótidos (o sea, strings que deben estar formados >> por "A", "C", "G" o "T"). La cosa es que estos strings pueden contener, >> cualquiera de ellos, en determinada posición, el carácter "N", que no es >> "válido". Lo que hace el resto de mi programa es hacer comparaciones dos a >> dos entre cada elemento del array. Lo que quiero hacer, y el quid de mi >> duda: si en "x" posición de cualquier elemento encuentro una "N", debo >> borrar esa "x-ésima" posición en TODOS los elementos del array. Un ejemplo: >> si tengo @arr = ("AATN", "AATG", "TATG") debo quedarme con @arr2 = ("AAT", >> "AAT", "TAT"). >> >> Sin enrollarme con más explicaciones, os enseño el código con mi >> planteamiento: >> >> @sequences = ("AATGTCAACGAN", "AATGTCAACGNA", "ATTGTCAACGTN", >>> "ATTGTGATCGTT"); >>> for ($i = 0; $i <= scalar(@sequences); $i++) { >>> if ($sequences[$i] =~ "N") { >>> >> # Localizo las "N" y guardo su posición en un array >> >> push(@pos,index($sequences[$i], "N")); >> } >> } >> >> # Elimino posiciones repetidas y ordeno los valores >> my @pos = do { my %seen; grep { !$seen{$_}++ } @pos }; >> @pos = sort @pos; >> >> # Mi idea era, mediante expresiones regulares, poner "N" en todos los >> elementos de los arrays, en las posiciones guardadas, para luego eliminarlo >> todo evitando "corrimientos" en las posiciones >> >> for ($i = 0; $i <= scalar(@sequences); $i++) { >> for ($j = 0; $j <= scalar(@pos); $j++) { >> substr($sequences[$i],$pos[$j],1) =~ s/\D/N/; >> } >> } >> >> Ahora bien, en el último bucle se me va todo de madre, permanece >> iterando continuamente. >> >> La verdad es que seguro que estoy haciendo fatal algo tontísimo, pero >> no soy capaz de ver el origen del error, por lo que agradecería enormemente >> cualquier tipo de orientación. >> >> >> Un saludo, >> Verónica >> >> >> Para esto de la N hay un truco. >> >> Si te fijas, de todos los caracteres AGCTN solo la N tiene un 1 en el bit >> 3 (0x08) asi que puedes detectar donde hay Ns haciendo un OR de todas las >> sequencias y luego buscando los caracteres que tienen ese bit a uno en el >> resultado. >> >> A partir de ahi es fácil generar una mascara que al hacer AND con las >> secuencias originales ponga a cero las posiciones con N, y luego solo hay >> que borrar los ceros: >> >> @sequences = ("AATGTCAACGAN", >> "AATGTCAACGNA", >> "ATTGTCAACGTN", >> "ATTGTGATCGTT"); >> >> my $mask = ''; >> $mask |= $_ for @sequences; >> $mask =~ s/(.)/(ord($1) & 8) ? "\0" : "\xFF"/ge; >> >> for (@sequences) { >> $_ &= $mask; >> tr/\0//; >> } >> >> use Data::Dumper; >> print Dumper \@sequences; >> >> >> >> _______________________________________________ >> llista dels Barcelona-pm >> Barcelona-pm a pm.org >> http://mail.pm.org/mailman/listinfo/barcelona-pm >> BCN Perl Mongers: http://barcelona.pm.org >> > > > > -- > JJ > > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org > > > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org > -- Verónica Olmos González Skype: v.olmosg Teléfono/Phone: +34 666 68 16 01 ------------ pr�a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jjmerelo a gmail.com Tue Feb 3 03:33:42 2015 From: jjmerelo a gmail.com (JJ Merelo) Date: Tue, 3 Feb 2015 12:33:42 +0100 Subject: [bcn-pm] =?utf-8?q?Petici=C3=B3n_a_OpenShift_para_que_actualice_P?= =?utf-8?q?erlo?= Message-ID: Hola, Ahora mismo el único PaaS más o menos abierto que usa Perl es OpenShift y tiene la versión 5.10. dotCloud está "cerrado" (sólo un mes de prueba gratuita, si mal no recuerdo) y el resto o es directamente de pago o es similar. Estoy en Twitter haciendo yo solico una campaña pidiéndole a OpenShift que actualice la versión a 5.14 (por lo menos). ¿Me ayudáis? -- JJ ------------ pr�a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From toomany a toomany.net Tue Feb 3 03:56:50 2015 From: toomany a toomany.net (Manuel Trujillo (TooManySecrets)) Date: Tue, 3 Feb 2015 12:56:50 +0100 Subject: [bcn-pm] =?utf-8?q?Petici=C3=B3n_a_OpenShift_para_que_actualice_P?= =?utf-8?q?erlo?= In-Reply-To: References: Message-ID: 2015-02-03 12:33 GMT+01:00 JJ Merelo : > Hola, > Ahora mismo el único PaaS más o menos abierto que usa Perl es OpenShift y > tiene la versión 5.10. dotCloud está "cerrado" (sólo un mes de prueba > gratuita, si mal no recuerdo) y el resto o es directamente de pago o es > similar. Estoy en Twitter haciendo yo solico una campaña pidiéndole a > OpenShift que actualice la versión a 5.14 (por lo menos). ¿Me ayudáis? Por supuestísimo -- --------------------------------------------------------------------------------------- Have a nice day ;-) TooManySecrets FreeBSD Since 4.1 GNU/Linux Since 1993. openSUSE Member since 2008 http://twitter.com/toomanysecrets http://blog.toomany.net --------------------------------------------------------------------------------------- -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From suy a badopi.org Tue Feb 3 09:33:02 2015 From: suy a badopi.org (Alejandro Exojo) Date: Tue, 3 Feb 2015 18:33:02 +0100 Subject: [bcn-pm] =?iso-8859-15?q?Petici=F3n_a_OpenShift_para_que_actualic?= =?iso-8859-15?q?e_Perlo?= In-Reply-To: References: Message-ID: <201502031833.02791.suy@badopi.org> El Tuesday 03 February 2015, JJ Merelo escribió: > Hola, > Ahora mismo el único PaaS más o menos abierto que usa Perl es OpenShift y > tiene la versión 5.10. dotCloud está "cerrado" (sólo un mes de prueba > gratuita, si mal no recuerdo) y el resto o es directamente de pago o es > similar. Estoy en Twitter haciendo yo solico una campaña pidiéndole a > OpenShift que actualice la versión a 5.14 (por lo menos). ¿Me ayudáis? Hace un tiempo jugué con PaaS y Mojolicious, y Heroku parecía la opción más popular. Al menos era lo que Glen Hinkle mencionaba siempre. Yo hice la prueba con lo que sugerían (Perloku) y funcionó bien. Por otro lado, OpenShift es muy abierto. Además del cartucho DIY (do it yourself), se supone que puedes contribuir con un cartucho predefinido. Quizás haya algo abierto en este frente, ¿lo has mirado? -- Alex (a.k.a. suy) | GPG ID 0x0B8B0BC2 http://barnacity.net/ | http://disperso.net From jjmerelo a gmail.com Tue Feb 3 10:19:55 2015 From: jjmerelo a gmail.com (JJ Merelo) Date: Tue, 3 Feb 2015 19:19:55 +0100 Subject: [bcn-pm] =?utf-8?q?Petici=C3=B3n_a_OpenShift_para_que_actualice_P?= =?utf-8?q?erlo?= In-Reply-To: <201502031833.02791.suy@badopi.org> References: <201502031833.02791.suy@badopi.org> Message-ID: No conocía ni lo uno ni lo otro. ¡Muchas gracias! (en todo caso, tampoco está mal que actualicen el perl "por defecto") El 3 de febrero de 2015, 18:33, Alejandro Exojo escribió: > El Tuesday 03 February 2015, JJ Merelo escribió: > > Hola, > > Ahora mismo el único PaaS más o menos abierto que usa Perl es OpenShift y > > tiene la versión 5.10. dotCloud está "cerrado" (sólo un mes de prueba > > gratuita, si mal no recuerdo) y el resto o es directamente de pago o es > > similar. Estoy en Twitter haciendo yo solico una campaña pidiéndole a > > OpenShift que actualice la versión a 5.14 (por lo menos). ¿Me ayudáis? > > Hace un tiempo jugué con PaaS y Mojolicious, y Heroku parecía la opción más > popular. Al menos era lo que Glen Hinkle mencionaba siempre. Yo hice la > prueba > con lo que sugerían (Perloku) y funcionó bien. > > Por otro lado, OpenShift es muy abierto. Además del cartucho DIY (do it > yourself), se supone que puedes contribuir con un cartucho predefinido. > Quizás > haya algo abierto en este frente, ¿lo has mirado? > > -- > Alex (a.k.a. suy) | GPG ID 0x0B8B0BC2 > http://barnacity.net/ | http://disperso.net > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org -- JJ ------------ pr�a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From jjmerelo a gmail.com Tue Feb 3 10:20:59 2015 From: jjmerelo a gmail.com (JJ Merelo) Date: Tue, 3 Feb 2015 19:20:59 +0100 Subject: [bcn-pm] =?utf-8?q?Petici=C3=B3n_a_OpenShift_para_que_actualice_P?= =?utf-8?q?erlo?= In-Reply-To: References: <201502031833.02791.suy@badopi.org> Message-ID: OK, ya veo lo que hace, cambiar el buildpack... sí, de esa forma se puede desplegar prácticamente todo, pero no es trivial. Gracias en todo caso. El 3 de febrero de 2015, 19:19, JJ Merelo escribió: > No conocía ni lo uno ni lo otro. ¡Muchas gracias! (en todo caso, tampoco > está mal que actualicen el perl "por defecto") > > El 3 de febrero de 2015, 18:33, Alejandro Exojo escribió: > > El Tuesday 03 February 2015, JJ Merelo escribió: >> > Hola, >> > Ahora mismo el único PaaS más o menos abierto que usa Perl es OpenShift >> y >> > tiene la versión 5.10. dotCloud está "cerrado" (sólo un mes de prueba >> > gratuita, si mal no recuerdo) y el resto o es directamente de pago o es >> > similar. Estoy en Twitter haciendo yo solico una campaña pidiéndole a >> > OpenShift que actualice la versión a 5.14 (por lo menos). ¿Me ayudáis? >> >> Hace un tiempo jugué con PaaS y Mojolicious, y Heroku parecía la opción >> más >> popular. Al menos era lo que Glen Hinkle mencionaba siempre. Yo hice la >> prueba >> con lo que sugerían (Perloku) y funcionó bien. >> >> Por otro lado, OpenShift es muy abierto. Además del cartucho DIY (do it >> yourself), se supone que puedes contribuir con un cartucho predefinido. >> Quizás >> haya algo abierto en este frente, ¿lo has mirado? >> >> -- >> Alex (a.k.a. suy) | GPG ID 0x0B8B0BC2 >> http://barnacity.net/ | http://disperso.net >> _______________________________________________ >> llista dels Barcelona-pm >> Barcelona-pm a pm.org >> http://mail.pm.org/mailman/listinfo/barcelona-pm >> BCN Perl Mongers: http://barcelona.pm.org > > > > > -- > JJ > -- JJ ------------ pr�a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From bourbaki007 a gmail.com Thu Feb 5 11:34:49 2015 From: bourbaki007 a gmail.com (Daniel Boerner) Date: Thu, 5 Feb 2015 20:34:49 +0100 Subject: [bcn-pm] Duda con arrays In-Reply-To: References: <54CFEF33.3060705@gmail.com> <220BA557-802C-4637-90BC-08A97425619C@gmail.com> Message-ID: Hola, he leído el correo tarde (hace dos días). Así que, no sé sí llego tarde con mis soluciones. Pero me ha gustado mucho el problema, le he dado un par de vueltas y por sí aún sirve de algo, ahí van. Antes, pero, me gustaría saber si la operación que describe el problema tiene algún nombre en bioinformática o biología? Simple curiosidad. Gracias! En las dos soluciones propuestas, asumo que la longitud de cada cadena de entrada es la misma. He probado cada solución con cuatro entradas diferentes. 1. Mi primera idea consiste en descomponer las cadenas en arrays, formando un array de arrays (matriz). Traspongo la matriz resultante y elimino de esta todas las filas que contienen 'N'. El resultado, lo vuelvo a trasponer y de cada fila formo una nueva cadena (join de cada elemento de la fila). Estas nuevas cadenas forman el resultado final. #!/usr/bin/env perl use strict; use warnings; use Data::Dumper; #my @in = qw( ABCDN ANHYI ABCDE ); #my @in = qw( ABCDN AHYNI ABCDE ABNCD AHNYI EDCBA ANBCD NAHYI CDEBA ); #my @in = qw( ABCDEF GHIJKL MOPQRS ); my @in = qw( CAGGCDGGNACACDACGAG AGCGCDGGNACACDNCGAG ACGGCDGGCACACDACAGG GACGCDGGADCACDACGGA ); #decompose strings my @list1; push @list1, map [ split // ], @in; print Dumper(\@list1); #transpose and sieve out my @list2; foreach my $j (0 .. $#{$list1[0]}) { my $t = [ map $_->[$j], @list1 ]; next if grep $_ eq 'N', @$t; push @list2, $t; } print Dumper(\@list2); #transpose and compose strings my @list3; foreach my $j (0 .. $#{$list2[0]}) { push @list3, join '', map $_->[$j], @list2; } print Dumper(\@list3); #print result print "$_\n" foreach @list3; 2. Como segunda solución, mediante un hash acumulo todos los indices en los que se encuentra una 'N'. Una vez que tengo todos los indices, descompongo en un array cada cadena (splice) y extraigo con slice todos aquellos elementos cuyo indice NO se encuentra en el conjunto de indices calculados anteriormente. Finalmente, vuelvo a construir nuevas cadenas con join a partir de la descomposición de cada una de ellas. #!/usr/bin/env perl use strict; use warnings; my @in = qw( ABCDN ANHYI ABCDE ); #my @in = qw( ABCDN AHYNI ABCDE ABNCD AHNYI EDCBA ANBCD NAHYI CDEBA ); #my @in = qw( ABCDEF GHIJKL MOPQRS ); #my @in = qw( CAGGCDGGNACACDACGAG AGCGCDGGNACACDNCGAG ACGGCDGGCACACDACAGG GACGCDGGADCACDACGGA ); my %m; foreach ( @in ) { $m{ $-[0] }++ while $_ =~ /N/g }; foreach ( @in ) { print join '', (split //)[ grep { not exists $m{$_} } 0 .. length($in[0])-1 ], "\n"; } Have fun! El 3 de febrero de 2015, 11:47, Verónica Olmos González < volmosg.bt a gmail.com> escribió: El 3 de febrero de 2015, 11:47, Verónica Olmos González < volmosg.bt a gmail.com> escribió: > Muchísimas gracias por las respuestas. > > De momento, he probado lo de la máscara que me ha sugerido Salvador (no > tenía ni idea de que se podía hacer eso) y, salvo porque los elementos del > array no recuperan so longitud original después de la eliminación (no sé si > esto es la consecuencia lógica esperable; pero seguiré echándole un ojo), > me soluciona bastante bien el problema que tenía :) > > Lo dicho, muchas gracias, y seguiré investigando con las cosillas que me > habéis ido diciendo! > > El 3 de febrero de 2015, 8:17, H. Daniel Cesario > escribió: > > Igual podrías mirar la funcion grep de perl:http:// >> perlmaven.com/filtering-values-with-perl-grep >> Y filtrar la array de entrada quitando los elementos que no te interesan. >> Ej: >> my @arr2 = grep { $_ =~ /(?!N)/ } @arr1; >> >> No estoy seguro de la regex(dont shoot the messenger) >> >> Pero el grep igual te ayuda! >> >> Salut y Perl >> >> Sent from my iPhone >> >> On 3/2/2015, at 8:00, JJ Merelo wrote: >> >> Madre mía, qué hack. Aplausos. >> >> El 2 de febrero de 2015, 22:42, Salvador Fandiño >> escribió: >> >>> On 02/02/2015 08:58 PM, Verónica Olmos González wrote: >>> >>> ¡Hola a todos! >>> >>> Bueno, ante todo, como decía en mi presentación, soy bastante (muy) >>> novata en Perl, así que es bastante probable que la esté liando con algo >>> muy básico... pero me gustaría compartir mi problema con vosotros, por si >>> alguno supiera darme alguna orientación (aunque sea simplemente remitirme a >>> alguna página concreta de documentación). >>> >>> El contexto de mi problema es el siguiente: parto de un array que >>> contiene secuencias de nucleótidos (o sea, strings que deben estar formados >>> por "A", "C", "G" o "T"). La cosa es que estos strings pueden contener, >>> cualquiera de ellos, en determinada posición, el carácter "N", que no es >>> "válido". Lo que hace el resto de mi programa es hacer comparaciones dos a >>> dos entre cada elemento del array. Lo que quiero hacer, y el quid de mi >>> duda: si en "x" posición de cualquier elemento encuentro una "N", debo >>> borrar esa "x-ésima" posición en TODOS los elementos del array. Un ejemplo: >>> si tengo @arr = ("AATN", "AATG", "TATG") debo quedarme con @arr2 = ("AAT", >>> "AAT", "TAT"). >>> >>> Sin enrollarme con más explicaciones, os enseño el código con mi >>> planteamiento: >>> >>> @sequences = ("AATGTCAACGAN", "AATGTCAACGNA", "ATTGTCAACGTN", >>>> "ATTGTGATCGTT"); >>>> for ($i = 0; $i <= scalar(@sequences); $i++) { >>>> if ($sequences[$i] =~ "N") { >>>> >>> # Localizo las "N" y guardo su posición en un array >>> >>> push(@pos,index($sequences[$i], "N")); >>> } >>> } >>> >>> # Elimino posiciones repetidas y ordeno los valores >>> my @pos = do { my %seen; grep { !$seen{$_}++ } @pos }; >>> @pos = sort @pos; >>> >>> # Mi idea era, mediante expresiones regulares, poner "N" en todos los >>> elementos de los arrays, en las posiciones guardadas, para luego eliminarlo >>> todo evitando "corrimientos" en las posiciones >>> >>> for ($i = 0; $i <= scalar(@sequences); $i++) { >>> for ($j = 0; $j <= scalar(@pos); $j++) { >>> substr($sequences[$i],$pos[$j],1) =~ s/\D/N/; >>> } >>> } >>> >>> Ahora bien, en el último bucle se me va todo de madre, permanece >>> iterando continuamente. >>> >>> La verdad es que seguro que estoy haciendo fatal algo tontísimo, pero >>> no soy capaz de ver el origen del error, por lo que agradecería enormemente >>> cualquier tipo de orientación. >>> >>> >>> Un saludo, >>> Verónica >>> >>> >>> Para esto de la N hay un truco. >>> >>> Si te fijas, de todos los caracteres AGCTN solo la N tiene un 1 en el >>> bit 3 (0x08) asi que puedes detectar donde hay Ns haciendo un OR de todas >>> las sequencias y luego buscando los caracteres que tienen ese bit a uno en >>> el resultado. >>> >>> A partir de ahi es fácil generar una mascara que al hacer AND con las >>> secuencias originales ponga a cero las posiciones con N, y luego solo hay >>> que borrar los ceros: >>> >>> @sequences = ("AATGTCAACGAN", >>> "AATGTCAACGNA", >>> "ATTGTCAACGTN", >>> "ATTGTGATCGTT"); >>> >>> my $mask = ''; >>> $mask |= $_ for @sequences; >>> $mask =~ s/(.)/(ord($1) & 8) ? "\0" : "\xFF"/ge; >>> >>> for (@sequences) { >>> $_ &= $mask; >>> tr/\0//; >>> } >>> >>> use Data::Dumper; >>> print Dumper \@sequences; >>> >>> >>> >>> _______________________________________________ >>> llista dels Barcelona-pm >>> Barcelona-pm a pm.org >>> http://mail.pm.org/mailman/listinfo/barcelona-pm >>> BCN Perl Mongers: http://barcelona.pm.org >>> >> >> >> >> -- >> JJ >> >> _______________________________________________ >> llista dels Barcelona-pm >> Barcelona-pm a pm.org >> http://mail.pm.org/mailman/listinfo/barcelona-pm >> BCN Perl Mongers: http://barcelona.pm.org >> >> >> _______________________________________________ >> llista dels Barcelona-pm >> Barcelona-pm a pm.org >> http://mail.pm.org/mailman/listinfo/barcelona-pm >> BCN Perl Mongers: http://barcelona.pm.org >> > > > > -- > Verónica Olmos González > Skype: v.olmosg > Teléfono/Phone: +34 666 68 16 01 > > _______________________________________________ > 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 alexm a caliu.cat Sat Feb 7 13:44:22 2015 From: alexm a caliu.cat (Alex Muntada) Date: Sat, 7 Feb 2015 22:44:22 +0100 Subject: [bcn-pm] Duda con arrays In-Reply-To: References: Message-ID: Verónica Olmos González: > for ($i = 0; $i <= scalar(@sequences); $i++) { > for ($j = 0; $j <= scalar(@pos); $j++) { > substr($sequences[$i],$pos[$j],1) =~ s/\D/N/; > } > } > > Ahora bien, en el último bucle se me va todo de madre, permanece iterando > continuamente. Estás iterando los bucles más allá de la última posición: si scalar(@sequences) es el tamaño del array, estás iterando desde 0 hasta el tamaño en vez de el tamaño-1. En el último bucle además estás cambiando el array @sequences y resulta que al usar un índice por encima del último estás aumentando el tamaño del array a cada paso, que es justo la condición de salida. Por eso no termina nunca. Si pones estas dos directivas al principio del código verás que perl se queja: use warnings; use strict; El error que da es: Use of uninitialized value in substitution (s///) at veronica.pl line 26. Para resolver ésto tan solo tienes que cambiar la condición de salida de los bucles por "$i < scalar(@array)", sin el igual. Un saludo! Alex From fxn a hashref.com Sun Feb 8 01:43:21 2015 From: fxn a hashref.com (Xavier Noria) Date: Sun, 8 Feb 2015 10:43:21 +0100 Subject: [bcn-pm] Duda con arrays In-Reply-To: References: Message-ID: Otra cosilla es que las desigualdades ya ponen contexto escalar, es mas idiomatico escribir $i < @sequences en lugar de $i < scalar(@sequences) La funcion scalar() se usa en raras ocasiones a la practica. -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From marc.egea.sala a gmail.com Mon Feb 16 22:35:28 2015 From: marc.egea.sala a gmail.com (Marc Egea i Sala) Date: Tue, 17 Feb 2015 07:35:28 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= Message-ID: <54E2E130.70100@gmail.com> Hola! En l'anterior reunió vam quedar que el dijous que ve parlaríem dels estatuts de la futura asociació. Jo no he pogut mirar res i tinc la impressió que no tindré gaires oportunitats de fer-ho abans de la reunió. Algú ha avançat en aquest tema? Tenim opcions reals de parlar d'això o ens ho replantegem? Salut! Marc. From alexm a caliu.cat Wed Feb 18 05:27:52 2015 From: alexm a caliu.cat (Alex Muntada) Date: Wed, 18 Feb 2015 14:27:52 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: <54E2E130.70100@gmail.com> References: <54E2E130.70100@gmail.com> Message-ID: Marc Egea i Sala: > Algú ha avançat en aquest tema? En aquest tema no, però tot just avui m'he assabentat d'això altre: «La publicació de la Llei sobre l’Impost de Societats confirma que totes les entitats, sense excepció, hauran de presentar l’impost i, per tant, portar una comptabilitat de partida doble.» http://xarxanet.org/economic/noticies/aprovada-la-reforma-fiscal-referent-limpost-de-societats > Tenim opcions reals de parlar d'això o ens ho replantegem? Cada vegada em fa més mandra tot plegat, sincerament. Si ara hem de declarar per les activitats que farem i tota la pesca, gairebé prefereixo fer-les totes gratuïtes i que si algú vol sponsoritzar ens faci ofertes concretes i finalistes, sense crear cap associació. Si mai organitzem una YAPC ja veurem com canalitzem el finançament i, en tot cas, es pot crear una associació en aquella ocasió. Ara bé, si hi ha algú que tingui molt d'interès en crear una associació ara i vol dedicar-hi el temps necessari, no m'hi negaré pas. Així doncs, jo dedicaria poca estona (30 minuts màxim) a parlar del tema de l'associació i buscaria algun altre tema tècnic que ens engresqui més. Algú s'ofereix a presentar alguna cosa? Salut, Alex From alba a caliu.cat Sun Feb 22 11:38:13 2015 From: alba a caliu.cat (Alba Ferrer) Date: Sun, 22 Feb 2015 20:38:13 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: References: <54E2E130.70100@gmail.com> Message-ID: > «La publicació de la Llei sobre l’Impost de Societats confirma que > totes les entitats, sense excepció, hauran de presentar l’impost i, > per tant, portar una comptabilitat de partida doble.» això complica força les coses, en la meva opinió. Hi ha algú que sàpiga i vulgui encarregar-se d'això? :-S >> Tenim opcions reals de parlar d'això o ens ho replantegem? > > Cada vegada em fa més mandra tot plegat, sincerament. Si ara hem de > declarar per les activitats que farem i tota la pesca, gairebé > prefereixo fer-les totes gratuïtes i que si algú vol sponsoritzar ens > faci ofertes concretes i finalistes, sense crear cap associació. ja hem comentat altres vegades fer esdeveniments gratuïts en els que no donem samarreta ni res. Si trobem patrocinadors que puguin i vulguin pagar directament, com a l'últim workshop, doncs anem afegint les coses que vulguin pagar. > Si mai organitzem una YAPC ja veurem com canalitzem el finançament i, > en tot cas, es pot crear una associació en aquella ocasió. Ara bé, si > hi ha algú que tingui molt d'interès en crear una associació ara i vol > dedicar-hi el temps necessari, no m'hi negaré pas. +1 a tot. > Així doncs, jo dedicaria poca estona (30 minuts màxim) a parlar del > tema de l'associació i buscaria algun altre tema tècnic que ens > engresqui més. Algú s'ofereix a presentar alguna cosa? jo aquest dijous no vindré, així que acceptaré qualsevol cosa que decidiu. salut! From daniel a danielribes.com Sun Feb 22 11:55:29 2015 From: daniel a danielribes.com (Daniel Ribes) Date: Sun, 22 Feb 2015 20:55:29 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: References: <54E2E130.70100@gmail.com> Message-ID: <54EA3431.4080907@danielribes.com> Tot això de l'impost de societats és una complicació inesperada per la majoria d'associacions i entitats sense lucre, però s'estant preparant "movilitzacions" per aconseguir que es repensin la llei, si en voleu més informació: http://www.secretariat.cat/impostdesocietats Hi sembla que a nivell del ministeri ja han obert la possibilitat que torni l'excempció fiscal, encara que mentres no es faci efectiva aquesta reforma de la llei cal estar al cas. Més info: http://www.tornaveu.cat/article/10473/hisenda-podria-recuperar-lexempcio-fiscal-a-entitats-no-lucratives?id_butlleti_enviar=16&utm_source=butlleti_article&utm_medium=butlleti&utm_campaign=hisenda-podria-recuperar-lexempcio-fiscal-a-entitats-no-lucratives Salutacions! El 22/02/2015 a les 20:38, Alba Ferrer ha escrit: >> «La publicació de la Llei sobre l’Impost de Societats confirma que >> totes les entitats, sense excepció, hauran de presentar l’impost i, >> per tant, portar una comptabilitat de partida doble.» > això complica força les coses, en la meva opinió. Hi ha algú que sàpiga > i vulgui encarregar-se d'això? :-S > >>> Tenim opcions reals de parlar d'això o ens ho replantegem? >> Cada vegada em fa més mandra tot plegat, sincerament. Si ara hem de >> declarar per les activitats que farem i tota la pesca, gairebé >> prefereixo fer-les totes gratuïtes i que si algú vol sponsoritzar ens >> faci ofertes concretes i finalistes, sense crear cap associació. > ja hem comentat altres vegades fer esdeveniments gratuïts en els que > no donem samarreta ni res. Si trobem patrocinadors que puguin i vulguin > pagar directament, com a l'últim workshop, doncs anem afegint les coses > que vulguin pagar. > >> Si mai organitzem una YAPC ja veurem com canalitzem el finançament i, >> en tot cas, es pot crear una associació en aquella ocasió. Ara bé, si >> hi ha algú que tingui molt d'interès en crear una associació ara i vol >> dedicar-hi el temps necessari, no m'hi negaré pas. > +1 a tot. > >> Així doncs, jo dedicaria poca estona (30 minuts màxim) a parlar del >> tema de l'associació i buscaria algun altre tema tècnic que ens >> engresqui més. Algú s'ofereix a presentar alguna cosa? > jo aquest dijous no vindré, així que acceptaré qualsevol cosa que decidiu. > > salut! > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org -- Blog: http://danielribes.com Twitter: https://twitter.com/danielribes *** From alexm a caliu.cat Sun Feb 22 13:46:46 2015 From: alexm a caliu.cat (Alex Muntada) Date: Sun, 22 Feb 2015 22:46:46 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: <54EA3431.4080907@danielribes.com> References: <54E2E130.70100@gmail.com> <54EA3431.4080907@danielribes.com> Message-ID: Daniel Ribes: > Tot això de l'impost de societats és una complicació inesperada per la > majoria d'associacions i entitats sense lucre, però s'estant preparant > "movilitzacions" per aconseguir que es repensin la llei, si en voleu més > informació: http://www.secretariat.cat/impostdesocietats Gràcies per la informació. Salut, Alex From alexm a caliu.cat Sun Feb 22 13:51:12 2015 From: alexm a caliu.cat (Alex Muntada) Date: Sun, 22 Feb 2015 22:51:12 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: References: <54E2E130.70100@gmail.com> Message-ID: > Així doncs, jo dedicaria poca estona (30 minuts màxim) a parlar del > tema de l'associació i buscaria algun altre tema tècnic que ens > engresqui més. Algú s'ofereix a presentar alguna cosa? Com que ningú s'ofereix a presentar res fem-ho a l'inrevés: algú té interès en algun tema que no conegui o que conegui poc i en el que li agradaria aprofundir a la reunió de dijous 26? Fins i tot no cal que tingui gaire a veure amb Perl. Vinga va, de què voleu parlar? D'altra banda, hem de buscar un lloc on fer la reunió i com que serà tècnica no la podem fer en un bar. Jo us puc oferir fer-la al Campus Nord de la UPC si no hi ha cap altra alternativa. Salut, Alex From daniel a danielribes.com Sun Feb 22 14:14:15 2015 From: daniel a danielribes.com (Daniel Ribes) Date: Sun, 22 Feb 2015 23:14:15 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: References: <54E2E130.70100@gmail.com> Message-ID: <54EA54B7.70608@danielribes.com> Jo fa temps que estic en aquesta llista pero encara no he tingut ocasió de poder venir a cap reunió ... i m'agradaria, malgrat que tinc el Perl una mica oxidat. Quin és l'horari habitual de les reunions? De temes, si algú controla Vagrant, Docker, o algún PaaS que suporti Perl com Stackato o dotCloud i en vol parlar, podria ser interessant. És un suggeriment Daniel. El 22/02/2015 a les 22:51, Alex Muntada ha escrit: >> Així doncs, jo dedicaria poca estona (30 minuts màxim) a parlar del >> tema de l'associació i buscaria algun altre tema tècnic que ens >> engresqui més. Algú s'ofereix a presentar alguna cosa? > Com que ningú s'ofereix a presentar res fem-ho a l'inrevés: algú té > interès en algun tema que no conegui o que conegui poc i en el que li > agradaria aprofundir a la reunió de dijous 26? Fins i tot no cal que > tingui gaire a veure amb Perl. Vinga va, de què voleu parlar? > > D'altra banda, hem de buscar un lloc on fer la reunió i com que serà > tècnica no la podem fer en un bar. Jo us puc oferir fer-la al Campus > Nord de la UPC si no hi ha cap altra alternativa. > > Salut, > Alex > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org -- Blog: http://danielribes.com Twitter: https://twitter.com/danielribes *** From marc.egea.sala a gmail.com Sun Feb 22 22:38:12 2015 From: marc.egea.sala a gmail.com (Marc Egea i Sala) Date: Mon, 23 Feb 2015 07:38:12 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: References: <54E2E130.70100@gmail.com> Message-ID: <54EACAD4.9080905@gmail.com> On 02/22/15 22:51, Alex Muntada wrote: >> Així doncs, jo dedicaria poca estona (30 minuts màxim) a parlar del >> tema de l'associació i buscaria algun altre tema tècnic que ens >> engresqui més. Algú s'ofereix a presentar alguna cosa? > Com que ningú s'ofereix a presentar res fem-ho a l'inrevés: algú té > interès en algun tema que no conegui o que conegui poc i en el que li > agradaria aprofundir a la reunió de dijous 26? Fins i tot no cal que > tingui gaire a veure amb Perl. Vinga va, de què voleu parlar? > > D'altra banda, hem de buscar un lloc on fer la reunió i com que serà > tècnica no la podem fer en un bar. Jo us puc oferir fer-la al Campus > Nord de la UPC si no hi ha cap altra alternativa. > > Salut, > Alex > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org Jo havia pensat una cosa per poder trencar el gel de les reunions. La meva idea era fer un petit recull de 'what's new' fent un resum del que ha passat al món Perl l'últim mes. No hauria de durar més de 10 minuts però crec que donarà peu a que tothom que vulgui hi pugui posar cullerada i a alguns ens permetrà estar al dia, saber qui és qui i descobrir coses noves. Si no hi teniu inconvenient, m'encarregaré de preparar una petita llista (segurament recollint de Perl Weekly...) Si la fem tècnica podem intentar fer-la aqui a Barcelona Activa, no hauriem de tenir problema en llogar una sala amb projector :) Salut, Marc. From alexm a caliu.cat Sun Feb 22 22:54:15 2015 From: alexm a caliu.cat (Alex Muntada) Date: Mon, 23 Feb 2015 07:54:15 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: <54EA54B7.70608@danielribes.com> References: <54E2E130.70100@gmail.com> <54EA54B7.70608@danielribes.com> Message-ID: Daniel Ribes: > Jo fa temps que estic en aquesta llista pero encara no he tingut ocasió de poder venir a cap reunió ... i m'agradaria, malgrat que tinc el Perl una mica oxidat. Perl és el que ens uneix però el grup està interessat en qualsevol tema tècnic. Evidentment parlem molt de Perl, però ni sempre. > Quin és l'horari habitual de les reunions? El darrer dijous de mes a les 19h. > De temes, si algú controla Vagrant, Docker, o algún PaaS que suporti Perl com Stackato o dotCloud i en vol parlar, podria ser interessant. És un suggeriment El tema dels PaaS és força interessant. Jo fa temps vaig provar una mica dotCloud i després OpenShift, però molt poca cosa: algun tutorial de com posar en marxa Dancer, crec. Algú hi té una mica més d'experiència? Salut i gràcies pel suggeriment, Alex -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From alexm a caliu.cat Sun Feb 22 22:58:31 2015 From: alexm a caliu.cat (Alex Muntada) Date: Mon, 23 Feb 2015 07:58:31 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: <54EACAD4.9080905@gmail.com> References: <54E2E130.70100@gmail.com> <54EACAD4.9080905@gmail.com> Message-ID: Marc Egea i Sala: > Jo havia pensat una cosa per poder trencar el gel de les reunions. La meva idea era fer un petit recull de 'what's new' fent un resum del que ha passat al món Perl l'últim mes. > ... > Si no hi teniu inconvenient, m'encarregaré de preparar una petita llista (segurament recollint de Perl Weekly...) Perfecte, em sembla bona idea per mantenir-nos al dia. > Si la fem tècnica podem intentar fer-la aqui a Barcelona Activa, no hauriem de tenir problema en llogar una sala amb projector :) D'acord. Passeu-me l'adreça i els detalls perquè pugui posar-ho al meetup. Us caldrà autoritzar els assistents a l'entrada, oi? Salut, Alex -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From marc.egea.sala a gmail.com Mon Feb 23 01:39:16 2015 From: marc.egea.sala a gmail.com (Marc Egea i Sala) Date: Mon, 23 Feb 2015 10:39:16 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: References: <54E2E130.70100@gmail.com> <54EACAD4.9080905@gmail.com> Message-ID: <54EAF544.2010204@gmail.com> On 02/23/15 07:58, Alex Muntada wrote: > > Marc Egea i Sala: > > > Jo havia pensat una cosa per poder trencar el gel de les reunions. > La meva idea era fer un petit recull de 'what's new' fent un resum del > que ha passat al món Perl l'últim mes. > > ... > > Si no hi teniu inconvenient, m'encarregaré de preparar una petita > llista (segurament recollint de Perl Weekly...) > > Perfecte, em sembla bona idea per mantenir-nos al dia. > > > Si la fem tècnica podem intentar fer-la aqui a Barcelona Activa, no > hauriem de tenir problema en llogar una sala amb projector :) > > D'acord. Passeu-me l'adreça i els detalls perquè pugui posar-ho al > meetup. Us caldrà autoritzar els assistents a l'entrada, oi? > > Salut, > Alex > > > > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org La reunió serà a Barcelona Activa, Carrer de la Llacuna 162, Barcelona. El lloc concret i el tema de l'autorització dels participants dependrà de la sala que poguem reservar. Si no puc editar jo el Meetup us passaré els detalls concrets tan aviat com sigui possible. Salut, Marc. -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From jlmartinez-lists-bcn-pm a capside.com Mon Feb 23 05:58:27 2015 From: jlmartinez-lists-bcn-pm a capside.com (Jose Luis Martinez) Date: Mon, 23 Feb 2015 14:58:27 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: References: <54E2E130.70100@gmail.com> Message-ID: <54EB3203.9000109@capside.com> El 22/02/2015 a las 22:51, Alex Muntada escribió: > Com que ningú s'ofereix a presentar res fem-ho a l'inrevés: algú té > interès en algun tema que no conegui o que conegui poc i en el que li > agradaria aprofundir a la reunió de dijous 26? Fins i tot no cal que > tingui gaire a veure amb Perl. Vinga va, de què voleu parlar? Yo me animo! Tengo un nuevo modulo: ARGV::Struct que os quiero enseñar en acción, y del que quiero vuestro feedback. > D'altra banda, hem de buscar un lloc on fer la reunió i com que serà > tècnica no la podem fer en un bar. Jo us puc oferir fer-la al Campus > Nord de la UPC si no hi ha cap altra alternativa. en CAPSiDE, si us voleu estalviar el tema de BCN Activa (per anar ràpid). Atentament, Pplu From marc.egea.sala a gmail.com Mon Feb 23 06:14:46 2015 From: marc.egea.sala a gmail.com (Marc Egea i Sala) Date: Mon, 23 Feb 2015 15:14:46 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: <54EB3203.9000109@capside.com> References: <54E2E130.70100@gmail.com> <54EB3203.9000109@capside.com> Message-ID: <54EB35D6.6040201@gmail.com> On 02/23/15 14:58, Jose Luis Martinez wrote: > El 22/02/2015 a las 22:51, Alex Muntada escribió: >> Com que ningú s'ofereix a presentar res fem-ho a l'inrevés: algú té >> interès en algun tema que no conegui o que conegui poc i en el que li >> agradaria aprofundir a la reunió de dijous 26? Fins i tot no cal que >> tingui gaire a veure amb Perl. Vinga va, de què voleu parlar? > > Yo me animo! Tengo un nuevo modulo: ARGV::Struct que os quiero enseñar > en acción, y del que quiero vuestro feedback. > >> D'altra banda, hem de buscar un lloc on fer la reunió i com que serà >> tècnica no la podem fer en un bar. Jo us puc oferir fer-la al Campus >> Nord de la UPC si no hi ha cap altra alternativa. > > en CAPSiDE, si us voleu estalviar el tema de BCN Activa (per anar ràpid). > > Atentament, > > Si tenim algú que ens obre CAPSiDE cedim el torn! sembla molt més fàcil per tothom :) From alexm a caliu.cat Mon Feb 23 14:43:01 2015 From: alexm a caliu.cat (Alex Muntada) Date: Mon, 23 Feb 2015 23:43:01 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: <54EB3203.9000109@capside.com> References: <54E2E130.70100@gmail.com> <54EB3203.9000109@capside.com> Message-ID: Jose Luis Martinez: > Yo me animo! Tengo un nuevo modulo: ARGV::Struct que os quiero enseñar en > acción, y del que quiero vuestro feedback. Genial, ja ho he apuntat a l'agenda de la reunió, junt amb la xerrada d'en Marc: http://www.meetup.com/barcelonapm/events/220445228/ El tema dels PaaS de Perl em sembla molt interessant però potser el podem deixar pel mes vinent i així tenim més temps per jugar-hi una mica. > en CAPSiDE, si us voleu estalviar el tema de BCN Activa (per anar ràpid). Actualitzat al meetup. Salut i gràcies! Alex From eagud.q a tv3.cat Tue Feb 24 23:23:26 2015 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Wed, 25 Feb 2015 07:23:26 +0000 Subject: [bcn-pm] consulta per baixar un html amb scroll Message-ID: <833FB00B9189B840B8857DCDBAD128D364E12003@MAILBOX-3.ad-ccrtv.local> Hola gent, necessito ajuda per baixar de forma automàtica un html de twitter en concret el llistat de members de usa del perfil de twitter que exposo a continuació. La comanda em baixa informació fins a un cert punt però després es para pq la pagina encara no s'ha carregat, les dades es guarden al fitxer usa.dat wget -c -N -p -O usa.dat https://twitter.com/IABM1995/lists/usa/members Algú sap com descarregar tot l'html, en bash o perl? Moltes gràcies Enric Agud -------------- part següent -------------- A non-text attachment was scrubbed... Name: winmail.dat Type: application/ms-tnef Size: 3491 bytes Desc: no disponible URL: From alexm a caliu.cat Wed Feb 25 05:01:15 2015 From: alexm a caliu.cat (Alex Muntada) Date: Wed, 25 Feb 2015 14:01:15 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_26_de_febrer?= In-Reply-To: References: <54E2E130.70100@gmail.com> <54EB3203.9000109@capside.com> Message-ID: > Genial, ja ho he apuntat a l'agenda de la reunió, junt amb la xerrada d'en Marc: > http://www.meetup.com/barcelonapm/events/220445228/ Per accedir a les oficines de Capside al Triangle cal autorització i per a poder-les comunicar al personal de l'entrada aniria molt bé que les persones que tingueu intenció d'anar demà a la reunió us apunteu al meetup el més aviat possible. Vull aprofitar per agrair les dues ofertes per hostatjar la reunió d'aquest mes: la de Soysuper i la de Capside. Salut i gràcies, Alex From wodenmalkav a gmail.com Wed Feb 25 06:29:25 2015 From: wodenmalkav a gmail.com (Carlos Juan) Date: Wed, 25 Feb 2015 15:29:25 +0100 Subject: [bcn-pm] consulta per baixar un html amb scroll In-Reply-To: <833FB00B9189B840B8857DCDBAD128D364E12003@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D364E12003@MAILBOX-3.ad-ccrtv.local> Message-ID: <1424874565.3335.3.camel@gmail.com> El mié, 25-02-2015 a las 07:23 +0000, Agud Pique, Enric escribió: > Hola gent, > > necessito ajuda per baixar de forma automàtica un html de twitter en concret el llistat de members de usa del perfil de twitter que exposo a continuació. La comanda em baixa informació fins a un cert punt però després es para pq la pagina encara no s'ha carregat, les dades es guarden al fitxer usa.dat > > wget -c -N -p -O usa.dat https://twitter.com/IABM1995/lists/usa/members > Hola Enric, El problema el tindrás amb el JS que controla la paginació. Potser podries mirar la documentació de Net::Twitter a CPAN que té controls sobre la paginació i els cursors a veure si et serveix. Salut, -- Carlos Juan From eagud.q a tv3.cat Fri Feb 27 01:54:22 2015 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Fri, 27 Feb 2015 09:54:22 +0000 Subject: [bcn-pm] consulta per baixar un html amb scroll In-Reply-To: <1424874565.3335.3.camel@gmail.com> References: <833FB00B9189B840B8857DCDBAD128D364E12003@MAILBOX-3.ad-ccrtv.local> <1424874565.3335.3.camel@gmail.com> Message-ID: <833FB00B9189B840B8857DCDBAD128D364E1E38B@MAILBOX-3.ad-ccrtv.local> Carlos Juan gràcies Miro el Net::Twitter Salutacions -----Missatge original----- De: Barcelona-pm [mailto:barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] En nom de Carlos Juan Enviat: dimecres, 25 / febrer / 2015 15:29 Per a: barcelona-pm a pm.org Tema: Re: [bcn-pm] consulta per baixar un html amb scroll El mié, 25-02-2015 a las 07:23 +0000, Agud Pique, Enric escribió: > Hola gent, > > necessito ajuda per baixar de forma automàtica un html de twitter en > concret el llistat de members de usa del perfil de twitter que exposo > a continuació. La comanda em baixa informació fins a un cert punt però > després es para pq la pagina encara no s'ha carregat, les dades es > guarden al fitxer usa.dat > > wget -c -N -p -O usa.dat > https://twitter.com/IABM1995/lists/usa/members > Hola Enric, El problema el tindrás amb el JS que controla la paginació. Potser podries mirar la documentació de Net::Twitter a CPAN que té controls sobre la paginació i els cursors a veure si et serveix. Salut, -- Carlos Juan _______________________________________________ llista dels Barcelona-pm Barcelona-pm a pm.org http://mail.pm.org/mailman/listinfo/barcelona-pm BCN Perl Mongers: http://barcelona.pm.org From marc.egea.sala a gmail.com Fri Feb 27 01:57:17 2015 From: marc.egea.sala a gmail.com (Marc Egea i Sala) Date: Fri, 27 Feb 2015 10:57:17 +0100 Subject: [bcn-pm] PerlPicks febrer 2015 Message-ID: <54F03F7D.8030804@gmail.com> Hola a tothom, Adjunto la llista de novetats del món Perl que es van comentar ahir a la reunió mensual: * Perl6 estará llest per nadal (de 2015) (http://commons.wikimedia.org/wiki/File:FOSDEM_2015_Larry_Wall_Perl6_announcement.webm) * CPAN Pull Request Contest by Neil Bowers (http://blogs.perl.org/users/neilb/2014/12/take-the-2015-cpan-pull-request-challenge.html) * Miyagawa entrevista a Larry Wall i Ricardo Signes (http://rebuild.fm/77/ i http://rebuild.fm/78/) * Moo 2 coming soon. Canvis incompatibles sobretot per arreglar bugs no detectats (http://blogs.perl.org/users/graham_knop/2015/02/moo-20.html) * Nou Mojolicious 6 (ha sortit avui, ahir ens vam avançar!) (http://blog.kraih.com/post/112170845701/mojolicious-6-0-released-perl-real-time-webs) * CPAN to MetaCPAN plugin per Chrome (https://chrome.google.com/webstore/detail/meta-cpan-redirect/blakeebdldmplhhegjofiaidnijmiphj) * FFI:Platypus: bindings sense XS, amb libffi (A Portable Foreign Function Interface Library) (https://metacpan.org/pod/FFI::Platypus, https://sourceware.org/libffi/ i http://blogs.perl.org/users/graham_ollis/2015/01/practical-ffi-with-platypus.html) * Es tanca la fase de noves característiques per Perl 5.22 * Google Summer of Code (http://wiki2.enlightenedperl.org/index.php5?title=Google_Summer_of_Code) * Deadlines per la YAPC::NA 2015 (Sant Lake City): 1 de març per speakers i ofertes d'allotjament (http://www.yapcna.org/yn2015/news/1294) * 10 Abril - Dutch Perl Workshop (http://www.perlworkshop.nl/nlpw2015/) * 16-18 Abril - Perl QA Hackathon 2015 Berlin (http://act.qa-hackathon.org/qa2015/) Tinc previst seguir fent la compilació mensual o sigui que si creieu que alguna cosa hauria de ser inclosa, si us plau feu-mo saber i ho incloem :) Salut, Marc.