Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
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??

# Sort so that alpha keys come first, then numerics map $_->[1], sort { $a->[0] <=> $b->[0] or $a->[0] ? $a->[1] <=> $b->[1] : $a->[1] cmp $b->[1] } map [(/[a-z]/i ? 0 : 1), $_], keys %hash;

Export everything in package
package gs; my $pkg = 'gs'; # Export everything! @EXPORT = grep defined(&{$main::{$pkg.'::'}{$_}}), keys %{$main::{$pkg +.'::'}};

A quine I came up with:
$f=q(s{}{\$f=q($f); $f}; print;); s{}{\$f=q($f); $f}; print;

Re: detecting changes in a localised variable
Re (tilly) 1 (perl): What Happened...(perils of porting from c) is beautiful.
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 avoiding work at the Monastery: (10)
As of 2014-12-19 09:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (75 votes), past polls