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でも使えるようにするには、こういう書き方がある $_=q{print"\$_=q{$_};eval"};eval これなら何度でもpipeで繋げられる。 $ cat quine2.pl $_=q{print"\$_=q{$_};eval"};eval $ cat quine2.pl | perl $_=q{print"\$_=q{$_};eval"};eval $ cat quine2.pl | perl | perl $_=q{print