Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
Problems? Is your data what you think it is?
 
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 examining the Monastery: (13)
As of 2014-04-19 12:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (480 votes), past polls