scratchpad
Roy Johnson
<c>
# 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;
</c>
<hr />
Export everything in package
<code>
package gs;
my $pkg = 'gs';
# Export everything!
@EXPORT = grep defined(&{$main::{$pkg.'::'}{$_}}), keys %{$main::{$pkg.'::'}};
</code>
<hr />
A quine I came up with:
<code>
$f=q(s{}{\$f=q($f);
$f};
print;);
s{}{\$f=q($f);
$f};
print;
</code>
<br />[id://432551]
<br />[id://50132] is beautiful.