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(28,5,45,5,53,58,86,30,1, ( ( 43)),58,86,30,1,53,58,31,2,43,58,31,2 , 55,5,45,5){$~=(0,"48;5;9","48;5;1","48;5" .";15")[$_/28];substr($b,517+$i+($_%28),0 ,() ."\e[$~m");$i+=length($~)+3+($_%28) };( $n=