Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
use Data::Dumper;
print Dumper($data);
print $template;
  2. or download this
    $VAR1 = {
          'records' => [
...
[% ... %]
 OAMPG: [% oampg %]   Extent ID [% extent_id %] on allocation page [% 
+alloc_pg %]
[% END %]
  3. or download this
    $template = <<EOD;
[% FOR records %]
...
EOD

$doc =~ s/\n/;\n/mg;