http://www.perlmonks.org?node_id=150335


in reply to Re: (jeffa) GOLF Re: Quine??
in thread Quine??

# 1 2 #2345678901234567890 @ARGV=$0;print<>

Or... for unix:
# 1 2 #2345678901234567890 system cat,$0

GreetZ!,

print "profeth still\n" if /bird|devil/;

Replies are listed 'Best First'.
Re: Re: Re: (jeffa) GOLF Re: Quine??
by Juerd (Abbot) on Mar 08, 2002 at 22:03 UTC

    system cat,$0

    #23456789_1 exec cat,$0 #23456789_12 # newline is required ;) die`cat $0`

    44696420796F7520732F2F2F65206F
    7220756E7061636B3F202F6D736720
    6D6521203A29202D2D204A75657264
    

Re: Re: Re: (jeffa) GOLF Re: Quine??
by myocom (Deacon) on Mar 08, 2002 at 21:52 UTC
    Or, same number of strokes, but TMTOWTDI:
    # 1 2 #2345678901234567890 print`cat $0`
    "One word of warning: if you meet a bunch of Perl programmers on the bus or something, don't look them in the eye. They've been known to try to convert the young into Perl monks." - Frank Willison