Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Zaxo's scratchpad

by Zaxo (Archbishop)
on Jun 01, 2004 at 18:20 UTC ( #358348=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use Data::Alias qw( alias );
    use Devel::Peek qw( Dump );
    ...
      REFCNT = 2
      FLAGS = (PADBUSY,PADMY,IOK,pIOK)
      IV = 4
    
  2. or download this
    sub gc_frac {
        local $_ = @_? shift : $_;
        2 * (() = /(gc)/gi ) / length;
    }
    print gc_frac('AAgcTT'),$/
    
  3. or download this
    0.333333333333333
    $ 
    
  4. or download this
    >>-----ASSIGN-----+---------------+----+--user-id--->
                      '--WITH REGRET--'    '--group-id-->
    
    >---password---------+-------NO PRIVILEGE----------><
    >---group-password---'
    
  5. or download this
    $ perl -e'printf "OS: %s\tNum: %d\tTime left: %f\n", $^O, select undef, undef, undef, 1.5'
  6. or download this
    $ perl -e'alarm 1;printf "Num: %d\tTime left: %f\n", select undef, und
    +ef, undef, 3.0'
    Alarm clock
    $ 
    
  7. or download this
    $ time perl -e'alarm 5;printf "Num: %d\tTime left: %f\n", select undef
    +, undef, undef, 3.0'
    Num: 0    Time left: 0.000000
    $ 
    
  8. or download this
    $ perl -e'$SIG{ALRM}=sub {};alarm 1;printf "Num: %d\tTime left: %f\n",
    + select undef, undef, undef, 3.0'
    Num: -1    Time left: 2.000000
    $ 
    
  9. or download this
    #!/usr/bin/perl
    use strict;
    use warnings;
    ...
    1 ARRAY(0x804b50c) at hlw.pl line 13.
    1 ARRAY(0x804b50c) at hlw.pl line 15.
    Wrapped getter reports QUUX, and backdoor shows Quux
    
  10. or download this
    ssize_t rd = 0;
    size_t sofar = 0;
    while (rd = read( fd, buf + sofar, BUFSIZE - sofar)) {
    ...
                            sofar += rd;
            }
    }
    
  11. or download this
    PRE { 
      background-color: #CCEECC;
    ...
    H4 {font-size: 18pt}
    H5 {font-size: 14pt}
    H6 {font-size:  8pt}
    
  12. or download this
    sub fixxml
    { # fix the xml nodes so they parse correctly
    ...
    $xml =~ y/\x00-\x1f//d; # strip control chrs
    return $xml; # to the xml parser
    }
    
  13. or download this
    #!/usr/bin/perl -w
    
    ...
        );
    
    print "@{[common(@foo)]}$/";
    
  14. or download this
    # Constants and functions transcribed from linux 2.4 asm-i386/ioctl.h 
    +macros
    use strict;
    ...
    
    1;
    __END__
    
  15. or download this
    {$_="r\@56O4\@FCE6DJO\@7OE96O!6C=>\@?<DO|@?2DE6CJ\n",y, -},O-} -N,,pri
    +nt}
    

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 taking refuge in the Monastery: (21)
As of 2014-10-30 14:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (208 votes), past polls