Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

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?

What's my password?
Create A New User
[erix]: sorry, my attention is a rar commodity. I will not squander it on such pro-russia sites :)
[erix]: *rare commodity
[shmem]: erix: you are utterly mistaken in marking that site as "pro-russian".
[erix]: how do you mean? the bear, explanations of Putin's "election", the fearsome new russian weaponry. I came across them immediately. Just coincidence?
[shmem]: No, not coincidence - prejudice and bias

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2018-03-19 21:06 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (246 votes). Check out past polls.