# 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.
|