| Subject: | French thousand marker (space) not supported on integer |
Using Perl6::Form 0.04, perl-5.8.7 (Mandriva 2006.0).
The following code ends with warnings (use of undef'ined values) at run-time:
----8<----
#!/usr/bin/perl -w
use strict;
# Cette table de correspondance est pratique, mais semble trop lourde
my %lookup;
for my $i (1..100000) {
$lookup{int(rand(65536))}++;
}
# Regardons donc comment de mémoire est utilisée...
use Devel::Size qw( size total_size );
use Perl6::Form;
my $memoire_hachage = size(\%lookup); # Supplément dû au stockage uniquement
my $memoire_totale = total_size(\%lookup); # Suppléments plus données
my $memoire_donnees = $memoire_totale - $memoire_hachage; # Données uniquement
print form(
'hachage uniquement : {>>> >>> >>>} octets', $memoire_hachage,
'données uniquement : {>>> >>> >>>} octets', $memoire_donnees,
'=========================================',
'total : {>>> >>> >>>} octets', $memoire_totale,
'hachage uniquement : {>>> >>> >>>,} octets', $memoire_hachage,
'données uniquement : {>>> >>> >>>,} octets', $memoire_donnees,
'=========================================',
'total : {>>> >>> >>>,} octets', $memoire_totale,
);
----8<----
Only the second print-out will succeed, although printing a superfluous ",0".
This exemple is taken from what should be the french translation of PBP.
Best regards,
J.