Acme-EyeDrops

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	  only needed to change:
	   $src =~ tr#\\[]{}<>^_|~'`#/()()()H-!T""#;
	  to:
	   $src =~ tr#_\\[]{}<>^|~'`#-/()()()H!T""#;
	  due to 'invalid range' H-! error
	- minor change to shapes: damian, camel
	- new shape: kermit (thanks Jason)
	- new shape: pgolf (thanks `/anick)
	- fixed bug where EyeDrops sometimes generated an
	  invalid program or more shapes than it needed to
	- new test: limit2.t to verify above bug fixed
	- new test: sightly2.t
	- made sure test programs clean up all .tmp files
	- added -Mstrict to all test programs to ensure
	  they work with -w and 'use strict' too
	- localised file globals appropriately in all test programs
	- tested under Win98 and adjusted nasty.t accordingly

1.08	Sun Apr 21 16:13:18 2002

	- documentation: added sub-sections to Examples section

Changes  view on Meta::CPAN

	- minor change to shape: acme
	- documentation: minor changes
	- documentation: added 'Naked Arm Wrestling' section

1.17	Sun Dec 8 12:21:04 2002

	- new shape from cam.pm: snow
	- new program to generate table: demo/gentable.pl
	- fixed bug where EyeDrops sometimes generated an
	  invalid program
	- extended limit2.t (test 9) to verify above bug fixed
	- minor code improvements

1.18	Sun Dec 22 13:25:12 2002

	- new shape from Takanori KAWAI: kansai_pm
	- new shape from Takanori KAWAI: writing_perl
	- new shape derived from Yanni's Ascii Art collection: candle
	- new shape derived from Yanni's Ascii Art collection: china1
	- new shape derived from Yanni's Ascii Art collection: panda
	- new shape derived from Yanni's Ascii Art collection: santa2

lib/Acme/EyeDrops.pm  view on Meta::CPAN

    # cvt.pl. Convert helloworld.pl into a camel shape.
    use Acme::EyeDrops qw(sightly);
    print sightly( { Shape       => 'camel',
                     SourceFile  => 'helloworld.pl',
                     Regex       => 1 } );

Then run it like this:

    perl cvt.pl >new.pl

After inspecting the newly created program, F<new.pl>, to verify that
it does indeed resemble a camel, run it:

   perl new.pl

to confirm it behaves identically to the original F<helloworld.pl>.

Instead of using the API, as shown above, you may find it more
convenient to use the F<sightly.pl> command in the F<demo> directory:

    sightly.pl -h           (for help)

lib/Acme/EyeDrops.pm  view on Meta::CPAN

This is prettier than I<uuencode/uudecode>.
To encode:

    sightly.pl -g3 -bps camel,mongers -f some_binary_file >eyesore

To decode:

    perl eyesore >f.tmp

To verify it worked:

    cmp f.tmp some_binary_file

=head2 Victoria Bra, Secret Tango

                     ''=~('(?{'.('['^'+').
                  ('['^')').('`'|')').('`'|'.'
                ).('['^'/').'"'.('`'^'!').("\`"|
              '.').('{'^'[').('`'|'/').('['^')').(
            '`'|'!').('`'|'.').('`'|"'").('`'|'%').