[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