in reply to How I Learned About Quines

I've started to write uuencoded one, but then I've realized it could be simple:

print unpack'a*@0HX'x2,q 7print unpack'a*@0HX'x2,q 7

Just to save it, here is uuencoded:

print unpack'u@0HXa*@0H',q 3;<')I;G0@=6YP86-K)W5`,$A882I`,$@G+'$@3

Replies are listed 'Best First'.
Re: One more quine
by locked_user mtve (Deacon) on Apr 20, 2010 at 13:51 UTC

    Alphabetic quine

    s sslcsene s sa zs sgxlt print lc for uc sazsslcseneazsazsaazzsazsgxltazprintazlcazforazucaz

    update: fixed for perl 5.8 thanks to choroba

    s ssab x ab ttucte x ab ttab ababt x ab ta btabtgx x print lcs x s ttucte x s tts sst x s ta btstgx x print lc

    Pack ascii quine

    +print pack'h*a*',$x,$x=b2072796e64702071636b67286a216a272c24287c24287d3

    And another printf quine

    printf'%s(%1$s)',q(printf'%s(%1$s)',q)
      perl -e 's sslcsene s sa zs sgxlt print lc for uc sazsslcseneazsazsaazzsazsgxltazprintazlcazforazucaz'

      gives:

      s sslcsene s sa zs sgxlt print lc for uc s sslcsene s sa zs sgxlt print lc for uc

      Which is not the same :(

[reply]
[d/l]
[select]
        Which is not the same :(

        Works for me on 5.10. Nice job mtve!

        --
         David Serrano
         (Please treat my english text just like Perl code, i.e. feel free to notify me of any syntax, grammar, style and/or spelling errors. Thank you!).

[reply]

        indeed it wont work on 5.8, it's a bug in perl. compare

        print lc, uc for uc abc

        with

        print lc, uc for uc 'abc'

        for now i don't know how to fix it.

In Section Meditations