in reply to Quine??

If you are going to cheat, then why use open? ;) 
@ARGV = $0; print while <>;

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re: (jeffa) GOLF Re: Quine??
by gmax (Abbot) on Mar 08, 2002 at 14:48 UTC
    And since we are at it, why not golfing it as well? :)
    #        1         2
#2345678901234567890
@ARGV=$0;print for<>

    [download]
     _  _ _  _  
(_|| | |(_|><
 _|

    [download]
[reply]
[d/l]
[select]
      #        1         2
#2345678901234567890
@ARGV=$0;print<>

      [download]

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

      [download]

      GreetZ!,
        ChOas

      print "profeth still\n" if /bird|devil/;
[reply]
[d/l]
[select]

        system cat,$0 

        #23456789_1
exec cat,$0

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

        [download]

        44696420796F7520732F2F2F65206F
7220756E7061636B3F202F6D736720
6D6521203A29202D2D204A75657264

[reply]
[d/l]
        Or, same number of strokes, but TMTOWTDI:
        #        1         2
#2345678901234567890
print`cat $0`

        [download]
        "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
[reply]
[d/l]

In Section Cool Uses for Perl