Select Code to Download

Select or download this

# Test Perl6::Form -- submitting code for Perl Monks

...
    $fFlo, $tFlo;

Select or download this

Length = 5
Uncaught exception from user code:
...
    Perl6::Form::fatal("Inconsistent width for field 2.\x{a}", "Specif
+ied as '{>(5)>}' but actual width is 7") called at /usr/local/share/p
+erl/5.20.1/Perl6/Form.pm line 663
    Perl6::Form::segment("{<<{15}<<}|{>(5)>}|{><}|{<<{15}<<}|{>(5)>}%|
+\x{a}", ARRAY(0x1e676b8), HASH(0x1e5d400), 0, HASH(0x1e5d448)) called
+ at /usr/local/share/perl/5.20.1/Perl6/Form.pm line 1097
    Perl6::Form::form(undef, undef, "TEST", "003  ", " ", "Test", 100.
+0) called at test_perl6Form.pl line 33

Select or download this

    Use of uninitialized value $whole in pattern match (m//) at
    /usr/local/share/perl/5.20.1/Perl6/Form.pm line 340 (#1)
...
    /usr/local/share/perl/5.20.1/Perl6/Form.pm line 412 (#1)
Use of uninitialized value $whole in subtraction (-) at
    /usr/local/share/perl/5.20.1/Perl6/Form.pm line 413 (#1)

Select or download this

Int for Zero Pad
Float for Zero Pad       .