Program co vypisuje sebe

[Michal Pise]

Rekl bych, ze tady jde spise o sestrojeni hricky - ne o program, ktery neco
dela a jeste umi vypsat sam sebe, protoze vi, kde je v pameti nebo na disku,
ale o program, ktery neco tiskne a to neco se shoduje se zdrojakem toho
programu. Pouhe cviceni v syntaxi: nejde napsat jenom print "print", protoze to
by program musel vypadat print 'print "print"'. Takze jde spise o nalezeni
nejake finty.
Navrhuji
$prg = q{ print '$prg = q{'.$prg.'} and'.$prg;} and print '$prg = q{'.$prg.'} and'.$prg;

cat na konci odradkuje perl ne, ale ten konec radku v programu neni, to si tam
doplnil cat
                     Michal Pise
Dne St, 21 duben 1999, jste napsal:
>Wed, Apr 21, 1999 ve 03:02:11PM +0200 Vilem Vychodil napsal:
># On Wed, Apr 21, 1999 at 02:47:50PM +0200, Milan Sorm wrote:
># > Wed, Apr 21, 1999 ve 11:05:39AM +0200 Radek Pelanek napsal:
># > # Zkousel jsem si v perlu resit ulohu programu co vypisuje sam sebe (tj.
># > # aby "perl program", vypsalo to stejny jako "cat program", samozrejme bez
># > ...
># > 
># > coz rozhodne neni to, co by fungovalo stejne jako cat.
># 
># 	Pekny den,
># 	
># 	myslim, ze doslo k nedorozumeni, neni ucelem napsat novy `cat'
># v Perlu, nybrz program, ktery bez pouziti zdrojaku vypise `sam sebe'.
># 
># 
># 	S pozdravem,
># 							Vilem Vychodil
>
>no ale to nejde, neb se uchovava uz prekompilovany tvar, nikoliv samotny
>zdrojak (perl ma dve faze - preklad a spusteni).
>
>m.s.
--
Michal Pise, <michal.pise na st.mff.cuni.cz>