• [^] # Re: tes chaines et tes variables

    Posté par . En réponse au message Concatenation. Évalué à -5.

    Salut Framasky,
    je pense que j'avais oublie de mensionner que certaines value sont egal a 0
    j'ai retouche mon clean et il travaille bien a la seul difference que j'obtien a la fin de mon tableau un champ vide.

     for my $i(map {clean($_)} @$row) {
 #chomp $i; 
 my $d = "<tr><td>$i</td></tr>\n";
 print $per_line_fh $d if ($i); 
 }
 print $per_line_fh "</table>\n</body>\n</html>";
 close $per_line_fh;
}
sub clean { 
 my $string = shift;
 $string =~ /\s*,\s*/;
 $string =~ /\s*,\s*/;
 return $string;

    sortie tu remarque qu'il ya le dernier champ est vide a la fin en principe il ne devrait pas existe comment empeche mon code de me le renvoyer.

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