Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
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?
[GotToBTru]: by itself, yes, but used in sub pre(&;@) not so
[LanX]: &; is interpreted as a function call, but the @ has no meaning
[LanX]: OH
[LanX]: you are talking about signatures?
[GotToBTru]: yes, it turns out I am
[LanX]: http://perldoc. perl.org/perlsub. html#Prototypes
[GotToBTru]: that page, strangely enough, never mentions that construct
[LanX]: ; is for optional prototypes
[LanX]: & is codeblock @ array
[GotToBTru]: okay, that is there in the text, not in literal use in any of the examples

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (9)
As of 2017-01-18 21:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (164 votes). Check out past polls.