Program co vypisuje sebe

[Milan Sorm]

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
# pouziti diskovych operaci a podobnych srabaren). Jedine reseni, ktere se
# mi podarilo vymyslet je nasledujici:
# 
# $s='print "\$s=\047$s\047;$s";';print "\$s=\047$s\047;$s";
# 
# Ale to se mi moc nelibi. Kdyby nekoho napadlo bud kratsi reseni (co do
# poctu znaku) nebo hezci (napriklad, aby tam nebylo to skarede \047) tak
# bych byl potesen, kdyby mi ho prozradil. Dik.

tak tohle nechapu. tohle mi teda nevypise program, protoze:

aisa$ perl
#neco
# jinde
 
$s='print "\$s=\047$s\047;$s";';print "\$s=\047$s\047;$s";
 
#neco
 
# jinde


vypsalo:
$s='print "\$s=\047$s\047;$s";';print "\$s=\047$s\047;$s";

coz rozhodne neni to, co by fungovalo stejne jako cat.

ja bych to delal tak, ze bych nacetl $0 a vypsal bych to diskovou operaci,
neb v pameti v %main:: jsou udrzeny uz jen prelozene radky, coz urcite neni
to, co chces, neb pak tam chybi komentare, volne radky, mezery apod.

ci-li tak.

milan