Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
go ahead... be a heretic
 
PerlMonks  

Roy Johnson's scratchpad

by Roy Johnson (Monsignor)
on Jun 01, 2004 at 19:18 UTC ( #358440=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    # Sort so that alpha keys come first, then numerics
    map $_->[1],
    ...
           or $a->[0] ? $a->[1] <=> $b->[1]
                      : $a->[1] cmp $b->[1] }
    map [(/[a-z]/i ? 0 : 1), $_], keys %hash;
    
  2. or download this
    package gs;
    
    ...
    
    # Export everything!
    @EXPORT = grep defined(&{$main::{$pkg.'::'}{$_}}), keys %{$main::{$pkg
    +.'::'}};
    
  3. or download this
    $f=q(s{}{\$f=q($f);
    $f};
    ...
    s{}{\$f=q($f);
    $f};
    print;
    

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 drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2014-04-20 00:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls