Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
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 chilling in the Monastery: (7)
As of 2014-12-21 08:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (104 votes), past polls