[bcn-pm] manipular un fitxer canviant xifres negatives per un zero

Jose Luis Perez Diez jluis a escomposlinux.org
dll mar 17 08:46:32 PDT 2014


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
$ 


Més informació sobre la llista de correu Barcelona-pm