Perl Monk, Perl Meditation PerlMonks

by xyzzy (Pilgrim)
 on Feb 06, 2009 at 15:48 UTC Need Help??

```[xyzzy@gulik ~]\$ export XYZZY='\$,=qq.\n.;print q.\/\/____\/.,q./\ \ /
+/ \\.,q.    /_/__.,q..'

[xyzzy@gulik ~]\$ export TGNAT='\$_=".-.-,,,,.-\$/-.-++-+--+\$/++++-,-,,+"
+;y;+-/*\$/; _/\\?;&print'

[xyzzy@gulik ~]\$ perl -e "\$XYZZY"
\/\/____\/
/\ \ / / \
/_/__
[xyzzy@gulik ~]\$ perl -e "\$TGNAT"
\/\/____\/
/\/  / //
/_/__ [xyzzy@gulik ~]\$ perl -le'\$a{\$_}++ for split//,shift;print\$_
+,": \$a{\$_}" for sort keys%a;(\$c+=\$a{\$_})?\$s+=(/["\\$&*+?_]/?2:1)*\$a{\$_
+}:0 for keys%a;print"chars:\$c\nkeystrokes:\$s"' "\$XYZZY"
: 9
\$: 1
,: 4
.: 10
/: 8
;: 1
=: 1
\: 8
_: 7
i: 1
n: 2
p: 1
q: 6
r: 1
t: 1
chars:61
keystrokes:69
[xyzzy@gulik ~]\$ perl -le'\$a{\$_}++ for split//,shift;print\$_,": \$a{\$_}
+" for sort keys%a;(\$c+=\$a{\$_})?\$s+=(/["\\$&*+?_]/?2:1)*\$a{\$_}:0 for ke
+ys%a;print"chars:\$c\nkeystrokes:\$s"' "\$TGNAT"
: 1
": 2
\$: 4
&: 1
*: 1
+: 10
,: 7
-: 11
.: 4
/: 5
;: 4
=: 1
?: 1
\: 2
_: 2
i: 1
n: 1
p: 1
r: 1
t: 1
y: 1
chars:62
keystrokes:83

Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
As of 2017-10-17 06:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My fridge is mostly full of:

Results (218 votes). Check out past polls.

Notices?