From jjmerelo a gmail.com Tue Mar 11 09:15:23 2014 From: jjmerelo a gmail.com (JJ Merelo) Date: Tue, 11 Mar 2014 17:15:23 +0100 Subject: [bcn-pm] Fwd: [pm_groups] Call for Venue for YAPC::Europe::2015 In-Reply-To: <20140311105539.GW74776@heechee.tobez.org> References: <20140311105539.GW74776@heechee.tobez.org> Message-ID: The heat is on. Por lo que he hablado con vosotros en FOSDEM, supongo que seguimos en la brecha. Necesito al menos una segunda persona que quiera figurar como persona de contacto de la organización; si hay una tercera, una de Madrid PM y otra de Barcelona PM, genial. Saludos ---------- Forwarded message ---------- From: Anton Berezin Date: 2014-03-11 11:55 GMT+01:00 Subject: [pm_groups] Call for Venue for YAPC::Europe::2015 To: pm_groups a pm.org Although YAPC::Europe::2014 preparations are well underway in Sofia, it is time for the venue committee of the YAPC::Europe Foundation (YEF) to think about the location of the 2015 conference. YAPC::Europe wouldn't exist without dedicated teams of volunteers, and we are always excited to see the enthusiasm and learn about the new ideas the community has to offer. Further information about preparing a complete application can be found on http://www.yapceurope.org/organizers/index.html . Proposals submitted to the venue committee will be added to this public repository (you may provide private information separately) to benefit future organizers. The deadlines which apply to this portion of the procedure are: * Friday, 25 April: Deadline for sending a letter of intent. This letter simply expresses interest in hosting the conference and provides contact information (both email and telephone) for at least two organizers. This is an optional step but it can be to your advantage to alert the venue committee of your proposal. * Monday, 7 July: Deadline for sending proposals to host YAPC::Europe 2015. If you do not receive a confirmation for your letter of intent or proposal within a couple of days, please personally contact a member of the venue committee. Please send your questions, letters of intent, and proposals to venue a yapceurope.org. -- Request pm.org Technical Support via support a pm.org pm_groups mailing list pm_groups a pm.org http://mail.pm.org/mailman/listinfo/pm_groups -- JJ ------------ pr?a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From sfandino a yahoo.com Wed Mar 12 04:22:22 2014 From: sfandino a yahoo.com (Salvador Fandino) Date: Wed, 12 Mar 2014 04:22:22 -0700 (PDT) Subject: [bcn-pm] [Madrid-pm] Fwd: [pm_groups] Call for Venue for YAPC::Europe::2015 In-Reply-To: References: <20140311105539.GW74776@heechee.tobez.org> Message-ID: <1394623342.36315.YahooMailNeo@web163106.mail.bf1.yahoo.com> >________________________________ > From: JJ Merelo >To: Barcelona Perl Mongers ; Lista de correo de Madrid Perl Mongers >Sent: Tuesday, March 11, 2014 5:15 PM >Subject: [Madrid-pm] Fwd: [pm_groups] Call for Venue for YAPC::Europe::2015 > > > >The heat is on. Por lo que he hablado con vosotros en FOSDEM, supongo que seguimos en la brecha. Necesito al menos una segunda persona que quiera figurar como persona de contacto de la organización; si hay una tercera, una de Madrid PM y otra de Barcelona PM, genial. > Yo no tengo demasiado tiempo libre, pero si nadie más se ofrece, ¡cuenta conmigo! From eagud.q a tv3.cat Mon Mar 17 01:44:43 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 08:44:43 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero Message-ID: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> Hola gent, una consulta. Tinc un fitxer que amb dades. Totes les dades estan en una sola columna. Vull convertir tots els números negatius en zero i guardar el resultat, tota la columna de nou. Estic fent servir el següent codi però no sé si vaig bé. Suposo que he de llegir linea a linea...fent un chomp($linea) i si detecta un numero inferior a zero que el canvii a zero, pero quan arribo en aquest apartat no sé si el codi detecta que el que li passo es un numero o no.... #!/usr/local/bin/perl use autodie; my $nombre = 'data.dat'; my $nombre2 = 'data2.dat'; open my $INFILE, '<', $nombre; my $linea; while ( $linea = ) { chomp($linea); if ($linea< 0) { $linea==0 //aqui he de posar codi per convertir negatius a zero// } } open my $OUTFILE, '>', $nombre2; print $OUTFILE "$linea"; close $OUTFILE; Gràcies Enric From web.perldev a gmail.com Mon Mar 17 02:17:30 2014 From: web.perldev a gmail.com (Stanislav) Date: Mon, 17 Mar 2014 13:17:30 +0400 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> Message-ID: Hello! #!/usr/bin/perl use strict; use warnings; my ($file_in, $file_out) = ('in.txt', 'out.txt'); open(my $in, '<', $file_in) or die "failed to open file $file_in: $!"; open(my $out, '>', $file_out) or die "failed to open file $file_out: $!"; while (<$in>) { chomp; $_ = 0 if int and $_ < 0; print $out $_, "\n"; } Does it help? Best regards, Stanislav 2014-03-17 12:44 GMT+04:00 Agud Pique, Enric : > Hola gent, > > una consulta. Tinc un fitxer que amb dades. Totes les dades estan en una > sola columna. Vull convertir tots els números negatius en zero i guardar el > resultat, tota la columna de nou. Estic fent servir el següent codi però no > sé si vaig bé. Suposo que he de llegir linea a linea...fent un > chomp($linea) i si detecta un numero inferior a zero que el canvii a zero, > pero quan arribo en aquest apartat no sé si el codi detecta que el que li > passo es un numero o no.... > > #!/usr/local/bin/perl > use autodie; > > my $nombre = 'data.dat'; > my $nombre2 = 'data2.dat'; > open my $INFILE, '<', $nombre; > my $linea; > while ( $linea = ) { > chomp($linea); > if ($linea< 0) { > $linea==0 //aqui he de posar codi per convertir negatius a zero// > } > } > open my $OUTFILE, '>', $nombre2; > print $OUTFILE "$linea"; > close $OUTFILE; > > Gràcies > > Enric > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org -------------- next part -------------- An HTML attachment was scrubbed... URL: From fxn a hashref.com Mon Mar 17 02:17:14 2014 From: fxn a hashref.com (Xavier Noria) Date: Mon, 17 Mar 2014 10:17:14 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> Message-ID: Hola Enric, Perl es una mica diferent a la resta de llenguatges en aquest particular punt. Conceptualment no distingeix nombres i cadenes, tot es igual per ell i interpreta les dades segons el context. Perl te un solo tipus de dada que engloba aquests dos i mes, el tipus escalar. Aixi, quan tu fas $a + $b Perl diu: ah, "+" es un operador binari *numeric*, he d'interpretar $a com a nombre, $b com a nombre, i tornar un escalar amb la suma. Mentre que a $a . $b, interpreta que $a i $b cal veure-les com a cadenes, i igualment torna un escalar amb la seva concatenacio. L'interpret te optimitzacions que fan que aixo funcioni en C de forma eficient, pero a nivell de programador el model mental es el que et dic[*]. En el teu codi, $linia < 0 es correcte. Pero cal revisar l'assignacio que te un signe igual de mes: $linia = 0; # un sol = i possiblement voldras un salt de linia en treure el valor al fitxer: print $OUTFILE "$linea\n"; A mes a mes, cal que obris $OUTFILE una sola vegada al principi, perque si no cada cop que l'obres esborra el que hi havia. T'has llegit "Learning Perl"? Xavier [*] Hi ha algun operador binari dubtos que depen de que son els escalars per sota en aquell moment de l'execucio del programa, pero es podria considerar un bug de la definicio del llenguatge, no encaixen. -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From jluis a escomposlinux.org Mon Mar 17 02:49:32 2014 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Mon, 17 Mar 2014 10:49:32 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> Message-ID: <201403171049.34254.jluis@escomposlinux.org> El Monday 17 March 2014 09:44:43 Agud Pique, Enric va escriure: > Hola gent, > > una consulta. Tinc un fitxer que amb dades. Totes les dades estan en una sola columna. Vull convertir tots els números negatius en zero i guardar el resultat, tota la columna de nou. Estic fent servir el següent codi però no sé si vaig bé. Suposo que he de llegir linea a linea...fent un chomp($linea) i si detecta un numero inferior a zero que el canvii a zero, pero quan arribo en aquest apartat no sé si el codi detecta que el que li passo es un numero o no.... Jo per aquest cas si fas servir un entorn unix (linux,bsd,..) ho faria amb un oneliner: perl -pe'$_=0>$_?"0\n":$_' que executa un programa semblant a aquest (mira perldoc perlrun per veure el codi real) while (my $col =<>) { $col = "0\n" if 0 > $col; print $col } que et permet fer-ho servir com a filtre perl -pe'$_=0>$_?"0\n":$_' dades.txt | altres processos o per editar el fitxer perl -pie'$_=0>$_?"0\n":$_' dades.txt ... espero que et serveixi -- jluis From codehead a gmail.com Mon Mar 17 03:14:07 2014 From: codehead a gmail.com (Javier Arturo Rodriguez) Date: Mon, 17 Mar 2014 11:14:07 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <201403171049.34254.jluis@escomposlinux.org> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171049.34254.jluis@escomposlinux.org> Message-ID: <5326CAEF.9090204@gmail.com> GOLF! ;-) Ya sé que no debería hacer esto en un thread en el que escribe Xavi Noria, pero si utilizamos el switch -l (automatic line‐ending processing) podemos quitar las comillas y el newline, para una ganancia neta de 3 puntos: perl -lpe'$_=$_<0?0:$_' dades.txt Salut! -Javier Arturo Rodríguez On 2014-03-17 10:49 , Jose Luis Perez Diez wrote: > El Monday 17 March 2014 09:44:43 Agud Pique, Enric va escriure: >> Hola gent, >> >> una consulta. Tinc un fitxer que amb dades. Totes les dades estan en una sola columna. Vull convertir tots els números negatius en zero i guardar el resultat, tota la columna de nou. Estic fent servir el següent codi però no sé si vaig bé. Suposo que he de llegir linea a linea...fent un chomp($linea) i si detecta un numero inferior a zero que el canvii a zero, pero quan arribo en aquest apartat no sé si el codi detecta que el que li passo es un numero o no.... > Jo per aquest cas si fas servir un entorn unix (linux,bsd,..) ho faria amb un oneliner: > perl -pe'$_=0>$_?"0\n":$_' > que executa un programa semblant a aquest (mira perldoc perlrun per veure el codi real) > > while (my $col =<>) { > $col = "0\n" if 0 > $col; > print $col > } > > que et permet fer-ho servir com a filtre > > perl -pe'$_=0>$_?"0\n":$_' dades.txt | altres processos > > o per editar el fitxer > > perl -pie'$_=0>$_?"0\n":$_' dades.txt > > ... > > espero que et serveixi > > -- > jluis > _______________________________________________ > 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 fxn a hashref.com Mon Mar 17 04:01:48 2014 From: fxn a hashref.com (Xavier Noria) Date: Mon, 17 Mar 2014 12:01:48 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <5326CAEF.9090204@gmail.com> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171049.34254.jluis@escomposlinux.org> <5326CAEF.9090204@gmail.com> Message-ID: 2014-03-17 11:14 GMT+01:00 Javier Arturo Rodriguez : GOLF! ;-) > > Ya sé que no debería hacer esto en un thread en el que escribe Xavi > Noria, pero si utilizamos el switch -l (automatic line‐ending > processing) podemos quitar las comillas y el newline, para una ganancia > neta de 3 puntos: > > perl -lpe'$_=$_<0?0:$_' dades.txt perl -ple 's/-.*/0/' foo.txt Recuerda que -p imprime lo que sea que tenga $_ despues del codigo, no hace falta setearla a si misma :). -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From eagud.q a tv3.cat Mon Mar 17 05:11:29 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 12:11:29 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local>, Message-ID: <833FB00B9189B840B8857DCDBAD128D32D829360@MAILBOX-3.ad-ccrtv.local> Hello Stanislav, it runs properly! Thank you, what does it "int" in the code? Thank you Best Enric ________________________________ De: Barcelona-pm [barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] en nom de Stanislav [web.perldev a gmail.com] Enviat el: dilluns, 17 / març / 2014 10:17 Per a: Barcelona Perl Mongers Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero Hello! #!/usr/bin/perl use strict; use warnings; my ($file_in, $file_out) = ('in.txt', 'out.txt'); open(my $in, '<', $file_in) or die "failed to open file $file_in: $!"; open(my $out, '>', $file_out) or die "failed to open file $file_out: $!"; while (<$in>) { chomp; $_ = 0 if int and $_ < 0; print $out $_, "\n"; } Does it help? Best regards, Stanislav 2014-03-17 12:44 GMT+04:00 Agud Pique, Enric >: Hola gent, una consulta. Tinc un fitxer que amb dades. Totes les dades estan en una sola columna. Vull convertir tots els números negatius en zero i guardar el resultat, tota la columna de nou. Estic fent servir el següent codi però no sé si vaig bé. Suposo que he de llegir linea a linea...fent un chomp($linea) i si detecta un numero inferior a zero que el canvii a zero, pero quan arribo en aquest apartat no sé si el codi detecta que el que li passo es un numero o no.... #!/usr/local/bin/perl use autodie; my $nombre = 'data.dat'; my $nombre2 = 'data2.dat'; open my $INFILE, '<', $nombre; my $linea; while ( $linea = ) { chomp($linea); if ($linea< 0) { $linea==0 //aqui he de posar codi per convertir negatius a zero// } } open my $OUTFILE, '>', $nombre2; print $OUTFILE "$linea"; close $OUTFILE; Gràcies Enric _______________________________________________ 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 eagud.q a tv3.cat Mon Mar 17 05:16:56 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 12:16:56 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local>, Message-ID: <833FB00B9189B840B8857DCDBAD128D32D829386@MAILBOX-3.ad-ccrtv.local> Hola Xavier, moltes gràcies pels comentaris. Si a casa tincs la 4 eidcio de Programming Perl de l'editorial O'REILLY, però normalment tiro de google... He seguit les teves indicacions però en el codi que he utilitzat encara hi ha alguna cosa que em falla pq no em guarda cap dada #!/usr/local/bin/perl use autodie; my $nombre = 'data.dat'; my $nombre2 = 'data2.dat'; open my $INFILE, '<', $nombre; open my $OUTFILE, '>', $nombre2; my $linea; while ( $linea = ) { chomp($linea); if ($linea < 0) { $linea=0 } print $OUTFILE "$linea\n"; } close $OUTFILE; ________________________________ De: Barcelona-pm [barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] en nom de Xavier Noria [fxn a hashref.com] Enviat el: dilluns, 17 / març / 2014 10:17 Per a: Barcelona Perl Mongers Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero Hola Enric, Perl es una mica diferent a la resta de llenguatges en aquest particular punt. Conceptualment no distingeix nombres i cadenes, tot es igual per ell i interpreta les dades segons el context. Perl te un solo tipus de dada que engloba aquests dos i mes, el tipus escalar. Aixi, quan tu fas $a + $b Perl diu: ah, "+" es un operador binari *numeric*, he d'interpretar $a com a nombre, $b com a nombre, i tornar un escalar amb la suma. Mentre que a $a . $b, interpreta que $a i $b cal veure-les com a cadenes, i igualment torna un escalar amb la seva concatenacio. L'interpret te optimitzacions que fan que aixo funcioni en C de forma eficient, pero a nivell de programador el model mental es el que et dic[*]. En el teu codi, $linia < 0 es correcte. Pero cal revisar l'assignacio que te un signe igual de mes: $linia = 0; # un sol = i possiblement voldras un salt de linia en treure el valor al fitxer: print $OUTFILE "$linea\n"; A mes a mes, cal que obris $OUTFILE una sola vegada al principi, perque si no cada cop que l'obres esborra el que hi havia. T'has llegit "Learning Perl"? Xavier [*] Hi ha algun operador binari dubtos que depen de que son els escalars per sota en aquell moment de l'execucio del programa, pero es podria considerar un bug de la definicio del llenguatge, no encaixen. From web.perldev a gmail.com Mon Mar 17 05:28:13 2014 From: web.perldev a gmail.com (Stanislav) Date: Mon, 17 Mar 2014 16:28:13 +0400 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <833FB00B9189B840B8857DCDBAD128D32D829360@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <833FB00B9189B840B8857DCDBAD128D32D829360@MAILBOX-3.ad-ccrtv.local> Message-ID: Hello, Enric, In this code int() just checks each row of the input file for an integer value. Glad to help you! Best regards, Stanislav 2014-03-17 16:11 GMT+04:00 Agud Pique, Enric : > Hello Stanislav, > > it runs properly! Thank you, what does it "int" in the code? > > Thank you > > Best > > Enric > ________________________________ > De: Barcelona-pm [barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] en nom de > Stanislav [web.perldev a gmail.com] > Enviat el: dilluns, 17 / març / 2014 10:17 > Per a: Barcelona Perl Mongers > Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un > zero > > Hello! > > #!/usr/bin/perl > use strict; > use warnings; > > my ($file_in, $file_out) = ('in.txt', 'out.txt'); > > open(my $in, '<', $file_in) or die "failed to open file $file_in: $!"; > open(my $out, '>', $file_out) or die "failed to open file $file_out: $!"; > > while (<$in>) { > chomp; > $_ = 0 if int and $_ < 0; > print $out $_, "\n"; > } > > Does it help? > > Best regards, Stanislav > > > > 2014-03-17 12:44 GMT+04:00 Agud Pique, Enric eagud.q a tv3.cat>>: > Hola gent, > > una consulta. Tinc un fitxer que amb dades. Totes les dades estan en una > sola columna. Vull convertir tots els números negatius en zero i guardar el > resultat, tota la columna de nou. Estic fent servir el següent codi però no > sé si vaig bé. Suposo que he de llegir linea a linea...fent un > chomp($linea) i si detecta un numero inferior a zero que el canvii a zero, > pero quan arribo en aquest apartat no sé si el codi detecta que el que li > passo es un numero o no.... > > #!/usr/local/bin/perl > use autodie; > > my $nombre = 'data.dat'; > my $nombre2 = 'data2.dat'; > open my $INFILE, '<', $nombre; > my $linea; > while ( $linea = ) { > chomp($linea); > if ($linea< 0) { > $linea==0 //aqui he de posar codi per convertir negatius a zero// > } > } > open my $OUTFILE, '>', $nombre2; > print $OUTFILE "$linea"; > close $OUTFILE; > > Gràcies > > Enric > _______________________________________________ > 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 > -------------- next part -------------- An HTML attachment was scrubbed... URL: From fxn a hashref.com Mon Mar 17 05:28:23 2014 From: fxn a hashref.com (Xavier Noria) Date: Mon, 17 Mar 2014 13:28:23 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <833FB00B9189B840B8857DCDBAD128D32D829386@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <833FB00B9189B840B8857DCDBAD128D32D829386@MAILBOX-3.ad-ccrtv.local> Message-ID: Com a minim INFILE hauria de ser $INFILE. No tiris de Google! Es molt ineficient. Programming Perl es massa, llegeix-te Learning Perl i en quinze dies no seras el mateix programant Perl. -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From eagud.q a tv3.cat Mon Mar 17 05:36:08 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 12:36:08 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <833FB00B9189B840B8857DCDBAD128D32D829386@MAILBOX-3.ad-ccrtv.local>, Message-ID: <833FB00B9189B840B8857DCDBAD128D32D8293F0@MAILBOX-3.ad-ccrtv.local> Ara si! Gràcies! Em llegeixo el Learning Perl Enric ________________________________ De: Barcelona-pm [barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] en nom de Xavier Noria [fxn a hashref.com] Enviat el: dilluns, 17 / març / 2014 13:28 Per a: Barcelona Perl Mongers Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero Com a minim INFILE hauria de ser $INFILE. No tiris de Google! Es molt ineficient. Programming Perl es massa, llegeix-te Learning Perl i en quinze dies no seras el mateix programant Perl. From fxn a hashref.com Mon Mar 17 05:36:28 2014 From: fxn a hashref.com (Xavier Noria) Date: Mon, 17 Mar 2014 13:36:28 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <833FB00B9189B840B8857DCDBAD128D32D829360@MAILBOX-3.ad-ccrtv.local> Message-ID: On Mon, Mar 17, 2014 at 1:28 PM, Stanislav wrote: Hello, Enric, > > In this code int() just checks each row of the input file for an integer > value. > It does not! fxn a yeager:~/tmp $ perl -le 'print int "0"' 0 fxn a yeager:~/tmp $ perl -le 'print int "21.34"' 21 int() serves a different purpose (the one explained in its docs). You need no int() call. Firts, the input file is assumed to be formed by numbers. And if you needed to check whether the numbers were well-formed you wouldn't use int(). Perl ony has scalar values, if you are thinking numbers vs strings you are doing it wrong. -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From eagud.q a tv3.cat Mon Mar 17 05:41:23 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 12:41:23 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <5326CAEF.9090204@gmail.com> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171049.34254.jluis@escomposlinux.org>, <5326CAEF.9090204@gmail.com> Message-ID: <833FB00B9189B840B8857DCDBAD128D32D829425@MAILBOX-3.ad-ccrtv.local> Gràcies Javier i Jluis, m'ha servit, però d'aquesta manera ja s'ha de tenir un nivell superior pq s'utilitzen expressions regulars, jo no hi hauria caigut mai! Gràcies perl -lpe'$_=$_<0?0:$_' data2.dat > data3.dat perl -pe'$_=0>$_?"0\n":$_' data.dat > data3.dat en bash algú sap com es faria, sense utilitzar perl? es només una pregunta, no voldria ferir els vostres sentiments cap al Perl! Moltes gràcies a tots Enric ________________________________________ De: Barcelona-pm [barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] en nom de Javier Arturo Rodriguez [codehead a gmail.com] Enviat el: dilluns, 17 / març / 2014 11:14 Per a: Barcelona Perl Mongers Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero GOLF! ;-) Ya sé que no debería hacer esto en un thread en el que escribe Xavi Noria, pero si utilizamos el switch -l (automatic line‐ending processing) podemos quitar las comillas y el newline, para una ganancia neta de 3 puntos: perl -lpe'$_=$_<0?0:$_' dades.txt Salut! -Javier Arturo Rodríguez On 2014-03-17 10:49 , Jose Luis Perez Diez wrote: > El Monday 17 March 2014 09:44:43 Agud Pique, Enric va escriure: >> Hola gent, >> >> una consulta. Tinc un fitxer que amb dades. Totes les dades estan en una sola columna. Vull convertir tots els números negatius en zero i guardar el resultat, tota la columna de nou. Estic fent servir el següent codi però no sé si vaig bé. Suposo que he de llegir linea a linea...fent un chomp($linea) i si detecta un numero inferior a zero que el canvii a zero, pero quan arribo en aquest apartat no sé si el codi detecta que el que li passo es un numero o no.... > Jo per aquest cas si fas servir un entorn unix (linux,bsd,..) ho faria amb un oneliner: > perl -pe'$_=0>$_?"0\n":$_' > que executa un programa semblant a aquest (mira perldoc perlrun per veure el codi real) > > while (my $col =<>) { > $col = "0\n" if 0 > $col; > print $col > } > > que et permet fer-ho servir com a filtre > > perl -pe'$_=0>$_?"0\n":$_' dades.txt | altres processos > > o per editar el fitxer > > perl -pie'$_=0>$_?"0\n":$_' dades.txt > > ... > > espero que et serveixi > > -- > jluis > _______________________________________________ > 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 From eagud.q a tv3.cat Mon Mar 17 05:47:16 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 12:47:16 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <833FB00B9189B840B8857DCDBAD128D32D829360@MAILBOX-3.ad-ccrtv.local> , Message-ID: <833FB00B9189B840B8857DCDBAD128D32D829465@MAILBOX-3.ad-ccrtv.local> Thank you again Best Enric ________________________________ De: Barcelona-pm [barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] en nom de Xavier Noria [fxn a hashref.com] Enviat el: dilluns, 17 / març / 2014 13:36 Per a: Barcelona Perl Mongers Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero On Mon, Mar 17, 2014 at 1:28 PM, Stanislav > wrote: Hello, Enric, In this code int() just checks each row of the input file for an integer value. It does not! fxn a yeager:~/tmp $ perl -le 'print int "0"' 0 fxn a yeager:~/tmp $ perl -le 'print int "21.34"' 21 int() serves a different purpose (the one explained in its docs). You need no int() call. Firts, the input file is assumed to be formed by numbers. And if you needed to check whether the numbers were well-formed you wouldn't use int(). Perl ony has scalar values, if you are thinking numbers vs strings you are doing it wrong. From web.perldev a gmail.com Mon Mar 17 05:53:49 2014 From: web.perldev a gmail.com (Stanislav) Date: Mon, 17 Mar 2014 16:53:49 +0400 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <833FB00B9189B840B8857DCDBAD128D32D829360@MAILBOX-3.ad-ccrtv.local> Message-ID: Hello, Xavier, Sure, your notes about int() are absolutely correct. Seems like I was not attentive enough and have not seen that the input file assumed to be well formed, therefore used this function only for checking rows for an integer values. Best regards, Stanislav 2014-03-17 16:36 GMT+04:00 Xavier Noria : > On Mon, Mar 17, 2014 at 1:28 PM, Stanislav wrote: > > Hello, Enric, >> >> In this code int() just checks each row of the input file for an integer >> value. >> > > It does not! > > fxn a yeager:~/tmp $ perl -le 'print int "0"' > 0 > > fxn a yeager:~/tmp $ perl -le 'print int "21.34"' > 21 > > int() serves a different purpose (the one explained in its docs). > > You need no int() call. Firts, the input file is assumed to be formed by > numbers. And if you needed to check whether the numbers were well-formed > you wouldn't use int(). > > Perl ony has scalar values, if you are thinking numbers vs strings you are > doing it wrong. > > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org > -------------- next part -------------- An HTML attachment was scrubbed... URL: From jluis a escomposlinux.org Mon Mar 17 06:15:44 2014 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Mon, 17 Mar 2014 14:15:44 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <5326CAEF.9090204@gmail.com> Message-ID: <201403171415.47592.jluis@escomposlinux.org> El Monday 17 March 2014 12:01:48 Xavier Noria va escriure: > 2014-03-17 11:14 GMT+01:00 Javier Arturo Rodriguez : > > GOLF! ;-) > > > > Ya sé que no debería hacer esto en un thread en el que escribe Xavi > > Noria, pero si utilizamos el switch -l (automatic line‐ending > > processing) podemos quitar las comillas y el newline, para una ganancia > > neta de 3 puntos: > > > > perl -lpe'$_=$_<0?0:$_' dades.txt > > > perl -ple 's/-.*/0/' foo.txt > > Recuerda que -p imprime lo que sea que tenga $_ despues del codigo, no hace > falta setearla a si misma :). No se si los switches a emplear forman parte del GOLF. Como '.' no hace match con \n en esta regegex, podemos ahorrar otro golpe: perl -pe 's/-.*/0/' foo.txt pero dado que el OP no especifica que pasa si la linea no contiene un numero, ni el formato de estos, lo mas corto y que menos altera la entrada que se me ocurre es: perl -lpe '$_=0if0>$_' foo.txt He estado tentado a contestar desde el mobil y todo. -- jluis From eagud.q a tv3.cat Mon Mar 17 06:23:36 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 13:23:36 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <201403171415.47592.jluis@escomposlinux.org> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <5326CAEF.9090204@gmail.com> , <201403171415.47592.jluis@escomposlinux.org> Message-ID: <26CE27C5-4465-4B16-AF4B-60F3E98F9DDC@tv3.cat> Este ultimo codigo me resulta mucho mas simple, gracias Enviat des del meu iPhone El 17/03/2014, a les 14:16, "Jose Luis Perez Diez" va escriure: > El Monday 17 March 2014 12:01:48 Xavier Noria va escriure: >> 2014-03-17 11:14 GMT+01:00 Javier Arturo Rodriguez : >> >> GOLF! ;-) >>> >>> Ya s�� que no deber��a hacer esto en un thread en el que escribe Xavi >>> Noria, pero si utilizamos el switch -l (automatic line�\ending >>> processing) podemos quitar las comillas y el newline, para una ganancia >>> neta de 3 puntos: >>> >>> perl -lpe'$_=$_<0?0:$_' dades.txt >> >> >> perl -ple 's/-.*/0/' foo.txt >> >> Recuerda que -p imprime lo que sea que tenga $_ despues del codigo, no hace >> falta setearla a si misma :). > > No se si los switches a emplear forman parte del GOLF. Como '.' no hace match con \n en esta regegex, podemos ahorrar otro golpe: > > perl -pe 's/-.*/0/' foo.txt > > pero dado que el OP no especifica que pasa si la linea no contiene un numero, ni el formato de estos, lo mas corto y que menos altera la entrada que se me ocurre es: > > perl -lpe '$_=0if0>$_' foo.txt > > > He estado tentado a contestar desde el mobil y todo. > > -- > jluis > > > > > _______________________________________________ > 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 fxn a hashref.com Mon Mar 17 06:24:04 2014 From: fxn a hashref.com (Xavier Noria) Date: Mon, 17 Mar 2014 14:24:04 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <201403171415.47592.jluis@escomposlinux.org> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <5326CAEF.9090204@gmail.com> <201403171415.47592.jluis@escomposlinux.org> Message-ID: Ahi, ahi :). Si, los switches cuentan, mira por ejemplo las reglas de este torneo http://perlgolf.sourceforge.net/TPR/0/4c/#General_rules donde dice "If you use options on the #! line, the options themselves are counted, including the leading space and -." En ese torneo fui referee, que recuerdos!!! http://advogato.org/person/fxn/diary/116.html -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From fxn a hashref.com Mon Mar 17 06:47:27 2014 From: fxn a hashref.com (Xavier Noria) Date: Mon, 17 Mar 2014 14:47:27 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <201403171415.47592.jluis@escomposlinux.org> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <5326CAEF.9090204@gmail.com> <201403171415.47592.jluis@escomposlinux.org> Message-ID: 2014-03-17 14:15 GMT+01:00 Jose Luis Perez Diez : perl -lpe '$_=0if0>$_' foo.txt > Este no compila porque el parser pilla "0if0", pero se le puede dar la vuelta con la misma puntuacion: perl -ple '$_=0if$_<0' foo.txt Y aqui va otro con un caracter menos: perl -ple '$_=0if/-/' foo.txt aunque perl -pe 's/-.*/0/' foo.txt de momento es el mas corto. -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From diego a kuperman.com.ar Mon Mar 17 06:53:39 2014 From: diego a kuperman.com.ar (Diego Kuperman) Date: Mon, 17 Mar 2014 10:53:39 -0300 Subject: [bcn-pm] [pm_groups] Call for Venue for YAPC::Europe::2015 In-Reply-To: References: <20140311105539.GW74776@heechee.tobez.org> Message-ID: hola!, On Mar 11, 2014, at 1:15 PM, JJ Merelo wrote: > The heat is on. Por lo que he hablado con vosotros en FOSDEM, supongo que seguimos en la brecha. Necesito al menos una segunda persona que quiera figurar como persona de contacto de la organización; si hay una tercera, una de Madrid PM y otra de Barcelona PM, genial. > disculpa la demora, ando hasta fin de mes en buenos aires… cuenta conmigo para lo que necesites! :-) -dk > Saludos > > ---------- Forwarded message ---------- > From: Anton Berezin > Date: 2014-03-11 11:55 GMT+01:00 > Subject: [pm_groups] Call for Venue for YAPC::Europe::2015 > To: pm_groups a pm.org > > > Although YAPC::Europe::2014 preparations are well underway in Sofia, > it is time for the venue committee of the YAPC::Europe Foundation (YEF) > to think about the location of the 2015 conference. YAPC::Europe wouldn't > exist without dedicated teams of volunteers, and we are always excited > to see the enthusiasm and learn about the new ideas the community has to > offer. > > Further information about preparing a complete application can be found > on http://www.yapceurope.org/organizers/index.html . Proposals > submitted to the venue committee will be added to this public repository > (you may provide private information separately) to benefit future > organizers. > > The deadlines which apply to this portion of the procedure are: > > * Friday, 25 April: Deadline for sending a letter of intent. > This letter simply expresses interest in hosting the conference and > provides contact information (both email and telephone) for at least two > organizers. This is an optional step but it can be to your advantage to > alert the venue committee of your proposal. > > * Monday, 7 July: Deadline for sending proposals to host YAPC::Europe 2015. > > If you do not receive a confirmation for your letter of intent or > proposal within a couple of days, please personally contact a member of > the venue committee. > > Please send your questions, letters of intent, and proposals to > venue a yapceurope.org. > -- > Request pm.org Technical Support via support a pm.org > > pm_groups mailing list > pm_groups a pm.org > http://mail.pm.org/mailman/listinfo/pm_groups > > > > -- > 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 From jjmerelo a gmail.com Mon Mar 17 06:54:07 2014 From: jjmerelo a gmail.com (JJ Merelo) Date: Mon, 17 Mar 2014 14:54:07 +0100 Subject: [bcn-pm] [pm_groups] Call for Venue for YAPC::Europe::2015 In-Reply-To: References: <20140311105539.GW74776@heechee.tobez.org> Message-ID: OK, ¡gracias! 2014-03-17 14:53 GMT+01:00 Diego Kuperman : > hola!, > > On Mar 11, 2014, at 1:15 PM, JJ Merelo wrote: > > > The heat is on. Por lo que he hablado con vosotros en FOSDEM, supongo > que seguimos en la brecha. Necesito al menos una segunda persona que quiera > figurar como persona de contacto de la organización; si hay una tercera, > una de Madrid PM y otra de Barcelona PM, genial. > > > disculpa la demora, ando hasta fin de mes en buenos aires... cuenta conmigo > para lo que necesites! :-) > > -dk > > > Saludos > > > > ---------- Forwarded message ---------- > > From: Anton Berezin > > Date: 2014-03-11 11:55 GMT+01:00 > > Subject: [pm_groups] Call for Venue for YAPC::Europe::2015 > > To: pm_groups a pm.org > > > > > > Although YAPC::Europe::2014 preparations are well underway in Sofia, > > it is time for the venue committee of the YAPC::Europe Foundation (YEF) > > to think about the location of the 2015 conference. YAPC::Europe > wouldn't > > exist without dedicated teams of volunteers, and we are always excited > > to see the enthusiasm and learn about the new ideas the community has to > > offer. > > > > Further information about preparing a complete application can be found > > on http://www.yapceurope.org/organizers/index.html . Proposals > > submitted to the venue committee will be added to this public repository > > (you may provide private information separately) to benefit future > > organizers. > > > > The deadlines which apply to this portion of the procedure are: > > > > * Friday, 25 April: Deadline for sending a letter of intent. > > This letter simply expresses interest in hosting the conference and > > provides contact information (both email and telephone) for at least two > > organizers. This is an optional step but it can be to your advantage to > > alert the venue committee of your proposal. > > > > * Monday, 7 July: Deadline for sending proposals to host YAPC::Europe > 2015. > > > > If you do not receive a confirmation for your letter of intent or > > proposal within a couple of days, please personally contact a member of > > the venue committee. > > > > Please send your questions, letters of intent, and proposals to > > venue a yapceurope.org. > > -- > > Request pm.org Technical Support via support a pm.org > > > > pm_groups mailing list > > pm_groups a pm.org > > http://mail.pm.org/mailman/listinfo/pm_groups > > > > > > > > -- > > 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 > -- JJ ------------ pr?a parte ------------ Se ha borrado un adjunto en formato HTML... URL: From alexm a caliu.cat Mon Mar 17 06:59:38 2014 From: alexm a caliu.cat (Alex Muntada) Date: Mon, 17 Mar 2014 14:59:38 +0100 Subject: [bcn-pm] [Madrid-pm] [pm_groups] Call for Venue for YAPC::Europe::2015 In-Reply-To: References: <20140311105539.GW74776@heechee.tobez.org> Message-ID: Yo tambien me sumo. Despues del éxito de la conferencia de Debian Women este fin de semana, me veo con más ganas ;-) Un saludo, Alex -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From gpoc a iies.es Mon Mar 17 07:21:21 2014 From: gpoc a iies.es (Gonzalo =?UTF-8?B?UMOpcmV6?= de Olaguer =?UTF-8?B?Q8OzcmRvYmE=?=) Date: Mon, 17 Mar 2014 15:21:21 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <833FB00B9189B840B8857DCDBAD128D32D829425@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171049.34254.jluis@escomposlinux.org> <5326CAEF.9090204@gmail.com> <833FB00B9189B840B8857DCDBAD128D32D829425@MAILBOX-3.ad-ccrtv.local> Message-ID: <20140317152121.2bc9444f@petres.salonet.snet> -----En respuesta a----- Fecha: Mon, 17 Mar 2014 12:41:23 +0000 Desde: "Agud Pique, Enric" Para: Barcelona Perl Mongers Asunto: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero Hola Enric, > en bash algú sap com es faria, sense utilitzar perl? sed 's/-.*/0/' < data.dat > data2.dat -- Gonzalo Pérez de Olaguer Córdoba --- www.gpoc.es PGP key 2861C704 --- F206 5671 6789 425D 111C 1302 214F 1934 2861 C704 -------------- part següent -------------- A non-text attachment was scrubbed... Name: signature.asc Type: application/pgp-signature Size: 190 bytes Desc: no disponible URL: From gpoc a iies.es Mon Mar 17 07:27:34 2014 From: gpoc a iies.es (Gonzalo =?UTF-8?B?UMOpcmV6?= de Olaguer =?UTF-8?B?Q8OzcmRvYmE=?=) Date: Mon, 17 Mar 2014 15:27:34 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <833FB00B9189B840B8857DCDBAD128D32D829425@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171049.34254.jluis@escomposlinux.org> <5326CAEF.9090204@gmail.com> <833FB00B9189B840B8857DCDBAD128D32D829425@MAILBOX-3.ad-ccrtv.local> Message-ID: <20140317152734.498dac3e@petres.salonet.snet> -----En respuesta a----- Fecha: Mon, 17 Mar 2014 12:41:23 +0000 Desde: "Agud Pique, Enric" Para: Barcelona Perl Mongers Asunto: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero Hola un altre cop, > en bash algú sap com es faria, sense utilitzar perl? estrictament bash (POSIX shell): while read N ; do [ "$N" -lt 0 ] && N=0 ; echo $N ; done < data.dat > data2.dat -- Gonzalo Pérez de Olaguer Córdoba --- www.gpoc.es PGP key 2861C704 --- F206 5671 6789 425D 111C 1302 214F 1934 2861 C704 -------------- part següent -------------- A non-text attachment was scrubbed... Name: signature.asc Type: application/pgp-signature Size: 190 bytes Desc: no disponible URL: From jluis a escomposlinux.org Mon Mar 17 08:46:32 2014 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Mon, 17 Mar 2014 16:46:32 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171415.47592.jluis@escomposlinux.org> Message-ID: <201403171646.34653.jluis@escomposlinux.org> El Monday 17 March 2014 14:47:27 Xavier Noria va escriure: > Este no compila porque el parser pilla "0if0", pero se le puede dar la > vuelta con la misma puntuacion: > > perl -ple '$_=0if$_<0' foo.txt > Si es la que usado pero despues en lugar de hacer copy paste he dejado que la dixlexia tomase el control. A mi no megusta la solucion de la expresion regular porque actua sobre cosas que no son numeros $ perl -e'print "12C\n-na-\n-12\n-12test\n -12\nfin\n"' |perl -pe 's/-.*/0/' 12C 0 0 0 0 fin $ perl -e'print "12C\n-na-\n-12\n-12test\n -12\nfin\n"' |perl -ple '$_=0if$_<0' 12C -na- 0 0 0 fin $ From fxn a hashref.com Mon Mar 17 08:50:59 2014 From: fxn a hashref.com (Xavier Noria) Date: Mon, 17 Mar 2014 16:50:59 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <201403171646.34653.jluis@escomposlinux.org> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171415.47592.jluis@escomposlinux.org> <201403171646.34653.jluis@escomposlinux.org> Message-ID: 2014-03-17 16:46 GMT+01:00 Jose Luis Perez Diez : El Monday 17 March 2014 14:47:27 Xavier Noria va escriure: > > Este no compila porque el parser pilla "0if0", pero se le puede dar la > > vuelta con la misma puntuacion: > > > > perl -ple '$_=0if$_<0' foo.txt > > > > Si es la que usado pero despues en lugar de hacer copy paste he dejado que > la dixlexia tomase el control. > > A mi no megusta la solucion de la expresion regular porque actua sobre > cosas que no son numeros Todas las soluciones actuan sobre cosas que no son numeros. En Perl solo hay escalares!!! Por ejemplo, las de arriba hace cosas con la linea "-1abc" que no tiene un numero. Y decide que la linea "abc" ha de ser imprimida igualmente. Todas hacen algo. En un problema de golf la clave esta en el enunciado, si te dice que el input son numeros, es que puedes asumir que son numeros. -------------- part següent -------------- Un document HTML ha estat eliminat... URL: From eagud.q a tv3.cat Mon Mar 17 10:23:43 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 17:23:43 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <20140317152734.498dac3e@petres.salonet.snet> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171049.34254.jluis@escomposlinux.org> <5326CAEF.9090204@gmail.com> <833FB00B9189B840B8857DCDBAD128D32D829425@MAILBOX-3.ad-ccrtv.local>, <20140317152734.498dac3e@petres.salonet.snet> Message-ID: <833FB00B9189B840B8857DCDBAD128D32D8297E8@MAILBOX-3.ad-ccrtv.local> Hola Gonzalo, muchas gracias por el codigo en bash, entonces si el numero N es menor de zero y el numero N es zero, N toma el ultimo valor asignado que será zero y lo muestra y queda grabado, es de esta manera como lo entiendo, es correcto? saludos ________________________________________ De: Barcelona-pm [barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] en nom de Gonzalo Pérez de Olaguer Córdoba [gpoc a iies.es] Enviat el: dilluns, 17 / març / 2014 15:27 Per a: barcelona-pm a pm.org Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero -----En respuesta a----- Fecha: Mon, 17 Mar 2014 12:41:23 +0000 Desde: "Agud Pique, Enric" Para: Barcelona Perl Mongers Asunto: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero Hola un altre cop, > en bash algú sap com es faria, sense utilitzar perl? estrictament bash (POSIX shell): while read N ; do [ "$N" -lt 0 ] && N=0 ; echo $N ; done < data.dat > data2.dat -- Gonzalo Pérez de Olaguer Córdoba --- www.gpoc.es PGP key 2861C704 --- F206 5671 6789 425D 111C 1302 214F 1934 2861 C704 From gpoc a iies.es Mon Mar 17 12:42:39 2014 From: gpoc a iies.es (Gonzalo =?UTF-8?B?UMOpcmV6?= de Olaguer =?UTF-8?B?Q8OzcmRvYmE=?=) Date: Mon, 17 Mar 2014 20:42:39 +0100 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <833FB00B9189B840B8857DCDBAD128D32D8297E8@MAILBOX-3.ad-ccrtv.local> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171049.34254.jluis@escomposlinux.org> <5326CAEF.9090204@gmail.com> <833FB00B9189B840B8857DCDBAD128D32D829425@MAILBOX-3.ad-ccrtv.local> <20140317152734.498dac3e@petres.salonet.snet> <833FB00B9189B840B8857DCDBAD128D32D8297E8@MAILBOX-3.ad-ccrtv.local> Message-ID: <20140317204239.66cc35b9@petres.salonet.snet> -----En respuesta a----- Fecha: Mon, 17 Mar 2014 17:23:43 +0000 Desde: "Agud Pique, Enric" Para: Barcelona Perl Mongers Asunto: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero > entonces si el numero N es menor de zero y el numero N es zero, N toma el ultimo valor asignado que será zero y lo muestra y queda grabado, es de esta manera como lo entiendo, es correcto? # lee una línea de entrada y la asigna a la variable N # esto se repetirá hasta que ya no haya más líneas que leer while read N ; do # verifica si N es menor que cero, y si es cierto asigna 0 a N [ "$N" -lt 0 ] && N=0 # escribe N en la salida echo $N # fin del bucle while done # lee data.dat y escribe en data2.dat < data.dat > data2.dat -- Gonzalo Pérez de Olaguer Córdoba --- www.gpoc.es PGP key 2861C704 --- F206 5671 6789 425D 111C 1302 214F 1934 2861 C704 -------------- part següent -------------- A non-text attachment was scrubbed... Name: signature.asc Type: application/pgp-signature Size: 190 bytes Desc: no disponible URL: From eagud.q a tv3.cat Mon Mar 17 12:55:51 2014 From: eagud.q a tv3.cat (Agud Pique, Enric) Date: Mon, 17 Mar 2014 19:55:51 +0000 Subject: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero In-Reply-To: <20140317204239.66cc35b9@petres.salonet.snet> References: <833FB00B9189B840B8857DCDBAD128D32D82922F@MAILBOX-3.ad-ccrtv.local> <201403171049.34254.jluis@escomposlinux.org> <5326CAEF.9090204@gmail.com> <833FB00B9189B840B8857DCDBAD128D32D829425@MAILBOX-3.ad-ccrtv.local> <20140317152734.498dac3e@petres.salonet.snet> <833FB00B9189B840B8857DCDBAD128D32D8297E8@MAILBOX-3.ad-ccrtv.local> <20140317204239.66cc35b9@petres.salonet.snet> Message-ID: <833FB00B9189B840B8857DCDBAD128D32D8298B6@MAILBOX-3.ad-ccrtv.local> Gracias! Enric -----Missatge original----- De: Barcelona-pm [mailto:barcelona-pm-bounces+eagud.q=tv3.cat a pm.org] En nom de Gonzalo Pérez de Olaguer Córdoba Enviat: dilluns, 17 de març de 2014 20:43 Per a: barcelona-pm a pm.org Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero -----En respuesta a----- Fecha: Mon, 17 Mar 2014 17:23:43 +0000 Desde: "Agud Pique, Enric" Para: Barcelona Perl Mongers Asunto: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero > entonces si el numero N es menor de zero y el numero N es zero, N toma el ultimo valor asignado que será zero y lo muestra y queda grabado, es de esta manera como lo entiendo, es correcto? # lee una línea de entrada y la asigna a la variable N # esto se repetirá hasta que ya no haya más líneas que leer while read N ; do # verifica si N es menor que cero, y si es cierto asigna 0 a N [ "$N" -lt 0 ] && N=0 # escribe N en la salida echo $N # fin del bucle while done # lee data.dat y escribe en data2.dat < data.dat > data2.dat -- Gonzalo Pérez de Olaguer Córdoba --- www.gpoc.es PGP key 2861C704 --- F206 5671 6789 425D 111C 1302 214F 1934 2861 C704 From jluis a escomposlinux.org Thu Mar 20 02:19:20 2014 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Thu, 20 Mar 2014 10:19:20 +0100 Subject: [bcn-pm] =?utf-8?q?Reuni=C3=B3_de_Mar=C3=A7?= Message-ID: <201403201019.22675.jluis@escomposlinux.org> Bon dia, Si no recordo malament l'Alex tenia una xarrada preparada de refactoring. Com ho tenim per fer la reunió a Capside? Mes que res per donar l'alta amb el lloc al landyard i començar la difusió Salut jluis -- perldoc -f no From alexm a caliu.cat Thu Mar 20 03:15:16 2014 From: alexm a caliu.cat (Alex Muntada) Date: Thu, 20 Mar 2014 11:15:16 +0100 Subject: [bcn-pm] =?iso-8859-1?q?Reuni=F3_de_Mar=E7?= In-Reply-To: <201403201019.22675.jluis@escomposlinux.org> References: <201403201019.22675.jluis@escomposlinux.org> Message-ID: <20140320101516.GE18079@pcraspall-i-torres.ac.upc.edu> Jose Luis Perez Diez: > Si no recordo malament l'Alex tenia una xarrada preparada > de refactoring. Bé, la part del codi ja la tinc llesta fa dies, però encara he de preparar la presentació. Tret que algú tingui alguna idea millor per dijous vinent, m'hi poso. Salut i gràcies! Alex From alba a caliu.cat Thu Mar 20 07:44:06 2014 From: alba a caliu.cat (Alba Ferrer) Date: Thu, 20 Mar 2014 15:44:06 +0100 Subject: [bcn-pm] =?iso-8859-1?q?Reuni=F3_de_Mar=E7?= In-Reply-To: <201403201019.22675.jluis@escomposlinux.org> References: <201403201019.22675.jluis@escomposlinux.org> Message-ID: > Com ho tenim per fer la reunió a Capside? cap problema, la podem fer a CAPSiDE. From jluis a escomposlinux.org Fri Mar 21 00:31:21 2014 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Fri, 21 Mar 2014 08:31:21 +0100 Subject: [bcn-pm] =?utf-8?q?Reunio_de_mar=C3=A7?= Message-ID: <201403210831.23941.jluis@escomposlinux.org> Ja tenim el landrd per la xarrada http://lanyrd.com/2014/barcelona-perl-mongers-talk-on-refactoring-code/ Recordeu comfirmar la presencia ja que el fem a CAPSiDE Salut i Perl Jluis From marc.egea.sala a gmail.com Fri Mar 21 01:13:19 2014 From: marc.egea.sala a gmail.com (Marc Egea i Sala) Date: Fri, 21 Mar 2014 09:13:19 +0100 Subject: [bcn-pm] =?utf-8?q?Reunio_de_mar=C3=A7?= In-Reply-To: <201403210831.23941.jluis@escomposlinux.org> References: <201403210831.23941.jluis@escomposlinux.org> Message-ID: <532BF49F.9030505@gmail.com> On 03/21/14 08:31, Jose Luis Perez Diez wrote: > Ja tenim el landrd per la xarrada > > http://lanyrd.com/2014/barcelona-perl-mongers-talk-on-refactoring-code/ > > Recordeu comfirmar la presencia ja que el fem a CAPSiDE > > Salut i Perl > > > Jluis > > _______________________________________________ > llista dels Barcelona-pm > Barcelona-pm a pm.org > http://mail.pm.org/mailman/listinfo/barcelona-pm > BCN Perl Mongers: http://barcelona.pm.org Just el dijous hi ha tinc un company fent una xerrada al grup de Java. Ell comença a les 7, o sigui que miraré de fer el doblet :) Si no arribés per la xerrada com és la meva intenció m'enganxo directament amb el sopar. Salut, Marc. From frankie a telecos.upc.edu Fri Mar 21 02:23:17 2014 From: frankie a telecos.upc.edu (Francesc Guasch) Date: Fri, 21 Mar 2014 10:23:17 +0100 Subject: [bcn-pm] =?iso-8859-1?q?Reunio_de_mar=E7?= In-Reply-To: <532BF49F.9030505@gmail.com> References: <201403210831.23941.jluis@escomposlinux.org> <532BF49F.9030505@gmail.com> Message-ID: <20140321092315.GA31975@telecos.upc.edu> Ey, jo no puc venir aquest cop. Que vagi bé. From jluis a escomposlinux.org Tue Mar 25 06:12:32 2014 From: jluis a escomposlinux.org (Jose Luis Perez Diez) Date: Tue, 25 Mar 2014 14:12:32 +0100 Subject: [bcn-pm] =?utf-8?q?Reunio_de_mar=C3=A7?= In-Reply-To: <201403210831.23941.jluis@escomposlinux.org> References: <201403210831.23941.jluis@escomposlinux.org> Message-ID: <201403251412.37521.jluis@escomposlinux.org> El Friday 21 March 2014 08:31:21 Jose Luis Perez Diez va escriure: > Ja tenim el landrd per la xarrada > > http://lanyrd.com/2014/barcelona-perl-mongers-talk-on-refactoring-code/ > > Recordeu comfirmar la presencia ja que el fem a CAPSiDE Avui he recordat que no havia modificat el link a Barcelona.pm