Help for this page

Select Code to Download


  1. or download this
    cmd>statistics standard summary
     
result>ORIG  ATTMPT     ORIG   COMPL     TERM  ATTMPT     TERM   COMPL
+   
Summary    2555    2543    2543    2543
  2. or download this
    
#Inline Perl
...
#More Advanced Template
[% matches = result.match('Summary\s+(\d)\s+(\d)\s+(\d)\s+(\d)') %]
[% IF match.2/match.1 > 0.95 %]1[% ELSE %]0[% END %]
  3. or download this
    BEGIN { $ENV{PERL_JSON_BACKEND} = 2 } # with JSON::XS
use JSON qw( -support_by_pp -convert_blessed_universally );
my $json = new JSON;
$json->allow_nonref->allow_blessed->convert_blessed->loose;