Re: tes chaines et tes variables

je pense avoir trouve je te presente la solution dans un instant

 for my $i (map {clean($_)} @$row) {
 my $a = '<tr><td>';
 my $c = '</td></tr>';
 my $d = "$a$i$c\n";
 print $per_line_fh $d;
 }

mais li me donne encore un resultat a travailler car a la fin il me produit encore des caracteres supplementaires si tu observes a la fin il ya des caracteres sans valuer. et c'est encore un probleme

<table>
<tr><td>10000
</td></tr>
<tr><td>10000
</td></tr>
<tr><td>0
</td></tr>
<tr><td>50
</td></tr>
<tr><td>1
</td></tr>
<tr><td>
</td></tr>
</table>