Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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 about the Monastery: (7)
As of 2014-12-21 18:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (106 votes), past polls