Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
}

print Data::Dumper->Dump([\%stats], [qw/*stats/]);
  2. or download this
    
C:\perlp>perl try.pl
...
         );

C:\perlp>C:\perlp>
  3. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
}

print Data::Dumper->Dump([\%stats], [qw/*stats/]);
  4. or download this
    C:\perlp>t1.pl
@data = (
...
         );

C:\perlp>
  5. or download this
    my $start = 'string-here string-here:';
my $level = '\((\w+)\)';
my $group = '([\w\s]+) completed,';
...

# if there are details, they're captured in the end parens
my $re = qr/^$start $level $group $total ?(.*)$/;