[perl] ビジュアル開発関数 Acme::EyeDrops

perl 業界では数年前の話題なものの、某所で「ホンマや、これはビジュアル開発関数だ！」とザワザワったので blog にも書いておきます。今日は縦長です。文字サイズ 10px 出力でプリントアウトすると 3mくらいになるので、縦表示の画面でご覧になることを強く推奨したします。

[amazon_enhanced asin=”4873115671″ /][amazon_enhanced asin=”4774145386″ /][amazon_enhanced asin=”4797336803″ /][amazon_enhanced asin=”4873110963″ /][amazon_enhanced asin=”4873116287″ /][amazon_enhanced asin=”477415864X” /][amazon_enhanced asin=”4774150258″ /][amazon_enhanced asin=”4774108170″ /][amazon_enhanced asin=”4774135046″ /]

■導入

$ perl -MCPAN -e shell

cpan shell — CPAN exploration and modules installation (v1.960001)
Enter ‘h’ for help.

cpan[1]> install Acme::EyeDrops

シェルからワンライナーで導入できるのだが、cpan shell で他にも操作を行うことがあり。

Acme::EyeDrops　という命名からして、本当に EyeDrops 予感も芽生える（謎

■導入展開中の備忘録。MYMETA.yml を見てもいいのだが。ビジュアル引数は 191 種にも及ぶｗ。

