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

ysth's scratchpad

by ysth (Canon)
on Jun 04, 2004 at 09:33 UTC ( #360777=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $lo_stretch = 0;
    my $max_lo_stretch = 0;
    ...
    
        # repeat above for lo, only with $high[$i] < $avg[$i]
    }
    
  2. or download this
    #!/usr/bin/perl -l
    
    ...
        "system" => sub { my ($y,$mo,$d,$h,$m,$s) = convert_timezone_syste
    +m(2008,7,3,23,2,3,"America/Denver","America/New_York"); return },
    } );
    
  3. or download this
    
    
    ...
        
    } # clean_date
    
  4. or download this
    package Quux;
    use overload '0+' => sub { (${$_[0]} *= -1) += 1 }, fallback => 1;
    my $x=0;
    bless \$x
    
  5. or download this
    my $ok = eval { require Quux };  # huh?
    
  6. or download this
    sub lup { "LOOP" }
    sub say { print @_, $/; sleep 1; }
    ...
        say 2;
      }
    #}          ### uncomment
    
  7. or download this
    (02:57:57 AM) ysth: I'm not able to register at osix.net or submit a f
    +eedback comment; both get "Your request couldn't be processed because
    + of the following errors: The verification code is incorrect!" every 
    +time
    (02:58:14 AM) Logging started. Future messages in this conversation wi
    +ll be logged.
    ...
    (03:15:50 AM) bb: lol
    (03:16:14 AM) bb: dunno dude. we have plenty of signups via firefox
    (03:16:50 AM) ysth: first two tries with IE6, I entered "Search Engine
    +" for "how did you find out about us" and it complained it hadn't bee
    +n entered.  Switching to Friend worked.
    
  8. or download this
    ysth@raven:~/dl/tmp/Acme-ESP-1.002006$ perl5.9.5 Makefile.PL && make t
    +est
    Checking if your kit is complete...
    ...
    Failed 1/1 test programs. 7/14 subtests failed.
    make: *** [test_dynamic] Error 255
    
  9. or download this
    ysth@raven:~/dl/tmp/Acme-ESP-1.002005$ perl5.9.5 Makefile.PL && make t
    +est
    Checking if your kit is complete...
    ...
    Failed 1/1 test programs. 14/14 subtests failed.
    make: *** [test_dynamic] Error 9
    
  10. or download this
    $ perl5.9.5 Makefile.PL && make test
    Checking if your kit is complete...
    ...
    Failed 1/1 test programs. 14/14 subtests failed.
    make: *** [test_dynamic] Error 9
    
  11. or download this
    perl5.8.9 Makefile.PL && make all test
    Checking if your kit is complete...
    ...
    Failed 1/1 test programs. 11/190 subtests failed.
    make: *** [test_dynamic] Error 255
    
  12. or download this
    ysth@raven:~/dl/tmp/Math-BigApprox-0.001003$ perl5.8.9 Makefile.PL && 
    +make all test
    Checking if your kit is complete...
    ...
    Failed 1/1 test programs. 12/190 subtests failed.
    make: *** [test_dynamic] Error 255
    
  13. or download this
    ysth@raven:~/.cpan/build/Math-BigApprox-0.001002-H7ay20$ make test
    PERL_DL_NONLAZY=1 /usr/local/bin/perl5.9.5 "-MExtUtils::Command::MM" "
    +-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
    ...
    Files=1, Tests=189,  1 wallclock secs ( 0.14 cusr +  0.00 csys =  0.14
    + CPU)
    Failed 1/1 test programs. 12/189 subtests failed.
    make: *** [test_dynamic] Error 255
    
  14. or download this
    $ touch some\ file\ name.foo 'other file.foo'
    
    ...
    $ ls -1 *.foo 
    other file.foo
    some file name.foo
    
  15. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
       }
    }
    
  16. or download this
    #!/usr/bin/perl
    use strict;
    ...
    load_dict();
    set_word();
    for (;;) { show(); guess() }
    
  17. or download this
    stat64("/usr/share/info/dir.info", 0xbfa0aed0) = -1 ENOENT (No such fi
    +le or directory)
    stat64("/usr/share/info/dir.info.gz", 0xbfa0aed0) = -1 ENOENT (No such
    + file or directory)
    ...
    stat64("./dir", 0xbfa0b0b0)             = -1 ENOENT (No such file or d
    +irectory)
    stat64("./localdir", 0xbfa0b0b0)        = -1 ENOENT (No such file or d
    +irectory)
    
  18. or download this
    (11:51:21 AM) josh [josh@c66-235-10-26.sea2.cablespeed.com] entered th
    +e room.
    (11:58:15 AM) josh left the room (quit: Ping timeout: 258 seconds).
    ...
    (02:10:21 PM) seti: :-D The aliens *can* hear me.
    (02:10:35 PM) seti: All they needed was some out of band channel.
    (02:10:49 PM) codon: but running SETI@work is against company policy..
    +.
    
  19. or download this
    sub _update_store_list
    {
    ...
            <p>Contact Andrew to request any mass update to stores.</p>
        };
    
  20. or download this
    From: Jack
    Sent: Thu 10/5/2006 5:34 PM
    ...
    I've attempting to debug a network problem on dbmfqa0 and I need to ki
    +ck the stack.  If you're logged into that box, please logout now.
     
    J
    
  21. or download this
    $ cat nathane.pl
    #!/usr/bin/perl
    ...
    Num: 951102704408536600
    Num: 511027044085366000
    Num: 9511027044085366000
    
  22. or download this
    diff -ur Proc-ProcessTable-0.41.orig/ProcessTable.pm Proc-ProcessTable
    +-0.41/ProcessTable.pm
    --- Proc-ProcessTable-0.41.orig/ProcessTable.pm    2006-06-30 21:16:54
    +.000000000 -0700
    ...
    +    "cmndline",
     };
    
  23. or download this
    package Foo;
    
    ...
    }
    
    1;
    
  24. or download this
    package Common::DBI::st::timeout;
    
    ...
    }
    
    1;
    

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: (11)
As of 2014-04-21 14:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (495 votes), past polls