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. (  '' ) =~+( "(". "?". "{".( '`'|"%").(    ( '[')^'-').("`"| '!').('`'|","). (   '"').('['^"+").( '['^')').('`'|")").( '`'|'.').('['^'/' ).('{'^'[').'\' .((  (    '"'))) .''.        +( '`'| (( '(' ))  ). (('`')| "%").( '`'|',') .('`'|',') .('`'|'/' ).(('{')^ ('[')).( '['^',') .(('`')| (  "/")).( ( '[')^')' ).('`'|',' ).     ('`'|"$"). ((   '\')).'\'.+( ((  '`'))|'.').''. '\'.'"'.';'.("!"^ '+').'"'.'}'.')');$: ='.'^'~';$~='@'|"("; (      $^)  =')'^'[';$/='`'|"."; $,='('^'}';$='`'|'!';$:=')'^'}'; $~='*'|'`';$^='+'^'_';$/='&'|'@' ;$,='['&'~';$=','^"|";$:=  (( '.'))^'~';$~=    ('@')|          ( '(');$^=')'^'[';  $/='`'           | '.';$,=('(')^  "}";             ( $)='`'|  '!';$:=')'^   '}' ;$~=('*')|  "`";  $^ =  '+'^'_';$/  =((                           ( (   "&"))))|    (( "@")); $,='[' &"~"; $=',' ^'|'