| Subject: | Thousands separated numeric fields |
| Date: | Mon, 28 Apr 2014 13:01:13 -0700 |
| To: | bug-Perl6-Form [...] rt.cpan.org |
| From: | Holden Ridge <penguinsgomoo [...] gmail.com> |
using Perl6::Form version 0.04
Show quoted text
> perl -v
This is perl, v5.10.0 built for x86_64-linux-thread-multi
Show quoted text> uname -a
Linux box 3.0.80-0.7-default #1 SMP Tue Jun 25 18:32:49 UTC 2013 (25740f8)
x86_64 x86_64 x86_64 GNU/Linux
1. Thousands separated numbers without imperative widths, and no
digits right of the decimal point do not seem to work.
2. Thousands separated numbers with imperative widths, parentheses
for negatives, and digits right of the decimal point do not seem to work.
3. Thousands separated numbers with imperative widths, without
parentheses for negatives, and no digits right of the decimal point do not
seem to work
Here is a short sample program where thousands separated fields seem to
work inconsistently:
#!/pathtoperl/perl
use strict;
use warnings;
use Perl6::Form;
my $num = -13141.143131;
print form "{->,>>>,>>>.<<}", $num; # -13,141.143
print form "{(>,>>>,>>>.<)}", $num; # (13,141.14)
print form "{>>,>>>,>>>.<<}", $num; # 13,141.143
print form "{->,>>>,>>>}", $num; # -,
print form "{(>,>>>,>>>}", $num; # (,
print form "{>>,>>>,>>>}", $num; # ,
print form "{(>,{12.1},>>>.<<<<)}", $num; # (.)
print form "{->,{12.1},>>>.<<<<}", $num; # -13,141.1
print form "{>>,{12.1},>>>.<<<<}", $num; # 13,141.1
print form "{(>,{12.0},>>>.<<<<)}", $num; # (13,141)
print form "{->,{12.0},>>>.<<<<}", $num; # .
print form "{>>,{12.0},>>>.<<<<}", $num; # -.
Thank You,
Holden