Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
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?
[Discipulus]: good morning shmem
[Discipulus]: test for pmcbtk
[Discipulus]: sometimes the client dies for extra content </chatter><span class="error" style="color: #cc0000">Server Error (Error ID 9162
[Discipulus]: the span is considered extra content by the parser
[Corion]: Mhmm - that would be some internal error, but I can't look into that right now as I don't have access to the logs from here ;)

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (13)
As of 2017-07-25 08:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (364 votes). Check out past polls.