Public ScratchpadDownload, Select Code To D/L

Help for this page

Select Code to Download


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

...
  2. or download this
  3. or download this
    #!/usr/bin/env perl

...
};

app->start;
  4. or download this
     <html>
  <head><title>Test Template</title>
...
     <p>Value TWO =  <TMPL_VAR NAME="two"> </p>
   </body>
 </html>
  5. or download this
    #!/usr/bin/perl

...

}
  6. or download this
    SV = PV(0x2af86f0) at 0x3474b90
  REFCNT = 1
...
  PV = 0x3f62a20 "testb.pdf"\0
  CUR = 34
  LEN = 40
  7. or download this
    {
  "abc.pdf" => "no match",
...
  "testb.pdf" => 0,
  "conts.pdf" => "no match",
}
  8. or download this
    #!/usr/bin/perl

...
  return \%pdfs;
}
  9. or download this
    my $pdfs = get_pdfs();
pp $pdfs;
...
  
};
..
  10. or download this
    #!/usr/bin/perl

...
}
  11. or download this
    #!/usr/bin/perl

...
}
  12. or download this
    #!/usr/bin/perl
use strict;
...
}
  13. or download this
    #!/usr/bin/perl
use strict;
...
}
  14. or download this
    #!/usr/bin/perl
use strict;
...
  print "\n $filename = $recs\n";
}
  15. or download this
    #!/usr/bin/perl
use strict;
...
}
  16. or download this
    ...
my $data_href = {
...
sub test_nam { return 1;}

...
  17. or download this
    #!/usr/bin/perl
use strict;
...
  print "\n $filename = $recs\n";
}
  18. or download this
    #!/usr/bin/perl
use strict;
...
  my ($filename, $recs ) = @_;
  print "\n $filename = $recs\n";
}
  19. or download this
    #!/usr/bin/perl

...
}
  20. or download this
    #!/usr/bin/perl
use strict;
...
$pdf->save;
$pdf->end( );
  21. or download this
    #!/usr/bin/perl

...
 $pdf->end( );
  22. or download this
    my @lines = "Aliquam vitae ipsum id felis finibus congue. Ut molestie 
+scelerisque purus,
 sit amet rhoncus leo aliquet ac. In eu lobortis quam. Maecenas auctor
+ semper enim,
...

          $y-=17;
 }
  23. or download this
    Date::Calc::PP::Monday_of_Week(): Date::Calc::Monday_of_Week(): week o
+ut of range at splice_pie_3a.pl line 73
  24. or download this
    #!/usr/bin/perl
use strict;
...
20180101_car.txt
20180101_bike.txt
  25. or download this
    #!/usr/bin/perl
use strict;
...
....

}
  26. or download this
    /data/
20160102_car.txt
...
20160316_bike.txt
20160317_car.txt
20160317_bike.txt
  27. or download this
    Week 2016- 1
------------
...
    Date      Day       car       bike      Total 
20160102      Sat         27         23         50 
   total                  27         23         50
  28. or download this
    #!/usr/bin/perl

...
QWWWWERF

=cut
  29. or download this
    for my $id (keys %$final_data){
    my $ar = $final_data->{$id}[0];
...
      LINE => \@lines
    };
  }
  30. or download this
     for my $id (keys %$final_data){
    my $ar = $final_data->{$id}[0];
...
      LINE => \@lines
    };
  }
  31. or download this
    ####### .pl file

...
  32. or download this
    my $final_data;
 for my $id ( keys %{$data} ) {
...
   push @{$final_data->{$id}}, $data  if $data;

 }
  33. or download this
    #!/usr/bin/perl

...
    };
  }
print Dumper \@data;
  34. or download this
    my $data = {

...
        },

};
  35. or download this
    #!/usr/bin/perl

...
 </tr>
 </TMPL_LOOP>
</table>
  36. or download this
    
use strict;
...
  Last: <TMPL_VAR NAME=L_NAME> <br>
 
</TMPL_LOOP>
  37. or download this
    # New template object
my $template = HTML::Template->new(filename => 'main.tmpl',
...
                    filename => 'city.tmpl',
                    filename => 'location.tmpl',
                     );
  38. or download this
    #!/usr/bin/perl

...
 return $table_load;
 
}
  39. or download this
    #!/usr/bin/perl

...
 return $table_load;
 
}