<div dir="ltr">Hello, Enric,<div><br></div><div><div>In this code int() just checks each row of the input file for an integer value.</div><div>Glad to help you!</div></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 16:11 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">Hello Stanislav,<br>
<br>
it runs properly! Thank you, what does it "int" in the code?<br>
<br>
Thank you<br>
<br>
Best<br>
<br>
Enric<br>
________________________________<br>
De: Barcelona-pm [barcelona-pm-bounces+eagud.q=<a href="mailto:tv3.cat@pm.org">tv3.cat@pm.org</a>] en nom de Stanislav [<a href="mailto:web.perldev@gmail.com">web.perldev@gmail.com</a>]<br>
Enviat el: dilluns, 17 / març / 2014 10:17<br>
Per a: Barcelona Perl Mongers<br>
Tema: Re: [bcn-pm] manipular un fitxer canviant xifres negatives per un zero<br>
<div class=""><br>
Hello!<br>
<br>
#!/usr/bin/perl<br>
use strict;<br>
use warnings;<br>
<br>
my ($file_in, $file_out) = ('in.txt', 'out.txt');<br>
<br>
open(my $in, '<', $file_in) or die "failed to open file $file_in: $!";<br>
open(my $out, '>', $file_out) or die "failed to open file $file_out: $!";<br>
<br>
while (<$in>) {<br>
    chomp;<br>
    $_ = 0 if int and $_ < 0;<br>
    print $out $_, "\n";<br>
}<br>
<br>
Does it help?<br>
<br>
Best regards, Stanislav<br>
<br>
<br>
<br>
</div>2014-03-17 12:44 GMT+04:00 Agud Pique, Enric <<a href="mailto:eagud.q@tv3.cat">eagud.q@tv3.cat</a><mailto:<a href="mailto:eagud.q@tv3.cat">eagud.q@tv3.cat</a>>>:<br>
<div class="">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>
</div><a href="mailto:Barcelona-pm@pm.org">Barcelona-pm@pm.org</a><mailto:<a href="mailto:Barcelona-pm@pm.org">Barcelona-pm@pm.org</a>><br>
<div class="HOEnZb"><div class="h5"><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><br>
<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></div></div></blockquote></div><br></div>