Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

More junk from lindex

by lindex (Friar)
on Jul 27, 2000 at 03:56 UTC ( [id://24603]=poem: print w/replies, xml ) Need Help??

#!/usr/bin/perl #### # Note from author: # I dont know what my current facinaction with hiding my perl # poems in code, but I think maybe this is going too far :) ### use IO::ScalarArray; use MIME::Decoder; @pain = ('R0lGODdhxQGvAIAAAAAAAP///ywAAAAAxQGvAAAC/oSPqcvtD6OctNqLs968', '+w+G4kiW5omm6sq27gvH8kzX9o3n+s73/g8MCofEovGITCqXzKbzCY1Kp9Sq', '9YrNarfcrvcLDovH5LL5jE6r1+y2+w2Py+f0uv2OZwX2/BK/n5fzNwjIRdhw', 'WJc4shhoQ9ioFYkwCVfpcekIAznolZnZBrohqplCuvXZqajKyFq66TqW+md3', 'imH7SoKLNVtoyekXm6snHLYrxxkQTDv8cmz1/Au57Nu8Ek2F7ZZMnVxs4C3c', 'u3ewyM0QztyarozO3r6ejvg+/04OHg5hDuxuD39zLh69fvISjIO3bxrBfLoG', 'LrDXzVu9gg/9IWToIOFB/ooA+QlkNxFjuW8ANN4r6VEBxIYgF0pkydGgQ5UW', 'R77MyCogTX8dL6oTcdBmNUo5SZr8+UBbhqAuUTxjihIpUalCT4aUevRqz6r/', 'QkD9arSowghKb4Wlig8tiKdnC0HdORSuOLFx09Z1drIsTrVZm9q1KlOdzqQk', 'I2r1a4ItX7qAp94lNTiq27aNY0xWywHsYsGUfd49TGzz48KYSFcUnbcz6NWB', 'L4/G3MJ15dKoPc+WnLo2Vwt6eatGbLiC5tfEb+9G/HaG7K5rf+Nmfvw5aMWf', 'Yd5O/tG37r/QubM+Xdx2d+nKG/cG3jp3+OhyxS8V6dV5e6em5yOXn348+/z7', '/h0bVzHUeeBdx9h4fQ3onlk3AYWff/rRVh2C0zXYn30SeoceXswJaKGFwxHI', 'GWx7RfYBdhXGJ2KH/GF4YYvfRWdibDWhuB6LHjrHoY0QglhjYvWt2GKM5I3I', 'o3pFPmjKjM1tN+SNTObY5I4GUkjjfy4CKSRkOFIZ2kpL9vjhlCFGqB2ZwnEJ', 'pYpkbcmkmm6yKCQNaero4IlDThIQlHqi+aMG1B1pZ5x0wsilnH2WCeigcM41', '1p4pntkmkMFREOaLitZ5X6Q4zBklpp0SipVHjppJKZ+P+nnopQe++amkWBYK', 'y4JSfudle8vZeRWJVcp6pY8tIajrcxRZtGGDxOoQ/lMH2NWa362X5pqSdbyy', 'yuCvtkbr4LBKBsooszUkm5mxMzVrZIKlWittsLjuGqy3XGnLk6uevgufNfbq', 'Y+W9vpKqrzX89vtlvgD7K/DAASNpcMIKT7pwww4z/HDEEo+S6sQWG+zuxRpP', 'nPHGHjfc8ccij0xyySafjHLKKq/McssuvwxzzDLPTHPNNt+Mc84678xzzz7/', 'TIa6b4A7qwRCAy3E0aHUW2KfSiP9w9NrEK2s09hCjQSnVWidIb6nYu0D11OI', 'TW3XYBdBdhRpz2t0xWcL4rYsccuw9tvZrfL1I3PbbWjeZdRdNM/HuhTZUREC', 'jiq6B7erJNWWAnt1xIND/j4WqFr6bdm4i0cuLEaOm0054kvHG3q35R6+t4yK', 'N706d/BKvW62nDtcaabaiA7pv3cTKWaPE1yuu8S1Bzk7YZirHvyuXvsu7/JW', '4n7H8E7ennqSxx/sfO+Jnov69bSzCWb1YhPrLN2mZVkx8AVfLP2r3j8rpZfQ', 'x46+3+ojvHH7nuo1PvnmZi6i+unufiwLk/zEVz36vK9qATTVAK02LYsZ0CH8', 'S+AJ5ge/VmnwT/jr3AIJ9iT/xS57QMCgBrmlKRK2LYIcA9/6MqjCsFkwcd1j', 'HtvWtEATnkF/MXzPBy84Qx/WcHtl6xWiOjgwHhoveTdEVhAVNETtSfGI4fph', '/imUyLsqMvEaT7wAAck1xdy90IiScyESYbjEMbrAhF+UXRi5p8bmlTGE9kOg', 'FSGmoShe642/s+MWmzG5PeJpbp/7luaqRao8FYhqjDykBLcFxkFer5B9oyTF', 'TqXIMTnSg+GBXcICGUnTndGNf7SeJWlYsEwup5EsDNkcS1kzWPKtS3HMmSxn', 'CaAuvuyWuFQgL3sJzFzeMZjE3Fcti4lMUx4zmcyUVjOfqbdhQnOa1KymNa+J', 'zWxqc5vc7KY3vwnOcIpznOQspznPic50qtNenvSiLoEoze/FE5DFY+AvlTnK', 'kelwaPXU4jLz+E/2vZOdAx0h3Oa5sH3GoX8IxeMu/gtKz4aicVMQxVhFc8HQ', 'e/oyoOu8QkY5Sst8dtQQFVVoHyVqTlCSUpT0QtJHW8dJbHlrWZoz3JHamT1W', 'HpCFlrvoCjs200U+r6SQXGnlXCdTcSnOplLEaRphOrlCMrUnQK2pUF1KVNIJ', 'MqlLVWqypkq4fooRqo1jmvsUikWwuhOlaS0QFeU1wQ4irq0pBGMRN/rGuAoR', 'pI9b1VnHKMkAmTGRPm3ioup6QqQWC6U9/GtexUpG7NluexxUk15/ylfMPhax', '9xMsY586ITqW8qWhDV8dNclHx741pKUlohwNm1h8tnazo82qaW8LWLeCzq84', '1ChoJ5ta2KLQt3CkLWX9/pjZyPK2p6Ncrqp0W9w1mrGv54OVbIG709qydbrA', 'PWJnKUhIs9rzuJytLmK5KNqy5tC25MVtc8Xb0tfV8pSrnZ5rhfvcz2YRu+Bd', '73bTa9z38lSx8hVpTA3c2P05cKjnFaZ76wvF5LLKuXdKH3Tv+tq9Ini3F35t', 'GzFszABDeK3EHW65ZrtaQUVWw4hs733pZ128onis/txwb10sYhrn94HSHBWO', 'qdvABl+XeKfVbol3fGK7TrQ/gc1tj7uoP8YF2YbSBfCIr6y87io5tpZlqY4l', 'C2b7LlbFKpaxlqN7ySNvsMMeNOgNmyzge/o4x258nIltXGOd1ot6A0ZlcFVp', 'tB6raiqoRYZvmjcJaPF8NcbwrGpXJ2loP9NKVKIsnFf3bGGY5lm8iY4vV6mM', 'PEQLmon0/XKXG1XpT9+X0DwudXH1jFpPH3XN+rXzSJNgUo8W9tboVfMOd83r', 'IScR2MFutITZkOtiS/qTxFa2M5lda2c79F7JljaWCRpta7cYz9rutre/De5w', 'i3vc5C63uc+N7nSre93sbre73w3veMt73vSut73vje9863vf/O63v/8N8GoW', 'AAA7'); tie(*IN,'IO::ScalarArray',\@pain); $decoder = new MIME::Decoder 'base64' || die "base64 unsupported"; open(OUT,">pain.gif") || die "$!: pain.gif"; $decoder->decode(\*IN,\*OUT); close(OUT); print <<END; Aright you should have a pain.gif in your current dir That will contain my haiku :) END

Replies are listed 'Best First'.
RE: More junk from lindex (++, -wT, use strict)
by ybiC (Prior) on Jul 27, 2000 at 06:00 UTC
    1. cool in my book   :^D
    2. runs -wT unmodified
    3. insignificant tweaks to support use strict;
    4. sure glad I got cpan.pm working at home, so I could easily install MIME::Decoder and IO::ScalarArray.
        cheers,
        ybiC

    Update : If you liked this, "hex-packin' BBQ" started a great thread here a month or so ago.

    A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://24603]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2024-04-16 07:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found