Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
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 exploiting the Monastery: (3)
As of 2014-09-22 02:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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











    Results (177 votes), past polls