URL: https://linuxfr.org/forums/programmation-perl/posts/empecher-le-champ-vide-a-la-fin-du-tableau
Title: empêcher le champ vide à la fin du tableau
Authors: Henri
Date: 2015年08月22日T13:35:42+02:00
License: CC By-SA
Tags: 
Score: 0
j'ai une boucle for qui me produit un champ vide a la fin de mon tableau comment pourrai je empeche cela?
```ruby
 for my $i(map {clean($_)} @$row) {
 #chomp $i; 
 my $d = "<div class="naked_tr"> $i</div>\n";
 print $per_line_fh $d if ($i); 
 }
 print $per_line_fh "\n</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/empecher-le-champ-vide-a-la-fin-du-tableau.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/empecher-le-champ-vide-a-la-fin-du-tableau.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>		
</body>\n</html>";
 close $per_line_fh;
}
sub clean { 
 my $string = shift;
 $string =~ /\s*,\s*/;
 $string =~ /\s*,\s*/;
 return $string;
```
sortie on 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. merci bien de votre aide.
```ruby
 <div class="naked_tr"> 0</div>
 <div class="naked_tr"> 50</div>
 <div class="naked_tr"> 1</div>
 
 
 </body>
```