Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Re: (jeffa) GOLF Re: Quine??

by ChOas (Curate)
on Mar 08, 2002 at 14:51 UTC ( #150335=note: print w/ replies, xml ) Need Help??


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!,
    ChOas

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


Comment on Re: Re: (jeffa) GOLF Re: Quine??
Select or Download Code
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://150335]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (14)
As of 2015-07-28 11:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (254 votes), past polls