for (my $i = '0'; $i < $counter + 1;$i++) {
my $j;
#print "valeur de i $i
";
if ($i <= 9) {
$j = "0$i";
#Here the code give the following error : Excessively long <> operator at C:/xampp/perl/lib/Article.pm line 140.
}else {
$j = $i;
}
$string .= "<-$j-> ";
$min_index += 40;
}
if (($nb_page % 10) > 0) {
$string .= "
";
}