<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">2014-03-17 14:15 GMT+01:00 Jose Luis Perez Diez <span dir="ltr"><<a href="mailto:jluis@escomposlinux.org" target="_blank">jluis@escomposlinux.org</a>></span>:</div>

<div class="gmail_quote"><br></div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">


perl -lpe '$_=0if0>$_' foo.txt<br></blockquote><div><br></div><div>Este no compila porque el parser pilla "0if0", pero se le puede dar la vuelta con la misma puntuacion:</div><div><br></div><div>    perl -ple '$_=0if$_<0' foo.txt</div>

<div><br></div><div>Y aqui va otro con un caracter menos:</div><div><br></div><div>    perl -ple '$_=0if/-/' foo.txt</div><div><br></div><div>aunque</div><div><br></div><div>    perl -pe 's/-.*/0/' foo.txt</div>

<div><br></div><div>de momento es el mas corto.</div><div><br></div>























</div></div></div>