cp lib/Acme/EyeDrops/rose.eyp blib/lib/Acme/EyeDrops/rose.eyp
cp lib/Acme/EyeDrops/smiley2.eyp blib/lib/Acme/EyeDrops/smiley2.eyp
cp lib/Acme/EyeDrops/autrijus.eyp blib/lib/Acme/EyeDrops/autrijus.eyp
cp lib/Acme/EyeDrops/dipsy.eyp blib/lib/Acme/EyeDrops/dipsy.eyp
cp lib/Acme/EyeDrops/yanick3.eyp blib/lib/Acme/EyeDrops/yanick3.eyp
cp lib/Acme/EyeDrops/riding.eyp blib/lib/Acme/EyeDrops/riding.eyp
cp lib/Acme/EyeDrops/larry2.eyp blib/lib/Acme/EyeDrops/larry2.eyp
cp lib/Acme/EyeDrops/kangaroo.eyp blib/lib/Acme/EyeDrops/kangaroo.eyp
cp lib/Acme/EyeDrops/parrot.eye blib/lib/Acme/EyeDrops/parrot.eye
cp lib/Acme/EyeDrops/map_japan.eye blib/lib/Acme/EyeDrops/map_japan.eye
cp lib/Acme/EyeDrops/dan.eye blib/lib/Acme/EyeDrops/dan.eye
cp lib/Acme/EyeDrops/mosquito.eyp blib/lib/Acme/EyeDrops/mosquito.eyp
cp lib/Acme/EyeDrops/spider.eye blib/lib/Acme/EyeDrops/spider.eye
cp lib/Acme/EyeDrops/pugs.eye blib/lib/Acme/EyeDrops/pugs.eye
cp lib/Acme/EyeDrops/writing_perl.eyp blib/lib/Acme/EyeDrops/writing_perl.eyp
cp lib/Acme/EyeDrops/debian.eyp blib/lib/Acme/EyeDrops/debian.eyp
cp lib/Acme/EyeDrops/mosquito.eye blib/lib/Acme/EyeDrops/mosquito.eye
cp lib/Acme/EyeDrops/panda.eye blib/lib/Acme/EyeDrops/panda.eye
cp lib/Acme/EyeDrops/bleach.eye blib/lib/Acme/EyeDrops/bleach.eye
cp lib/Acme/EyeDrops/smiley3.eyp blib/lib/Acme/EyeDrops/smiley3.eyp
cp lib/Acme/EyeDrops/uml.eyp blib/lib/Acme/EyeDrops/uml.eyp
cp lib/Acme/EyeDrops/panda.eyp blib/lib/Acme/EyeDrops/panda.eyp
cp lib/Acme/EyeDrops/schwern.eye blib/lib/Acme/EyeDrops/schwern.eye
cp lib/Acme/EyeDrops/writing_perl.eye blib/lib/Acme/EyeDrops/writing_perl.eye
cp lib/Acme/EyeDrops/eugene.eyp blib/lib/Acme/EyeDrops/eugene.eyp
cp lib/Acme/EyeDrops/moose.eye blib/lib/Acme/EyeDrops/moose.eye
cp lib/Acme/EyeDrops/pugs2.eye blib/lib/Acme/EyeDrops/pugs2.eye
cp lib/Acme/EyeDrops/undies.eyp blib/lib/Acme/EyeDrops/undies.eyp
cp lib/Acme/EyeDrops/kansai_pm.eye blib/lib/Acme/EyeDrops/kansai_pm.eye
cp lib/Acme/EyeDrops/schwern.eyp blib/lib/Acme/EyeDrops/schwern.eyp
cp lib/Acme/EyeDrops/eugene.eye blib/lib/Acme/EyeDrops/eugene.eye
cp lib/Acme/EyeDrops/kermit.eyp blib/lib/Acme/EyeDrops/kermit.eyp
cp lib/Acme/EyeDrops/jon.eye blib/lib/Acme/EyeDrops/jon.eye
cp lib/Acme/EyeDrops/map_uk.eye blib/lib/Acme/EyeDrops/map_uk.eye
cp lib/Acme/EyeDrops/pony.eye blib/lib/Acme/EyeDrops/pony.eye
cp lib/Acme/EyeDrops/cricket.eye blib/lib/Acme/EyeDrops/cricket.eye
cp lib/Acme/EyeDrops/map_world1.eyp blib/lib/Acme/EyeDrops/map_world1.eyp
cp lib/Acme/EyeDrops/japh.eye blib/lib/Acme/EyeDrops/japh.eye
cp lib/Acme/EyeDrops/map_australia.eyp blib/lib/Acme/EyeDrops/map_australia.eyp
cp lib/Acme/EyeDrops/pgolf.eyp blib/lib/Acme/EyeDrops/pgolf.eyp
cp lib/Acme/EyeDrops/heart.eyp blib/lib/Acme/EyeDrops/heart.eyp
cp lib/Acme/EyeDrops/golfer.eye blib/lib/Acme/EyeDrops/golfer.eye
cp lib/Acme/EyeDrops/jon_oxer.eye blib/lib/Acme/EyeDrops/jon_oxer.eye
cp lib/Acme/EyeDrops/bottle2.eyp blib/lib/Acme/EyeDrops/bottle2.eyp
cp lib/Acme/EyeDrops/yanick.eyp blib/lib/Acme/EyeDrops/yanick.eyp
cp lib/Acme/EyeDrops/buffy2.eyp blib/lib/Acme/EyeDrops/buffy2.eyp
cp lib/Acme/EyeDrops/map_uk.eyp blib/lib/Acme/EyeDrops/map_uk.eyp
cp lib/Acme/EyeDrops/window.eye blib/lib/Acme/EyeDrops/window.eye
cp lib/Acme/EyeDrops/simon.eyp blib/lib/Acme/EyeDrops/simon.eyp
cp lib/Acme/EyeDrops/a.eyp blib/lib/Acme/EyeDrops/a.eyp
cp lib/Acme/EyeDrops/bleach.eyp blib/lib/Acme/EyeDrops/bleach.eyp
cp lib/Acme/EyeDrops/pony2.eye blib/lib/Acme/EyeDrops/pony2.eye
cp lib/Acme/EyeDrops/parrot.eyp blib/lib/Acme/EyeDrops/parrot.eyp
cp lib/Acme/EyeDrops/llama.eye blib/lib/Acme/EyeDrops/llama.eye
cp lib/Acme/EyeDrops/flag_canada.eye blib/lib/Acme/EyeDrops/flag_canada.eye
cp lib/Acme/EyeDrops/smiley3.eye blib/lib/Acme/EyeDrops/smiley3.eye
cp lib/Acme/EyeDrops/jon.eyp blib/lib/Acme/EyeDrops/jon.eyp
cp lib/Acme/EyeDrops/japh.eyp blib/lib/Acme/EyeDrops/japh.eyp
cp lib/Acme/EyeDrops/camel.eyp blib/lib/Acme/EyeDrops/camel.eyp
cp lib/Acme/EyeDrops/schwern2.eye blib/lib/Acme/EyeDrops/schwern2.eye
cp lib/Acme/EyeDrops/baghdad.eye blib/lib/Acme/EyeDrops/baghdad.eye
cp lib/Acme/EyeDrops/campm.eyp blib/lib/Acme/EyeDrops/campm.eyp
cp lib/Acme/EyeDrops/autrijus.eye blib/lib/Acme/EyeDrops/autrijus.eye
cp lib/Acme/EyeDrops/smiley.eyp blib/lib/Acme/EyeDrops/smiley.eyp
cp lib/Acme/EyeDrops/adrianh.eyp blib/lib/Acme/EyeDrops/adrianh.eyp
cp lib/Acme/EyeDrops/damian.eye blib/lib/Acme/EyeDrops/damian.eye
cp lib/Acme/EyeDrops/map_italy.eyp blib/lib/Acme/EyeDrops/map_italy.eyp
cp lib/Acme/EyeDrops/map_world3.eye blib/lib/Acme/EyeDrops/map_world3.eye
cp lib/Acme/EyeDrops/mongers.eye blib/lib/Acme/EyeDrops/mongers.eye
cp lib/Acme/EyeDrops/buffy.eyp blib/lib/Acme/EyeDrops/buffy.eyp
cp lib/Acme/EyeDrops/santa.eye blib/lib/Acme/EyeDrops/santa.eye
cp lib/Acme/EyeDrops/yanick2.eyp blib/lib/Acme/EyeDrops/yanick2.eyp
cp lib/Acme/EyeDrops/camel3.eyp blib/lib/Acme/EyeDrops/camel3.eyp
cp lib/Acme/EyeDrops/flag_canada.eyp blib/lib/Acme/EyeDrops/flag_canada.eyp
cp lib/Acme/EyeDrops/yanick4.eyp blib/lib/Acme/EyeDrops/yanick4.eyp
cp lib/Acme/EyeDrops/bottle3.eyp blib/lib/Acme/EyeDrops/bottle3.eyp
cp lib/Acme/EyeDrops/beer.eye blib/lib/Acme/EyeDrops/beer.eye
cp lib/Acme/EyeDrops/debian.eye blib/lib/Acme/EyeDrops/debian.eye
cp lib/Acme/EyeDrops/beer.eyp blib/lib/Acme/EyeDrops/beer.eyp
cp lib/Acme/EyeDrops/camel2.eye blib/lib/Acme/EyeDrops/camel2.eye
cp lib/Acme/EyeDrops/opera.eyp blib/lib/Acme/EyeDrops/opera.eyp
cp lib/Acme/EyeDrops/map_world2.eye blib/lib/Acme/EyeDrops/map_world2.eye
cp lib/Acme/EyeDrops/yanick2.eye blib/lib/Acme/EyeDrops/yanick2.eye
cp lib/Acme/EyeDrops/kansai_pm.eyp blib/lib/Acme/EyeDrops/kansai_pm.eyp
cp lib/Acme/EyeDrops/buffy3.eye blib/lib/Acme/EyeDrops/buffy3.eye
cp lib/Acme/EyeDrops/merlyn.eyp blib/lib/Acme/EyeDrops/merlyn.eyp
cp lib/Acme/EyeDrops/alien.eyp blib/lib/Acme/EyeDrops/alien.eyp
cp lib/Acme/EyeDrops/bra.eye blib/lib/Acme/EyeDrops/bra.eye
cp lib/Acme/EyeDrops/kermit.eye blib/lib/Acme/EyeDrops/kermit.eye
cp lib/Acme/EyeDrops/camel2.eyp blib/lib/Acme/EyeDrops/camel2.eyp
cp lib/Acme/EyeDrops/santa2.eyp blib/lib/Acme/EyeDrops/santa2.eyp
cp lib/Acme/EyeDrops/bottle.eye blib/lib/Acme/EyeDrops/bottle.eye
cp lib/Acme/EyeDrops/bra.eyp blib/lib/Acme/EyeDrops/bra.eyp
cp lib/Acme/EyeDrops/london.eye blib/lib/Acme/EyeDrops/london.eye
cp lib/Acme/EyeDrops/koaladile.eye blib/lib/Acme/EyeDrops/koaladile.eye
cp lib/Acme/EyeDrops/map_world1.eye blib/lib/Acme/EyeDrops/map_world1.eye
cp lib/Acme/EyeDrops/a.eye blib/lib/Acme/EyeDrops/a.eye
cp lib/Acme/EyeDrops/moose.eyp blib/lib/Acme/EyeDrops/moose.eyp
cp lib/Acme/EyeDrops/santa2.eye blib/lib/Acme/EyeDrops/santa2.eye
cp lib/Acme/EyeDrops/candle.eyp blib/lib/Acme/EyeDrops/candle.eyp
cp lib/Acme/EyeDrops/alien.eye blib/lib/Acme/EyeDrops/alien.eye
cp lib/Acme/EyeDrops/alpaca.eye blib/lib/Acme/EyeDrops/alpaca.eye
cp lib/Acme/EyeDrops/bottle3.eye blib/lib/Acme/EyeDrops/bottle3.eye
cp lib/Acme/EyeDrops/candle.eye blib/lib/Acme/EyeDrops/candle.eye
cp lib/Acme/EyeDrops/bottle2.eye blib/lib/Acme/EyeDrops/bottle2.eye
cp lib/Acme/EyeDrops/halloween.eye blib/lib/Acme/EyeDrops/halloween.eye
cp lib/Acme/EyeDrops/naw.eye blib/lib/Acme/EyeDrops/naw.eye
cp lib/Acme/EyeDrops/china1.eyp blib/lib/Acme/EyeDrops/china1.eyp
cp lib/Acme/EyeDrops/halloween.eyp blib/lib/Acme/EyeDrops/halloween.eyp
cp lib/Acme/EyeDrops/heart.eye blib/lib/Acme/EyeDrops/heart.eye
cp lib/Acme/EyeDrops/saturn.eye blib/lib/Acme/EyeDrops/saturn.eye
cp lib/Acme/EyeDrops/larry2.eye blib/lib/Acme/EyeDrops/larry2.eye
cp lib/Acme/EyeDrops/llama.eyp blib/lib/Acme/EyeDrops/llama.eyp
cp lib/Acme/EyeDrops/window.eyp blib/lib/Acme/EyeDrops/window.eyp
cp lib/Acme/EyeDrops/larry.eyp blib/lib/Acme/EyeDrops/larry.eyp
cp lib/Acme/EyeDrops/alpaca.eyp blib/lib/Acme/EyeDrops/alpaca.eyp
cp lib/Acme/EyeDrops/merlyn.eye blib/lib/Acme/EyeDrops/merlyn.eye
cp lib/Acme/EyeDrops/map_world3.eyp blib/lib/Acme/EyeDrops/map_world3.eyp
cp lib/Acme/EyeDrops/spoon.eye blib/lib/Acme/EyeDrops/spoon.eye
cp lib/Acme/EyeDrops/pgolf.eye blib/lib/Acme/EyeDrops/pgolf.eye
cp lib/Acme/EyeDrops/buffy2.eye blib/lib/Acme/EyeDrops/buffy2.eye
cp lib/Acme/EyeDrops/pony2.eyp blib/lib/Acme/EyeDrops/pony2.eyp
cp lib/Acme/EyeDrops/cricket.eyp blib/lib/Acme/EyeDrops/cricket.eyp
cp lib/Acme/EyeDrops/map_australia.eye blib/lib/Acme/EyeDrops/map_australia.eye
cp lib/Acme/EyeDrops/rose.eye blib/lib/Acme/EyeDrops/rose.eye
cp lib/Acme/EyeDrops/adrianh.eye blib/lib/Acme/EyeDrops/adrianh.eye
cp lib/Acme/EyeDrops/bighorn.eyp blib/lib/Acme/EyeDrops/bighorn.eyp
cp lib/Acme/EyeDrops/buffy4.eyp blib/lib/Acme/EyeDrops/buffy4.eyp
cp lib/Acme/EyeDrops/yanick3.eye blib/lib/Acme/EyeDrops/yanick3.eye
cp lib/Acme/EyeDrops/bighorn.eye blib/lib/Acme/EyeDrops/bighorn.eye
cp lib/Acme/EyeDrops/tpr.eyp blib/lib/Acme/EyeDrops/tpr.eyp
cp lib/Acme/EyeDrops/buffy3.eyp blib/lib/Acme/EyeDrops/buffy3.eyp
cp lib/Acme/EyeDrops/naw.eyp blib/lib/Acme/EyeDrops/naw.eyp
cp lib/Acme/EyeDrops/damian.eyp blib/lib/Acme/EyeDrops/damian.eyp
cp lib/Acme/EyeDrops/eye.eye blib/lib/Acme/EyeDrops/eye.eye
cp lib/Acme/EyeDrops/dipsy.eye blib/lib/Acme/EyeDrops/dipsy.eye
cp lib/Acme/EyeDrops/moosecamel.eye blib/lib/Acme/EyeDrops/moosecamel.eye
cp lib/Acme/EyeDrops/pugs.eyp blib/lib/Acme/EyeDrops/pugs.eyp
cp lib/Acme/EyeDrops/tonick.eye blib/lib/Acme/EyeDrops/tonick.eye
cp lib/Acme/EyeDrops/spoon.eyp blib/lib/Acme/EyeDrops/spoon.eyp
cp lib/Acme/EyeDrops/moosecamel.eyp blib/lib/Acme/EyeDrops/moosecamel.eyp
cp lib/Acme/EyeDrops/simon.eye blib/lib/Acme/EyeDrops/simon.eye
cp lib/Acme/EyeDrops/tpr.eye blib/lib/Acme/EyeDrops/tpr.eye
cp lib/Acme/EyeDrops/larry.eye blib/lib/Acme/EyeDrops/larry.eye
cp lib/Acme/EyeDrops/snow.eyp blib/lib/Acme/EyeDrops/snow.eyp
cp lib/Acme/EyeDrops/smiley.eye blib/lib/Acme/EyeDrops/smiley.eye
cp lib/Acme/EyeDrops/riding.eye blib/lib/Acme/EyeDrops/riding.eye
cp lib/Acme/EyeDrops/london.eyp blib/lib/Acme/EyeDrops/london.eyp
cp lib/Acme/EyeDrops/saturn.eyp blib/lib/Acme/EyeDrops/saturn.eyp
cp lib/Acme/EyeDrops/pugs2.eyp blib/lib/Acme/EyeDrops/pugs2.eyp
cp lib/Acme/EyeDrops/schwern2.eyp blib/lib/Acme/EyeDrops/schwern2.eyp
cp lib/Acme/EyeDrops/golfer.eyp blib/lib/Acme/EyeDrops/golfer.eyp
cp lib/Acme/EyeDrops/mongers.eyp blib/lib/Acme/EyeDrops/mongers.eyp
cp lib/Acme/EyeDrops/bottle.eyp blib/lib/Acme/EyeDrops/bottle.eyp
cp lib/Acme/EyeDrops/music.eye blib/lib/Acme/EyeDrops/music.eye
cp lib/Acme/EyeDrops/camel.eye blib/lib/Acme/EyeDrops/camel.eye
cp lib/Acme/EyeDrops/spider.eyp blib/lib/Acme/EyeDrops/spider.eyp
cp lib/Acme/EyeDrops/hipowls.eye blib/lib/Acme/EyeDrops/hipowls.eye
cp lib/Acme/EyeDrops/campm.eye blib/lib/Acme/EyeDrops/campm.eye
cp lib/Acme/EyeDrops/kangaroo.eye blib/lib/Acme/EyeDrops/kangaroo.eye
cp lib/Acme/EyeDrops/map_italy.eye blib/lib/Acme/EyeDrops/map_italy.eye
cp lib/Acme/EyeDrops/dan.eyp blib/lib/Acme/EyeDrops/dan.eyp
cp lib/Acme/EyeDrops/gelly.eyp blib/lib/Acme/EyeDrops/gelly.eyp
cp lib/Acme/EyeDrops/coffee.eyp blib/lib/Acme/EyeDrops/coffee.eyp
cp lib/Acme/EyeDrops/map_world2.eyp blib/lib/Acme/EyeDrops/map_world2.eyp
cp lib/Acme/EyeDrops/yanick.eye blib/lib/Acme/EyeDrops/yanick.eye
cp lib/Acme/EyeDrops/china1.eye blib/lib/Acme/EyeDrops/china1.eye
cp lib/Acme/EyeDrops/eye.eyp blib/lib/Acme/EyeDrops/eye.eyp
cp lib/Acme/EyeDrops.pm blib/lib/Acme/EyeDrops.pm
cp lib/Acme/EyeDrops/snow.eye blib/lib/Acme/EyeDrops/snow.eye
cp lib/Acme/EyeDrops/map_japan.eyp blib/lib/Acme/EyeDrops/map_japan.eyp
cp lib/Acme/EyeDrops/buffy.eye blib/lib/Acme/EyeDrops/buffy.eye
cp lib/Acme/EyeDrops/hipowls.eyp blib/lib/Acme/EyeDrops/hipowls.eyp
cp lib/Acme/EyeDrops/santa.eyp blib/lib/Acme/EyeDrops/santa.eyp
cp lib/Acme/EyeDrops/tonick.eyp blib/lib/Acme/EyeDrops/tonick.eyp
cp lib/Acme/EyeDrops/buffy4.eye blib/lib/Acme/EyeDrops/buffy4.eye
cp lib/Acme/EyeDrops/jon_oxer.eyp blib/lib/Acme/EyeDrops/jon_oxer.eyp
cp lib/Acme/EyeDrops/coffee.eye blib/lib/Acme/EyeDrops/coffee.eye
cp lib/Acme/EyeDrops/acme.eye blib/lib/Acme/EyeDrops/acme.eye
cp lib/Acme/EyeDrops/camel3.eye blib/lib/Acme/EyeDrops/camel3.eye
cp lib/Acme/EyeDrops/yanick4.eye blib/lib/Acme/EyeDrops/yanick4.eye
cp lib/Acme/EyeDrops/koaladile.eyp blib/lib/Acme/EyeDrops/koaladile.eyp
cp lib/Acme/EyeDrops/gelly.eye blib/lib/Acme/EyeDrops/gelly.eye
cp lib/Acme/EyeDrops/baghdad.eyp blib/lib/Acme/EyeDrops/baghdad.eyp
cp lib/Acme/EyeDrops/pony.eyp blib/lib/Acme/EyeDrops/pony.eyp
cp lib/Acme/EyeDrops/opera.eye blib/lib/Acme/EyeDrops/opera.eye
cp lib/Acme/EyeDrops/acme.eyp blib/lib/Acme/EyeDrops/acme.eyp
cp lib/Acme/EyeDrops/smiley2.eye blib/lib/Acme/EyeDrops/smiley2.eye
cp lib/Acme/EyeDrops/undies.eye blib/lib/Acme/EyeDrops/undies.eye
cp lib/Acme/EyeDrops/music.eyp blib/lib/Acme/EyeDrops/music.eyp
cp lib/Acme/EyeDrops/uml.eye blib/lib/Acme/EyeDrops/uml.eye

