Skip Menu |
 

This queue is for tickets about the Perl6-Form CPAN distribution.

Report information
The Basics
Id: 16472
Status: new
Priority: 0/
Queue: Perl6-Form

People
Owner: Nobody in particular
Requestors: jfenal [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)



Subject: French thousand marker (space) not supported on integer
Download (untitled) / with headers
text/plain 1.3k
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.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.