Perl詩を味わう 2022-03-05 YAPC::Japan::Online 2022 LT タケタニヒロト @take_3

はじめに Perlは優秀なポエム記述言語 としても有名ですが、 幾つかの Perl Poem、Perl Haiku を紹介して 「侘びてるね〜寂びてるね〜」 と味わうコーナーです。 ©いらすとや 小林一茶の似顔絵イラスト

タケタニヒロト ● 福岡在住 ● Web開発、SI ● Perl, PHP, Python とか @take_3 htaketani

Perl Poemとは ● 1990年頃 (Perl ver3)で生まれた ● Perlで書かれてたポエム ○ Syntax OK ○ 実行できる

sleep, close together, sort of sin each spring & wait; 50% die # 読み人知らず (フォートローダーデール在住), 1990年エイプリルフール Perl Poemの例 眠ってください、一緒に。 毎年春になると、ある種の罪を犯して、待ちます。 50％死ぬ https://docstore.mik.ua/orelly/perl/prog3/ch27_02.htm

Perlがポエムに強い特徴 ● 省略を許容 ● 後置構文 ● 組み込みキーワード

say(join(‘abc’, @some)); ↓ say join abc, @some 省略を許容 ● 変数宣言省略 ● カッコ、末尾のセミコロン、etc 省略 ● クォートのない裸のワード → 文字列扱い 裸のワード abc は 文字列 ‘abc’ とみなされる

if (expired($job)) { die; } ↓ die if expired $job 後置構文 if, while, forなど。自然な英文に近い表現

組み込みキーワード ● https://learn.perl.org/docs/keywords.html 650個!!

You -say "yes"; I -say "no"; You -say "stop" and I -say "go" x 3, (Oh.. NO); You -say "goodbye" and I -say "hello"; # Original: `Hello, Goodbye` (The Beatles, 1967) # Code by @take_3, 2021 味わい方 唯一のお約束: syntax OK 範囲演算子 繰り返し演算子 組み込み関数 裸のワードと、あえて クォートしている箇所 https://gist.github.com/htaketani/1cee546a18c79ad6e376bd01a20c6996#file-hello-goodbye-pl

Sharon Hopkins ● 最も多作なPerl詩人 ● Usenix Winter1992技術会議で発表したPerl詩に関す る論文「Camels and Needles: Computer Poetry Meets the Perl Programming Language」 ● 代表作 listen はエコノミスト紙とガーディアン紙の両 方で掲載された。 https://docstore.mik.ua/orelly/perl/prog3/ch27_02.htm http://www.digitalcraft.org/iloveyou/images/Sh.Hopkins_Perl_Poetry.pdf

#!/usr/bin/perl APPEAL: listen (please, please); open yourself, wide; join (you, me), connect (us,together), tell me. listen by Sharon Hopkins, 1995 APPEAL（アピール）。 聴いてください（please, please）。 自分を、大きく開く。 join (あなた, 私), つなぐ（私たち、一緒に）。 教えてください。

do something if distressed; @dawn, dance; @evening, sing; read (books,$poems,stories) until peaceful; study if able; write me if-you-please; listen by Sharon Hopkins, 1995 悩んだら何かする。 夜明けには、踊りましょう。 夕方、歌う。 平和になるまで本を読む。 可能なら、勉強する。 もしよければ、私に手紙を書いてください。

sort your feelings, reset goals, seek (friends, family, anyone); do*not*die (like this) if sin abounds; keys (hidden), open (locks, doors), tell secrets; do not, I-beg-you, close them, yet. accept (yourself, changes), bind (grief, despair); listen by Sharon Hopkins, 1995 自分の気持ちを整理する、目標を 再設定する、（友人、家族、誰にでも）相談する。 死ぬな（このように） 罪が多ければ 隠された）鍵を開ける、（鍵やドアを）開ける、秘 密を打ち明ける。 まだ、閉めないでください。 自分自身を、変化を）受け入れなさい。 縛る（悲しみ、絶望）。

require truth, goodness if-you-will, each moment; select (always), length(of-days) # listen (a perl poem) # Sharon Hopkins # rev. June 19, 1995 listen by Sharon Hopkins, 1995 真実、善意が必要な瞬間がある。 選択する (常に), 長さ (日) # listen (a perl poem) # シャロン ホプキンス # 改訂版 1995年6月19日

unshift @pool,$sky,$clouds; bless {sleep my $love and study}; each %willow and carp; # Steve Trigg, 2000 by Steve Trigg, 2000 プールで一休み、空と雲 私の愛と努力よ祝福のうちに眠れ 柳と鯉の一匹一匹に # スティーブ トリッグ、2000年 https://history.perl.org/CHI/

comments: A Japanese maiden, comforts her samurai husband as he lies dying by a shady pool. The ornamental fish tangle themselves in the fronds of a weeping willow as they rise to taste the blood of the fallen warrior (which has spilled) into the limpid waters. by Steve Trigg, 2000 (作者による)コメント 日本の乙女が、日陰の池のほとり で死にゆく侍の夫を慰めている。 観賞魚(鯉)は、しだれ柳の葉に絡み つきながら、清流にこぼれた武士 の血を味わおうと(水面に)上がる。

まとめ Perlは 「文学」である

References ● 小林一茶の似顔絵イラスト ©いらすとや https://www.irasutoya.com/2015/10/blog-post_163.html ● Programming Perl, 27.2. Perl Poetry http://docstore.mik.ua/orelly/perl/prog3/ch27_02.htm ● Perl Conference 4.0 Haiku Contest Finalists http://history.perl.org/CHI/ ● Perl Poem Hello Goodbye (The Beatles) https://gist.github.com/htaketani/1cee546a18c79ad6e376bd01a20c6996#file-hello-goodbye-pl ● Perl keywords https://learn.perl.org/docs/keywords.html ● Camels and Needles: Computer Poetry Meets the Perl Programming Language http://www.digitalcraft.org/iloveyou/images/Sh.Hopkins_Perl_Poetry.pdf

ありがとう ございました