Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

PodMaster's scratchpad

by PodMaster (Abbot)
on Jun 01, 2004 at 18:22 UTC ( #358353=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    =head1 Storable 2.15 has a memory leak
    
    ...
    system qw[ perl -S cpanp l CGI];
    print time-$now,$/,$/;
    
  2. or download this
    use Benchmark 'cmpthese';
    
    ...
    while 2453/s    --  -30%
    for   3527/s   44%    --
    
  3. or download this
    #!perl
    #!/usr/bin/perl
    ...
    
    __END__
    
  4. or download this
    use Data::Dumper;
    use LWP::Simple;
    ...
    $VAR3 = 'name';
    $VAR4 = 'keywords';
    
  5. or download this
    use Benchmark 'cmpthese';
    
    ...
    subst 1132/s    --  -28%  -29%
    split 1564/s   38%    --   -1%
    match 1587/s   40%    1%    --
    
  6. or download this
    # JavaScript-SpiderMonkey-0.08/Makefile.PL
    
    ...
        nmake test
        nmake install
    
  7. or download this
    use strict;
    use warnings;
    ...
        nowrap onmouseover="this.className='buttonon'" onmousedown="this.c
    +lassName='buttondown'"
    
        onmouseout="this.className='buttonoff'" onclick="window.location='
    +default.html'"><font face="arial, geneva, helvetica" size="-1">
    
  8. or download this
    #!/usr/bin/perl -wl
    
    ...
    )                        end of grouping
    ----------------------------------------------------------------------
    
  9. or download this
    use Benchmark qw( cmpthese );
    
    ...
    splice    67361/s      262%        --       -1%       -1%
    del       67711/s      264%        1%        --       -0%
    shiftNpop 68042/s      266%        1%        0%        --
    
  10. or download this
    # this makes a little sense
    
    ...
              PUTTY->$plugin,"\n",
              $other->$plugin,"\n\n";
    }
    
  11. or download this
    foreach (@body) {                                                     
        chomp $_;
    ...
        }
    }
    
  12. or download this
    #!/usr/bin/perl
    use strict;
    ...
    readgrep 1024/s     158%     154%      21%       --
    
    
  13. or download this
    sub isleap {    my ($year) = @_;
        return 1 if (( $year % 400 ) == 0 ); # 400's are leap
    ...
    E:\new\Date-Leapyear-1.71>
    
    
  14. or download this
    use strict;
    use Data::Dumper;
    ...
    Wassup????
    
    =cut
    
  15. or download this
    use strict;
    use Data::Dumper;
    $Data::Dumper::Indent=1;
    ...
            ### HTML::Template Debug ### In _parse:
    HTML::Template->new() : No NAME given to a TMPL_VAR tag at /*IN_MEMORY
    +*/ : line 1. at E:/dev/HTML-Template/HTML-Template
    -2.5/blib/lib/HTML/Template.pm line 1862.
    

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2014-09-21 15:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (172 votes), past polls