Perl最短 一番簡単なquineはコレ？ open 0;print<0> ただ、これは標準入力からだとダメなのでpipeで繋げる使い方はできない。 $ cat quine.pl open 0;print<0> $ perl quine.pl open 0;print<0> $ perl quine.pl | perl $ print+eval pipeでも使えるようにす…

Quine ruBy - まめめも 僕みたいなruby素人には何やっているのかよくわからない ＞＜ のでperl版を作ってみた。 eval (($q ||=q{1; $b=qq{$ q\x7d))}. join(chr( 2 +30)x11,( ";","BEGIN" .'{$^H|=' . ( "0x800000"),q"}eval$b"));$b=~s/\e\[.* ? m //xg;for…