鐃夙っても自鐃淑醐申鐃准わ申鐃緒申鐃緒申鐃淑っわ申鐃塾わ申TB.


G鐃緒申鐃�del, Escher, Bach
 Douglas R. Hofstadter
[邦鐃緒申: 鐃緒申鐃緒申鐃叔ル、鐃緒申鐃獣ワ申鐃純ー鐃緒申鐃出ッワ申]
rubyco鐃淑わ申咾鐃緒申砲鐃緒申鐃緒申鐃� - 鐃緒申鐃淑醐申鐃緒申
鐃夙てわ申眠鐃緒申鐃塾で種申鐃淑醐申鐃准プワ申鐃緒申鐃緒申鐃緒申颪�まわ申鐃緒申鐃緒申

鐃淑駕申鐃塾逸申圓鐃�Perl Script鐃緒申鐃緒申鐃緒申鐃夙￥申鐃宿わ申覆鐃塾でも自鐃淑醐申鐃准プワ申鐃緒申鐃緒申鐃� = quine鐃祝なわ申泙鐃緒申鐃�

open ME, $0 and print <ME>;

鐃緒申鐃緒申鐃緒申鐃銃わ申OK.

print <ME> if open ME, $0;

鐃緒申鐃緒申飽店鐃緒申未某覆澆鐃緒申鐃緒申佑蓮鐃緒申鐃緒申鐃盾。

open 0 and print <0>;

鐃緒申鐃曙が鐃緒申鐃緒申鐃緒申鐃獣わ申鐃粛わ申Acme::Bleach鐃盾気鐃緒申鐃緒申鐃暑こ鐃夙でわ申鐃順う鐃緒申

鐃緒申鐃緒申鐃緒申鐃�Ruby鐃緒申鐃獣て緒申鐃緒申泙鐃緒申鐃�

File.open($0).readlines.each{|l| puts l};

鐃淑駕申鐃緒申Perl6鐃緒申鐃純。

my $self = open $*PROGRAM_NAME; for =$self { say }

鐃叔わ申

my $self = open $*PROGRAM_NAME; say for =$self;

鐃叔わ申

my $self = slurp $*PROGRAM_NAME; print $self;

鐃叔も、鐃緒申鐃緒申鐃�ruby鐃獣ぽわ申

$*PROGRAM_NAME.slurp.map:{ print };

鐃緒申鐃緒申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申map:{ print }鐃緒申必鐃竣なのは￥申鐃緒申鐃塾常申鐃�slurp()鐃緒申list context鐃夙わ申鐃銃駕申瓩居申鐃暑た鐃緒申如鐃緒申磴�鐃緒申

##
$*PROGRAM_NAME.slurp.say
##

鐃夙わ申鐃夙￥申

##$*PROGRAM_NAME.slurp.say##

鐃緒申表鐃緒申鐃緒申鐃緒申討鐃緒申泙鐃緒申泙鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

{ my $s = slurp $_ }($*PROGRAM_NAME).print

鐃夙わ申鐃緒申皀�鐃緒申覆里任鐃緒申鐃緒申鐃�

鐃夙わ申鐃緒申鐃叔￥申鐃銃醐申鐃緒申砲鐃緒申quine鐃緒申鐃純が鐃緒申鐃緒申鐃緒申鐃緒申Wikisource鐃祝載ってわ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑醐申鐃准件申鐃淑わ申娘鐃緒申鐃緒申表亰鐃緒申鐃緒申鐃緒申泙鐃淑わ申鐃獣わ申鐃塾で￥申鐃淑常申鐃緒申鐃緒申鐃宿居申鐃緒申鐃銃わ申鐃緒申鐃殉わ申鐃緒申鐃緒申

鐃緒申鐃緒申房鐃緒申文鐃緒申擇鐃淑めた鐃緒申鐃粛は￥申鐃緒申任鐃�GEB鐃緒申鐃緒申G鐃緒申鐃�del, Escher, Bach鐃緒申鐃緒申鐃緒申鐃緒申任鐃緒申鐃緒申鐃熟英醐申鐃叔わ申鐃緒申鐃緒申鐃獣てまわ申鐃藷が￥申鐃緒申鐃旬醐申鐃叔わ申鐃緒申鐃緒申鐃塾駈申鐃緒申鐃叔わ申鐃順う鐃緒申鐃淑にわ申鐃緒申Audrey鐃殉わ申鐃緒申鐃緒申 鐃緒申鐃緒申鐃塾わ申鐃夙わ申鐃塾ってわ申鐃緒申鐃初い鐃叔わ申鐃緒申鐃緒申鐃緒申鐃�Finnegan's Wake鐃緒申鐃緒申鐃緒申鐃緒申鐃処う鐃夙わ申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃暑そ鐃緒申鐃叔￥申

鐃緒申鐃淑醐申鐃准わ申無鐃渋リス鐃夙になわ申弔弔鐃緒申鐃塾でわ申鐃緒申鐃春で￥申

DAN = DAN Ain't his Name

鐃宿居申:p6l鐃叔上記鐃塾わ申鐃夙をグワ申鐃獣わ申鐃初、Damian鐃緒申鐃緒申

(~slurp $*PROGRAM_NAME).print;
鐃緒申 
$*PROGRAM_NAME.sep=>undef).print;

鐃緒申匆陲気鐃殉わ申鐃緒申鐃緒申autoboxing鐃祝わ申鐃緒申鐃緒申鐃淑わ申鐃緒申鐃�

print ~slurp $*PROGRAM_NAME;

鐃叔もい鐃緒申鐃緒申鐃緒申鐃粛￥申鐃緒申鐃曙が鐃緒申鐃緒申短鐃緒申鐃緒申鐃淑￥申