[bcn-pm] manipular un fitxer canviant xifres negatives per un zero
Agud Pique, Enric
eagud.q a tv3.cat
dll mar 17 06:23:36 PDT 2014
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" <jluis a escomposlinux.org> 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 <codehead a 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
>>
>>
>> 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
Més informació sobre la llista de correu Barcelona-pm