■使用例

詳細はここ　→　http://search.cpan.org/~asavige/Acme-EyeDrops-1.61/lib/Acme/EyeDrops.pm#EXAMPLES

１．よくある helloworld テキスト出力を書いておく。

$ cat helloworld.pl
print “hello worldn”;

２． Acme::EyeDrops を使うスクリプトを書く。ここでは、kermit とした。

$ cat kermit.pl
use Acme::EyeDrops qw(sightly);
print sightly( { Shape => ‘kermit’,
SourceFile => ‘helloworld.pl’,
Regex => 1 } );

３．ビジュアル開発関数の実力とやらを。

$ perl kermit.pl
 1 shapes completed.
 2 shapes completed.
 3 shapes completed.
 ''=~('('.
 '?'.         '{'  .(('`')|
 ((                ((        '%'))
 )     )).('['^       (            '-')).('`'
 |     "!").(         ((        '`'          ))|
 (    ",")).          ((        (                ((
 (   ((              ((           (     '"')        )
 )                ))))              )      ))).+(     (
 (             '['                   )      )^'+'      )
 .( '['    ^')').                       (     "`"|      (
 (      ')')                              )       ).(     (
 ((                                          ((      ((     (
 ((                                              ((          ((
 (                                                  '`'      )  )
 )                                                      ))))))    )
 )                                                                  )
 )                                                                   )
 )      |                                                              (
 (    ((                                                               (
 (   ((                                                                 (
 (   (                                                           ((     (
 (   (                                                            (    (
 (   (   '.'                                                       )    )
 )   )  )  )))                                                    )    )
 )      ))  ))))                                      ))))      .(   (
 (       (     '['))                           )^'/')  .      +(   (
 (       (         "{")))^          '[').'\'      .+          ((
 ((      (                '"'))))).(             ((           (
 (      ((                                  '`'           ))
 )       )                               ))            |+
 (       (                            ((            ((
 (       ((                        ((            ((
 ((       (                     ((            ((
 ((      ((                 ((            ((
 ((      ((             ((            ((
 ((      '('       )))            ))
 ))       )))))))             ))
 ))                       ))
 ))                   ))
 ))             ))))
 ))))))))).''.
 ('`'|'%')
 .''.         (((  ('`')))|
 ((                ((        ','))
 )     )).('`'|       (            ',')).('`'
 |     "/").(         ((        '{'          ))^
 (    '[')).(          ((        (                ((
 (   ((              ((           (     '[')        )
 )                ))))              )      )))^((     (
 (             ','                   )      )))).      (
 (( '`'    ))|'/'                       )     .('['      ^
 (      ')')                              )       .+(     (
 ((                                          ((      ((     (
 ((                                              ((          ((
 (                                                  '`'      )  )
 )                                                      ))))))    )
 )                                                                  )
 )                                                                   )
 )      |                                                              (
 (    ((                                                               (
 (   ((                                                                 (
 (   (                                                           ((     (
 (   (                                                            (    (
 (   (   ','                                                       )    )
 )   )  )  )))                                                    )    )
 )      ))  ))))                                      ))))      .(   (
 (       (     '`'))                           )|'$')  .      ((   (
 (       (         '\'))))          ).'\'.+(      ((          ((
 ((      (                '`')))))))             |+           (
 (      ((                                  '.'           ))
 )       )                               ).            ((
 (       (                            ((            ((
 (       ((                        ((            ((
 ((       (                     ((            ((
 ((      ((                 ((            ((
 ((      ((             ((            ((
 ((      (((       (((            ((
 ((       '\')))             ))
 ))                       ))
 ))                   ))
 ))             ))))
 )))))))))))))
 )))))))))
 ))))         )))  )).""".
 ((                ((        ';'))
 )     ).("!"^       (            '+')).'"'.
 (     ('}')).         ((        ')'          )))
 ;    $:='.'^          ((        (                ((
 (   ((              ((           (     '~')        )
 )                ))))              )      )));$~     =
 (             '@'                   )      |'(';      (
 $^ )=(    ")")^                       (     '[');      (
 (      $/))                              =       '`'     |
 ((                                          ((      ((     (
 ((                                              ((          ((
 (                                                  '.'      )  )
 )                                                      ))))))    )
 )                                                                  )
 )                                                                   )
 ;      (                                                              (
 (    $,                                                               )
 )   )=                                                                 (
 (   (                                                           ((     (
 (   (                                                            (    (
 (   (   '('                                                       )    )
 )   )  )  )))                                                    )    )
 )      )^  '}';                                      ($)      =(   (
 (       (     '`'))                           ))|'!'  ;      $:   =
 (       (         (')')))^          ('}');$~=      ((          ((
 ((      (                '*')))))))             |+           (
 (      ((                                  '`'           ))
 )       )                               ;(            $^
 )       =                            ((            ((
 (       ((                        ((            ((
 ((       (                     ((            ((
 ((      ((                 ((            ((
 ((      ((             ((            ((
 ((      '+'       )))            ))
 ))       )))))))             ))
 ))                       ))
 ))                   ))
 ))             ))))
 ))))))^'_';#;

ほら、ビジュアルだろ。

それは、アスキーアート（ＡＡ）ちゃうんか？！というツッコミは却下。

４．他にもビジュアル引数は 191 種もあると前述した。ということで一部確認しよう。

$ perl map_world3.pl
 1 shapes completed.
 ''=~('('."?".
 '{'.('`'|'%').('['^'-'
 ).('`'|'!').  ("`"|       ','
 ).'"'.('['^'+').   (((           '['
 ))^')').('`'|(')')).(                  '`'
 |'.').('['^'/').('{'^'[')                  .((
 '\')).'"'.('`'|'(').(('`')|                   '%'
 ).('`'|',').('`'|',').('`'|                      '/'
 ).(  '{'^'[').('['^',').("`"|                       '/'
 ).(   '['^')').('`'|(',')).(                           '`'
 |((    '$'))).'\'.'\'.('`'                             |((
 '.'      ))).'\'.'"'.(';').(                              '!'
 ^((        '+'))).'"'.('}').                                 ')'
 );(         $:)='.'^"~";$~=                                 '@'
 |((           '('));$^      =                                  ')'
 ^((            '['));                                          $/=
 '`'               |'.'    ;( $,)=                                '('
 ^((                '}'));$       ='`'                           |((
 '!'                   ));($:)=                                     ')'
 ^((                        '}'                                     ));
 $~=                          ((    "*"))|                         '`'
 ;$^                            ='+'^"_";$/=                       '&'
 |((                              '@'));$,="["&                    '~'
 ;$                              =','^'|';$:='.'^                  '~'
 ;$~                             ='@'|'(';$^=')'^'[';               $/=
 '`'                             |'.';$,='('^'}';$='`'|            '!'
 ;$:                              =')'^'}';$~='*'|'`';$^=           '+'
 ^((                               '_'));$/='&'|"@";$,=            '['
 &((                               '~'));$=','^'|';$:            =((
 '.'                                ))^'~';$~='@'|'('             ;$^
 =((                                ')'))^'[';$/='`'            |((
 '.'                                ));$,='('^"}";             $=
 '`'                                |'!';$:=')'^              '}'
 ;$~                                ='*'|'`';$^               =((
 '+'                               ))^'_';$/                =((
 '&'                              ))|'@';                 $,=
 '['                             &"~";                 $=
 ','                           ^"|";                 $:=
 '.'                         ^'~';                $~=
 '@'                        |'('                ;$^
 =((                      ')'               ))^
 '['                     ;(  (          $/)
 )=(                   ((         '`'
 )))                        |((
 '.'                ));
 $,='('^'}';#;#

↑世界地図だ。

これを書く私は大阪人。kansai という引数に興味を持ったｗ

$ perl kansai_pm.pl
 1 shapes completed.
 ''
 =~( '('
 .'?'   .+
 '{'      .+(
 "`"|                              '%').("["^  '-'
 ). +(                   '`'|'!').('`'  |',')   .'"'
 .(  ((         '['))^'+')      .''. ('['^      ')')
 .(   '`'      |')'             ).+( '`'         |((
 '.'   ))).('['^'/'            ).+(  ((          '{')
 )^     '[').   ((                              '\'
 )).  ('"').(    ((                             '`')
 )|((   '(')     )).    ('`'                       |'%'
 ).(             '`' |','                             ).+(
 '`'             |',').(           ('`')|                '/')
 .+(           ('{')^             '['   )                .('['
 ^((        ','))).(            '`'|    (               "/")).(
 '['           ^')').('`'|     ',')      .             ('`'|  '$').
 ((        (((   '\'))        ))        )            .''.      '\'
 .''. +(  '`'|        '.')       .+         '\'.+        """.
 ((   ';'  )).  +(    '!'  ^+     ((        '+'))            ).((
 '"')    ).+  ('}').   ')')   ;$:="."^       '~';              ($~)
 =((  ((   '@'  )))     )|((    (( '(')))                        );($^)
 =(   ((  ')'   ))     )^'['    ;(  $/)=       "`"|            ".";$,=
 "("^     '}';$   =(    '`')|    '!'       ;$:=')'^'}'           ;$~=('*')|
 '`';         $^=    ((             '+'    ))^+                    "_";  ($/)=
 '&'|    (      (     ((  (           '@')))));  $,               =('[')&   '~';$
 =(            ",")^          "|";       $:             ="."^      '~';$~
 =(      '@')|'(' ;(        $^)=')'        ^+          "[";$/=        ('`')|
 ".";     $,      =(     '(')^             ((         '}'));            $='`'
 |'!'        ;$:=')'       ^((              ((        '}')))            );($~)=
 '*'|'`'  ;       $^='+'           ^'_';$/='&'|'@';$,='[' &'~';             $=(',')^
 "|";  ( $:)         =((         '.')           )^+      '~';               $~='@'|'('
 ;($^)=   ')'^    (       (                        '[')         )              ;($/)= "`"|
 '.';       $,=    ((                    "("))^     '}';                         ($)    ='`'
 |"!";     $:= (( ')'   ))^'}';               $~='*'| '`'                        ;($^)     ='+'^
 "_";   ($/)=  '&'|'@';$,='['&'~';$=            ','^'|';$:='.'                ^'~';$~      ='@'|
 '(';    $^ =(')')^          '[';$/='`'|".";$,=      ('(')^            '}';$=         '`'|
 '!';   ($:)=                    ')'^'}';$~='*'|           '`'         ;$^="+"^          "_";
 $/=    '&'                                                            |'@';$,             ='['&
 "~";                                                          $=(',')^              "|";
 ($:)                                                          =('.')^                   '~';
 ($~)                                                          =('@')|                     '('
 ;(                                                           $^)=')'

↑そっちの kansai か！関西ではない！！

$ perl map_japan.pl
 1 shapes completed.
 (  ''
 ) =~+(
 "(".
 "?".
 "{".(
 '`'|"%").(    (
 '[')^'-').("`"|
 '!').('`'|",").
 (   '"').('['^"+").(
 '['^')').('`'|")").(
 '`'|'.').('['^'/'
 ).('{'^'[').'\'
 .((  (    '"')))
 .''.        +(
 '`'|
 ((
 '('
 ))  ).
 (('`')|
 "%").(
 '`'|',')
 .('`'|',')
 .('`'|'/'
 ).(('{')^
 ('[')).(
 '['^',')
 .(('`')|
 (  "/")).(
 ( '[')^')'
 ).('`'|','
 ).     ('`'|"$").
 ((   '\')).'\'.+(
 ((  '`'))|'.').''.
 '\'.'"'.';'.("!"^
 '+').'"'.'}'.')');$:
 ='.'^'~';$~='@'|"(";
 (      $^)  =')'^'[';$/='`'|".";
 $,='('^'}';$='`'|'!';$:=')'^'}';
 $~='*'|'`';$^='+'^'_';$/='&'|'@'
 ;$,='['&'~';$=','^"|";$:=  ((
 '.'))^'~';$~=    ('@')|          (
 '(');$^=')'^'[';  $/='`'           |
 '.';$,=('(')^  "}";             (
 $)='`'|  '!';$:=')'^   '}'
 ;$~=('*')|  "`";  $^
 =  '+'^'_';$/  =((                           (
 (   "&"))))|    ((
 "@"));
 $,='['
 &"~";
 $=','
 ^'|'

;
 # ;

↑　日本人だもの。

他にもデビアンやブラジャーなどいろいろありますが、そろそろ 3m 規模なのでこのあたりで。

EOL

以上

【ウェアラブル】EPSON MOVERIO BT-200AV »

« [Misc] パルスオキシメーター

斉藤之雄 (Yukio Saito): Global Information and Communication Technology OTAKU / Sports volunteer / Social Services / Master of Technology in Innovation for Design and Engineering, AIIT / BA, Social Welfare, NFU / twitter@yukio_saitoh