From alexm a alexm.org Wed May 15 15:11:56 2019 From: alexm a alexm.org (Alex Muntada) Date: Thu, 16 May 2019 00:11:56 +0200 Subject: [bcn-pm] Oferta de feina en remot: Perl Developer - adzuna.co.uk Message-ID: <20190515221156.GB4405@xps> Hola mongers, un amic que hi treballa em comenta que Adzuna té vacants obertes per a desenvolupadors de Perl en remot: https://www.adzuna.co.uk/jobs/details/1123878749 Sembla força interessant. Si algú vol més detalls, li puc passar el contacte perquè hi parleu. Salut i Perl! Alex -------------- part següent -------------- A non-text attachment was scrubbed... Name: signature.asc Type: application/pgp-signature Size: 833 bytes Desc: no disponible URL: From jluis a escomposlinux.org Thu May 16 03:08:47 2019 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Thu, 16 May 2019 12:08:47 +0200 Subject: [bcn-pm] Redirigido desde el meetup Message-ID: <2292090.7dMgJtgIGV@pt001188.tes.da.gencat.cat> He recibido tenido esta conversacion en Meetup pidendo ayuda con Perl y Bionformatica: Alessandra Borgognone 8:19 Buenos días José Luis, Me llamo Alessandra. Soy licenciada en Biología y actualmente estoy siguiendo un master a distancia en Bioinformatica. En en plan de estudio tenemos una asignatura de programación en Perl pero como estoy trabajando a la vez, necesitaría unas clases de refuerzo o ayuda para resolver algunas tareas. Tengo conocimientos de lenguajes de programación R y básicos de Python. Me está resultando bastante difícil encontrar clases particulares de Perl y por eso te contacto para preguntar si podrías impartir alguna clase o conoces alguien del grupo que estaría interesado. Si hace falta, puedo también enviar el material de estudio/tareas para tener una idea del contenido de la asignatura. Gracias por adelantado y un saludo. Alessandra José Luis Pérez Diez 9:06 Si no te importa redirigire tu mensaje a la lista de correos del grupo. También puedes mirar de contactar a "Toni Hermoso Pulido" ,aqu,ique tiene experiencia el Perl y Bioinformática. El día 30 tenemos reunión en CAPSiDE de 19 a 21 ( aún no he publicado los detalles), si quieres venir podíamos acomodar una sesión de preguntas a resolver y ayudarte con tus dudas Espero tu respuesta. Alessandra Borgognone 10:35 ok perfecto..si se puede redirigir el correo al grupo, puede que alguien pueda ayudarme. Igualmente escribiré a Toni Hermoso Pulido. El día 30 estaría bien poder participar a la reunión aunque, si posible, me gustaría encontrar alguien antes porque tengo algunas deadlines a bastante corto plazo. Muchas gracias por tu ayuda y hasta pronto. Alessandra From alessandra.borgognone a unavarra.es Mon May 27 07:44:46 2019 From: alessandra.borgognone a unavarra.es (alessandra.borgognone a unavarra.es) Date: Mon, 27 May 2019 16:44:46 +0200 Subject: [bcn-pm] script_Perl_Array_index_comparison Message-ID: Hola a tod a s, Me llamo Alessandra y empecé hace poco un curso online de programación en Perl. Me gustaría poder participar a las próximas reuniones de Barcelona Perl Mongers para poder charlar con vosotr a s. Necesitaría terminar pronto un código y quería pedir un ayuda sobre la siguiente cuestión: Teniendo 2 arrays: @A = ("Red", "Green", "Yellow"); @B = ("Yellow", "Black","Yellow","Red", "White", "Yellow"); En array A, cada elemento está representado 1 vez. En array B, cada elemento puede ocurrir zero, una o más veces. Estoy intentado combinar unos comandos que para cada elemento en A saquen el valor de su posición en B, generando un output como el siguiente: > Red at index 3 > Green is missing > Yellow at index 0, 2 and 5 > Elements from B were detected 4 times in A Intenté con el siguiente código pero no consigo entender como comparar los elementos entre los dos arrays y determinar las posiciones foreach $x (@A){ foreach $y (@B){ if ($y eq $x){ print "$y\n"; } elsif ($x ne$y){ print "$x"; } } } Alguna idea? Muchísimas gracias por vuestra ayuda y hasta pronto! From jjmerelo a gmail.com Mon May 27 08:24:14 2019 From: jjmerelo a gmail.com (JJ Merelo) Date: Mon, 27 May 2019 17:24:14 +0200 Subject: [bcn-pm] script_Perl_Array_index_comparison In-Reply-To: References: Message-ID: Hola, El lun., 27 may. 2019 a las 16:51, escribió: > Hola a tod a s, > > Me llamo Alessandra y empecé hace poco un curso online de programación en > Perl. > Me gustaría poder participar a las próximas reuniones de Barcelona Perl > Mongers para poder charlar con vosotr a s. > > Necesitaría terminar pronto un código y quería pedir un ayuda sobre la > siguiente cuestión: > > Teniendo 2 arrays: > @A = ("Red", "Green", "Yellow"); > @B = ("Yellow", "Black","Yellow","Red", "White", "Yellow"); > > En array A, cada elemento está representado 1 vez. > En array B, cada elemento puede ocurrir zero, una o más veces. > > Estoy intentado combinar unos comandos que para cada elemento en A saquen > el valor de su posición en B, generando un output como el siguiente: > > > Red at index 3 > > Green is missing > > Yellow at index 0, 2 and 5 > > Elements from B were detected 4 times in A > Crea un hash que tenga como claves los elementos de A e inicialízalo con un array vacío. Cada vez que aparezca un elemento en @B lo añades a ese array. Finalmente recorre ese hash y puedes sacar toda la información que muestras arriba contando o enumerando los elementos en ese array. Saludos y suerte. JJ -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From jluis a escomposlinux.org Mon May 27 08:34:06 2019 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Mon, 27 May 2019 17:34:06 +0200 Subject: [bcn-pm] script_Perl_Array_index_comparison In-Reply-To: References: Message-ID: <9068258.CR6mHQxinQ@pt001188.tes.da.gencat.cat> Bienvenida , El dilluns, 27 de maig de 2019, a les 16:44:46 CEST, alessandra.borgognone a unavarra.es va escriure: > Necesitaría terminar pronto un código y quería pedir un ayuda sobre la > siguiente cuestión: > > Teniendo 2 arrays: > @A = ("Red", "Green", "Yellow"); > @B = ("Yellow", "Black","Yellow","Red", "White", "Yellow"); > > En array A, cada elemento está representado 1 vez. > En array B, cada elemento puede ocurrir zero, una o más veces. Yo usaría un hash y me olvidaría de @A hasta el final con un algoritmo como el siguiente: my @B = qw(Yellow Black Yellow Red White Yellow); #qr usa los espacios en blaco para definir una lista de strings my %positions ; for my $pos (0..$#B) { if (defined $positions{$B[$pos]}) { push @{$positions{$B[$pos]}}, $pos; } else { $positions{$B[$pos]}=[$pos]; } } my @A = qw (Red Green Yellow); my $found = 0; for my $color (@A) { if (defined $positions{$color}) { $found += scalar @{$positions{$color}}; # scalar de un array nos devuelve el numero de elementos print "$color at index " , join " ," ,@{$positions{$color}}; } else { print "$color not found"; } print "\n"; } print "Elements from B were detected $found times in A\n" From richard.foley a rfi.net Mon May 27 08:35:26 2019 From: richard.foley a rfi.net (Richard Foley) Date: Mon, 27 May 2019 17:35:26 +0200 Subject: [bcn-pm] script_Perl_Array_index_comparison In-Reply-To: References: Message-ID: <20190527153517.civjhtdleniniy3w@thpad> bienvenuto Alessandra, perl usa "hashes" mucho por problemas. foreach $val (@A) { $losA{$val}++; } Luego dice: $losB{$val} is missing unless $losA{$val}. y $val was detected $losA{$val} times. etc. Quizas esta una pequena ayudar? -- Ciao Richard Foley https://www.rfi.net/ On Mon, May 27, 2019 at 04:44:46PM +0200, alessandra.borgognone a unavarra.es wrote: > Hola a tod a s, > > Me llamo Alessandra y empecé hace poco un curso online de programación en > Perl. > Me gustaría poder participar a las próximas reuniones de Barcelona Perl > Mongers para poder charlar con vosotr a s. > > Necesitaría terminar pronto un código y quería pedir un ayuda sobre la > siguiente cuestión: > > Teniendo 2 arrays: > @A = ("Red", "Green", "Yellow"); > @B = ("Yellow", "Black","Yellow","Red", "White", "Yellow"); > > En array A, cada elemento está representado 1 vez. > En array B, cada elemento puede ocurrir zero, una o más veces. > > Estoy intentado combinar unos comandos que para cada elemento en A saquen > el valor de su posición en B, generando un output como el siguiente: > > > Red at index 3 > > Green is missing > > Yellow at index 0, 2 and 5 > > Elements from B were detected 4 times in A > > Intenté con el siguiente código pero no consigo entender como comparar los > elementos entre los dos arrays y determinar las posiciones > foreach $x (@A){ > foreach $y (@B){ > if ($y eq $x){ > print "$y\n"; > } > elsif ($x ne$y){ > print "$x"; > } > } > } > > Alguna idea? Muchísimas gracias por vuestra ayuda y hasta pronto! > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > https://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org From alessandra.borgognone a unavarra.es Tue May 28 01:48:56 2019 From: alessandra.borgognone a unavarra.es (alessandra.borgognone a unavarra.es) Date: Tue, 28 May 2019 10:48:56 +0200 Subject: [bcn-pm] script_Perl_Array_index_comparison Message-ID: Muchas gracias por vuestros tips! From jluis a escomposlinux.org Wed May 29 23:33:39 2019 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Thu, 30 May 2019 08:33:39 +0200 Subject: [bcn-pm] Meetup day Message-ID: <3139EAED-160D-46AC-9164-5965B45CAA6C@escomposlinux.org> Aquesta tarda tenim reunió a les oficines de CAPSiDE on podràs portar les teves preguntes sobre Perl. Esta tarde trae tus preguntas. This evening bring your Perl programing doubts and ask them. Where: Barcelona's Perl Mongers Meetup (on local @CAPSiDE's office). http://meetu.ps/e/GM5dc/6FKJ/d -- Sent from my Android device with K-9 Mail. Please excuse my brevity. -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From codehead a gmail.com Fri May 31 07:18:28 2019 From: codehead a gmail.com (Javier Arturo Rodriguez) Date: Fri, 31 May 2019 16:18:28 +0200 Subject: [bcn-pm] DNA sequencing In-Reply-To: <9068258.CR6mHQxinQ@pt001188.tes.da.gencat.cat> References: <9068258.CR6mHQxinQ@pt001188.tes.da.gencat.cat> Message-ID: <1c6a5498-9ee0-3e4b-2dfb-ed1df9bd5283@gmail.com> Buena tarde Mongers! Creo que anoche no íbamos tan mal, está claro sólo necesitábamos birra y hamburguesa para sacar adelante el problema: #!/usr/bin/env perl use strict; my $dna = q/GGCACGAGATATTTGCTACTACCACCAAGATCTGTGCTAGTGGCGGCTCCATGTCGGCTTACGCCAGGCACTTCAACGCACACCACCAGACCCTCCTACTCGCTGGCGTCTCAAAGGGCAGACGTGCGTGCGCGCTGCCCCACTTGTACGCCAGCGGTAATGTATAGGCAAACGACTTAAGCGCCATCCATTTTAAGGGCTAATTGCTTCGGCAGGTGAGTTGTTACACACTCCTTAGCGGATGACAACTTCCATGTCCACCGTCCTGCTGTCTGTAGCAATCAACACCTTTCATGGTATCTATGATGCGTCGTTTATTTAGGCGCCGTAACATTACGTTTGGTTCATCCCACAGCACCAGTTCTGCTTACCAAAACTTGGCCCACTAAGCACACAGATATCTTCTACGCCGCTTGTGGATGGCACACCCTGACAGGGGGGCGACCCGGCGTCAACGTTGCAACAGCATCATGCAAGAATGCTATGGTACGTACCCATTTATAGTTTGAGAATAGGTTAAGATCATTTC/; for($dna=~m/GAT ( (...)*? ) TAG/gx) {     print "grp: $_\n     ";     my @split = $_=~m/(...)/g;     print join(" ", @split), "\n"; } La condición (...)*? es necesaria para asegurarnos que tendremos múltiplos de tres caracteres entre el tag (er, codon) inicial y final, y la segunda regexp parte la secuencia encontrada en grupos de tres caracteres. Por cierto he codificado el programa con "use DNA;" y es acojonante. Molaría que Alessandra nos ayude a codificar el resultado en levadura... Saludos, -Javier Arturo Rodríguez -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From jjmerelo a gmail.com Fri May 31 10:03:49 2019 From: jjmerelo a gmail.com (JJ Merelo) Date: Fri, 31 May 2019 19:03:49 +0200 Subject: [bcn-pm] =?utf-8?b?wqFWw6Ftb25vcyBhIFJpZ2Eh?= Message-ID: Me piden que difunda esto, aunque supongo que ya lo conocéis. --- Dear Perl mongers! *We are inviting you to visit the annual European Perl Conference*, PerlCon a.k.a. YAPC::Europe. This year, the conference takes place in Riga, Latvia. The conference will be held from 7th to 9th of August 2019 at the Radisson Blu Daugava Hotel with a picturesque view over the Old Riga. *At the conference, you will find a lot of interesting talks*, such as "Perl 5: The past, the present, and one possible future", "The working architecture of Perl applications", "Perl 6 performance update," and many others. More information about the conference contents you will find here: https://perlcon.eu/talks *On top of that, there is an extensive entertainment program:* the Cocktail party, the Game night, the Attendees dinner, the River cruise and more. Full agenda: https://perlcon.eu/amenities Don't miss an excellent opportunity to purchase your ticket at a good price. You can also book a hotel room at our venue at non-public reduced prices which are provided to us directly by the hotel. This offer is limited to the number of rooms (only 15 rooms left) and is quickly disappearing. *Reserve a ticket and a hotel room at:* https://perlcon.eu/tickets *We are looking forward to seeing you at the conference, on our website and our pages in social networks:* https://perlcon.eu https://www.facebook.com/perlcon.eu/ https://instagram.com/perlcon https://twitter.com/perlcon https://t.me/perlcon *Love Perl? Come to Riga!* -- JJ -------------- part següent -------------- Un document HTML ha estat eliminat... URL: