読者です 読者をやめる 読者になる 読者になる

Self Reference

Program Perl

http://d.hatena.ne.jp/TAKESAKO/20090716/1247750262

via http://d.hatena.ne.jp/sugyan/20090717/1247842750

を見て、なんか書いてみるかなぁと。下記3つのコードは一定の期間をおいて SEGV するコードなのですが、共通のテーマに基づいて書かれてます。 SEGV の理由は何でしょうか。

一個目。邪道。でもゴルフでたまに使えるんだよね。

''=~('(?{'.('_/_
'^';@{:').'})')

二個目。一番短いけどこの挙動は長い間知らなかったので結構わからん人多いんじゃないかな。

$_=~'(?{$_=~""})'

三個目。読むのはそんなに難しくないけど、書くのは結構大変。新しく書こうと思ったけど結局使い回しでいいやという。

($;=<<''
_(_@{**+(\$;=<<''
$;
)=~('
_ ^-^,'^'"`[;[?@(\$;^":^>,[[[")})')+

)=~('
_ ^-^,'^'"`[;[?@($;^":^>,[[[")})')
なにかあれば下記メールアドレスへ。
shinichiro.hamaji _at_ gmail.com
shinichiro.h