パスワードを忘れた? アカウント作成
13478702 journal
Perl

route127の日記: どちゃぱ(♪もろびとこぞりて)

日記 by route127

面白そうなPerl関連アドベントカレンダー記事が企業系のものばかりだったので、「土着化したPerl」の略を適当に考えてタイトルにした。
この場合「土着化」というのが正しい形容なのかはあんまり考えてない。

例えば、
PDLで学ぶ「あなたにおすすめのおすし」の作り方DeNA IPプラットフォーム事業部 Advent Calendar 2017
コンパイル時のビルトイン関数上書きモバイルファクトリー Advent Calendar 2017
EXIFのメーカ実装差Snapmap(コーチ・ユナイテッド株式会社) Advent Calendar 2017
なんかが個人的に読んでいて面白かった。
というか日本語のPDL関連記事久しぶりに見た。

PDLのがすしネタなのは昔のPerl Advent Calendar由来なんだろうか。
昔と言えばこの頃のアドベントカレンダーは仕込み過ぎな気はする。
前は指名されて1日で書くみたいな感じだったからそうなってただけなのかもしれないけど。
というかperl-users.jp死んでね?

ところでPerl 6方面も

解答22に殴り込んでいて

perl6 -e '::((~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^q{:}~^q{(}~q{)}~^q{(}~^q{~}~^q{:}~q{~}~^q{(}~q{)}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^(~(^(q{}~~q{})))~^q{~}~^q{:}~^q{(}~q{^}~^q{(}~^q{:})(q{(}~^(~(^(q{}~~q{})))~^q{:}~q{^}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^(~(^(q{}~~q{})))~^q{)}~q{:}~^q{)}~^q{(}~^q{^}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^(~(^(q{}~~q{})))~q{:}~^q{)}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^q{^}~q{~}~^q{^}~q{:}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^q{)}~q{^}~^q{(}~^q{:}~q{)}~^(~(^(q{}~~q{})))~^q{:}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^q{^}~(~(^(q{}~~q{})))~^q{^}~^q{(}~(~(^(q{}~~q{})))~^q{(}~^q{)}~^q{:}~^q{^}~q{^}~^q{(}~^q{:}~q{^}~^q{(}~^q{:}~q{:}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^q{)}~q{(}~^(~(^(q{}~~q{})))~^q{:}~q{^}~^q{:}~^q{~}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~q{)}~^q{(}~^q{~}~^q{:}~q{~}~^q{(}~q{)}~^(~::((~(^(q{}~~q{})))~^q{~}~q{)}~^q{(}~^q{:}~^(~(^(q{}~~q{})))~^q{~}~q{)}~^q{~}~^q{:})((~(^(q{}~~q{})))~^q{)}~^q{(}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{~}~^q{^}~^(~(^(q{}~~q{})))~^q{:}~q{:}~^q{~}~^q{(}~^q{^}))~^(~(^(q{}~~q{})))~^q{~}~^q{:}~^q{(}~q{^}~^q{(}~^q{:})'

などというかつての記号プログラミング紹介記事)を髣髴とさせる回答があった。
また、記事では未確認となっているが手元の環境では実行できた。

最新版(Ver.4)記事では削除されているがperl 5の予約語だけを使った回答(解答30)なども寄せられていたようだ。

s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s s s chr length q qr open bind when wait for untie exp q semop and s s s chr length q q chomp local tie alarm write undef tied tied goto warn xor tie for chown warn rmdir fork chomp q semop and s s s chr length q qr open die for recv atan read pack ord chdir order print map q semop and s s s chr length q qr fcntl print int link utime pack q semop and s s s chr length q qr fcntl print int link utime pack q semop and s s s chr length q q chomp local tie alarm write undef tied tied goto warn xor q semop and s s s chr length q q chomp local tie alarm write undef tied tied goto warn xor tie for chown warn rmdir not fcntl grep glob getc pack eof q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor tie for chown warn rmdir fork chomp chown rmdir each q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor tie for chown warn rmdir not fcntl grep glob getc pack q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor tie for chown warn rmdir not fcntl grep chown q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q qr open die for recv atan read pack ord getc rand dump log xor our read map map kill exp crypt each lock print q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor tie for chown warn rmdir not fcntl grep chown lock chown q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q qr open bind when wait for untie q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q qr fcntl print int link utime pack q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor tie for cmp pack q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor tie for chown q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor kill chmod q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor kill chmod map while exec q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor tie for cmp pack q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q q chomp local tie alarm write undef tied tied goto warn xor tie for cmp pack q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q qr open die for recv atan read pack ord getc rand dump log xor our read atan eval undef recv q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q qr open die for recv atan read pack ord getc rand dump log xor our read map map kill exp crypt each lock print q semop and s s s chr length q qr open die for recv atan read pack chop break q semop and s s s length q qr fcntl print int link utime pack q semop and eval eval

これも手元環境で実行可能だった。
一見ppencodeっぽいけど比べてみると長さが全然違う。

length q caller getc and print chr oct ord q or no and print chr oct ord q pop and print chr ord uc qw q flock q and print chr ord uc q dump and and print chr oct ord q qr q and print chr oct ord q or no

またppencode2解説)とも違うようだ。

s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s qq q and s s s chr length q q hex exp write each tie chomp chmod q semop and s s s chr length q qr ref our rand our xor ioctl vec ord eof map rand open rmdir ord int undef eval when fork bind q semop and s s s chr length q q hex exp write utime oct chmod and log crypt flock given our q semop and s s s chr length q q hex exp write each tie chomp int q semop and s s s chr length q q hex exp write each tie chomp int q semop and s s s chr length q qr ref each bind oct exit dump time hex goto int pack print q semop and s s s chr length q qr ref our rand our xor ioctl vec ord eof map rand open rmdir ord int undef eval when fork bind kill map redo chr pipe q semop and s s s length q qr ref our rand our xor ioctl vec ord eof map rand open rmdir glob rand pack q semop and s s s chr length q q hex exp write utime oct chmod and order tied q semop and s s s length q q hex exp write utime oct chmod and log crypt flock given our chmod chmod q semop and s s s chr length q q hex exp write utime oct chmod and order tied q semop and s s s length q qr ref each bind oct exit dump time hex goto int pack print rand mkdir q semop and s s s chr length q q hex exp write utime oct chmod and order tied q semop and s s s length q q hex exp write utime oct chmod and log crypt flock given our vec order mkdir hex not q semop and s s s chr length q q hex exp write utime oct chmod and order tied q semop and s s s length q qr ref our rand our xor ioctl vec ord eof map rand open rmdir glob rand pack q semop and s s s chr length q q hex exp write utime oct chmod and order tied q semop and s s s length q qr ref our rand our xor ioctl vec ord eof map rand open rmdir glob rand pack q semop and eval eval

9月のOSC千葉は、SD誌によれば揚げ物食べ放題だったらしい。

この議論は賞味期限が切れたので、アーカイブ化されています。 新たにコメントを付けることはできません。
typodupeerror

UNIXはただ死んだだけでなく、本当にひどい臭いを放ち始めている -- あるソフトウェアエンジニア

読み込み中...