Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Corion's scratchpad

by Corion (Pope)
on Jun 01, 2004 at 14:33 UTC ( #358095=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    package App::RemoteDownload::Queue;
    use strict;
    ...
    };
    
    1;
    
  2. or download this
    #! perl -slw
    use strict;
    ...
    sleep 1;
    take();
    sleep 12;
    
  3. or download this
    package DateTime::Range;
    use strict;
    ...
    };
    
    1;
    
  4. or download this
    package Interfaces::ExcelBinary;
    use strict;
    ...
        mem_usage();
        ReadXLS(Interfaces::ExcelBinary::, $file);
    };
    
  5. or download this
    Spreadsheet::ParseExcel 0.58 at q:\tmp.pl line 5.
    medium.xls 47344673 bytes
    ...
    Done parsing
    perl.exe                    2940 Console                 0    331.140 
    +K
    54175 records in [34 seconds], [0 records/s]
    
  6. or download this
    my @data = $cv->recv()
    
  7. or download this
    my @result = $plugin->execute('1+1'); # sends data over to Firefox, an
    +d returns the response
    
  8. or download this
    package My::Plugin::AnyEvent;
    
    ...
        # synchronously execute the command
        $self->execute_async($command)->recv
    };
    
  9. or download this
    package Archive::Zip::MemberRead::FH;
    use strict;
    ...
    
    =cut
    
  10. or download this
    #!perl -w
    use strict;
    ...
        -X        include "XSUB.h" (and undefine PERL_CORE)
    
    =cut
    
  11. or download this
    #!perl -w
    
    ...
    while (<>) {
        print "$_\n"
    };
    
  12. or download this
        for each module that fails its regression tests on $current
          did it fail identically on $previous?
    ...
              yes - goto "regression"
              no - note it in perldelta as a significant bugfix
              (also, try to inform the module's author)
    
  13. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
            $last_update = $now;
        };
    };
    
  14. or download this
    use strict;
    use threads;
    ...
        printf "%d %d\n", threads->tid, $_;
        $_
    } (1..10);
    
  15. or download this
    @echo off
    set base=%~dp0
    path %BASE%\perl\bin;%BASE%\c\bin;%PATH%
    set CCACHE_DIR=C:\temp\ccache
    set CCACHE_LOGFILE=%CCACHE_DIR%\ccache.log
    
  16. or download this
    #!perl -w
    use strict;
    ...
        select RemotePath,ConnectionState
        from Win32_NetworkConnection
    
  17. or download this
       sub GimmeStdErr(@){  # ... bangles, tangles and spaghetti!
             local *R, *W;
    ...
                 exec @_
             }
       };
    
  18. or download this
    =head2 C<< flatten LISTNAME CHILDLIST $var >>
    
    ...
        $items
    };
    
  19. or download this
    Q:\>perl -e "my%l;BEGIN{unshift@INC,sub{my($s,$m)=@_;return if $l{$m};
    +local $l{$
    m}=$m;warn localtime().qq[ $m loading\n];require $m;warn localtime().q
    +q[ $m done
    .\n];}}" -e "use strict; use warnings;use LWP::UserAgent;"
    
  20. or download this
    package Devel::Timings;
    # or maybe B::Timings, so you can load it with -MO=Timings...
    ...
            warn localtime().qq[ $module done.\n];
        }
    }
    
  21. or download this
    use Test::More tests => 4;
    use Data::Dumper;
    ...
    fallback
    #!/bin/sh
    
  22. or download this
    #!/usr/bin/perl -w
    package main;
    ...
        print "\n";
        $conf->SetDNSServerSearchOrder(['192.168.1.102', '127.0.0.1']);
    }
    
  23. or download this
        SELECT COUNT(*) 
        FROM mx_forums
        WHERE id=? OR category = ? 
        -- $q->param('forum'), $q->param('category')
    
  24. or download this
        SELECT COUNT(*) 
        FROM mx_forums
    ...
          OR ((1 = ?) AND (category = ?))
        -- defined $q->param('forum'), $q->param('forum')
        -- defined $q->param('category'), $q->param('category')
    
  25. or download this
    my $sql = q{ ... };
    if ( $dbh->selectrow_array(
    ...
           $q->param('category')
        ) >= 1 
         ) { ... }
    
  26. or download this
    use strict;
    use lib '.';
    ...
                              having  => { col_count => [ -and => { '>' =>
    + 0 }, { '<' => $total_count }]},);
      print $sql,"\n";
    }
    
  27. or download this
    #!/usr/bin/perl
    use warnings;
    ...
    }
    
    print "Done.";
    

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 scrutinizing the Monastery: (3)
As of 2014-08-01 04:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (256 votes), past polls