Pour tes valeurs nulles, il ne faut pas faire de print si la valeur de $i est nulle.
Ça, ça devrait le faire :
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 if ($i);
}
Note le if ($i) sur la ligne de print.Tout simplement, ça ne fait fait le print que si $i n'est pas undef, 0 ou une chaîne vide.
Tu peux aussi rajouter un chomp $i juste après la ligne for car j'ai l'impression que ta fonction clean renvoie des valeurs avec un retour à la ligne à la fin.
Being a sysadmin is easy. As easy as riding a bicycle. Except the bicycle is on fire, you’re on fire and you’re in Hell.
[^] # Re: tes chaines et tes variables
Posté par Framasky (site web personnel) . En réponse au message Concatenation. Évalué à 2.
Pour tes valeurs nulles, il ne faut pas faire de print si la valeur de
$iest nulle.Ça, ça devrait le faire :
Note le
if ($i)sur la ligne de print.Tout simplement, ça ne fait fait le print que si $i n'est pasundef,0ou une chaîne vide.Tu peux aussi rajouter un
chomp $ijuste après la ligneforcar j'ai l'impression que ta fonctioncleanrenvoie des valeurs avec un retour à la ligne à la fin.Being a sysadmin is easy. As easy as riding a bicycle. Except the bicycle is on fire, you’re on fire and you’re in Hell.