<div dir="ltr">Hello!<div><br></div><div><div>#!/usr/bin/perl</div><div>use strict;</div><div>use warnings;</div><div><br></div><div>my ($file_in, $file_out) = ('in.txt', 'out.txt');</div><div><br></div><div>
open(my $in, '<', $file_in) or die "failed to open file $file_in: $!";</div><div>open(my $out, '>', $file_out) or die "failed to open file $file_out: $!";</div><div><br></div><div>
while (<$in>) {</div><div>    chomp;</div><div>    $_ = 0 if int and $_ < 0;</div><div>    print $out $_, "\n";</div><div>}</div></div><div><br></div><div>Does it help?</div><div><br></div><div>Best regards, Stanislav</div>
<div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-03-17 12:44 GMT+04:00 Agud Pique, Enric <span dir="ltr"><<a href="mailto:eagud.q@tv3.cat" target="_blank">eagud.q@tv3.cat</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hola gent,<br>
<br>
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....<br>

<br>
#!/usr/local/bin/perl<br>
use autodie;<br>
<br>
my $nombre = 'data.dat';<br>
my $nombre2 = 'data2.dat';<br>
open my $INFILE, '<', $nombre;<br>
my $linea;<br>
while ( $linea = <INFILE>) {<br>
chomp($linea);<br>
if ($linea< 0) {<br>
$linea==0    //aqui he de posar codi per convertir negatius a zero//<br>
}<br>
}<br>
open my $OUTFILE, '>', $nombre2;<br>
print   $OUTFILE "$linea";<br>
close   $OUTFILE;<br>
<br>
Gràcies<br>
<br>
Enric<br>
_______________________________________________<br>
llista dels Barcelona-pm<br>
<a href="mailto:Barcelona-pm@pm.org">Barcelona-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/barcelona-pm" target="_blank">http://mail.pm.org/mailman/listinfo/barcelona-pm</a><br>
BCN Perl Mongers: <a href="http://barcelona.pm.org" target="_blank">http://barcelona.pm.org</a></blockquote></div><br></div>