Acme-Buckaroo
view release on metacpan or search on metacpan
Buckaroo.pm view on Meta::CPAN
our@ISA=qw(Exporter);our%EXPORT_TAGS= ('all'=> [ ] );our@EXPORT_OK= ( @{$EXPORT_TAGS{'all'} } );our@EXPORT= ();our$VERSION='1.02';################################################################################ IF YOU WANT TO TURN ON DEBUG MODE# (and thus see lots of logging lines that explain how things are happening# as they happen), set debug_mode = 1.# If you do, you'll need either:# (1) Perl 5.6 (to get Data::Dumper by default), or# (2) to have Data::Dumper already installed.# Data::Dumper is a very, very handy module, but it wasn't in the default Perl# installation until (I think) Perl 5.6. Perl 5.005 usually don't have it.# Look on CPAN.ORG for Data::Dumper if you don't have it.###############################################################################my$debug_mode= 0;("starting script...\n")if$debug_mode;if($debug_mode){}else{# sub Dumper { return(""); }}my$header="Buckaroo Banzai Across The Eigth Dimension "x 2 ."\n";################################################################################ this translation array is just for fun, but also for debugging so you can see# how characters are encoded as they are encoded.## If you try a new encoding method, use this one and you'll be able to see if# characters are encoded and decoded correctly.my@xlate_array1= (qw(000q 001q 002q 003q 004q 005q 006q 007q 008q 009q010q 011q 012q 013q 014q 015q 016q 017q 018q 019q020q 021q 022q 023q 024q 025q 026q 027q 028q 029q030q 031q 032q 033q 034q 035q 036q 037q 038q 039q
Buckaroo.pm view on Meta::CPAN
###############################################################################subtranslate{# receives the string of the entire perl script after 'use Acme::Buckaroo'.my$in_string=shift;my$out="";$out= Dumper($in_string);("Instring=>>$out<<\n")if$debug_mode;my@in_array=split(//,$in_string);$out= Dumper(@in_array);("in_array=>>$out<<\n")if$debug_mode;my$i= 0;my@temparray= ();foreachmy$thischar(@in_array){# translate each character into it's ascii value.my$num=unpack("c",$thischar);# change that ascii value into a string from the array...my$newchar=$xlate_array[$num];("char=>>$thischar<<, num=>>$num<<, newchar=>>$newchar<<\n")if$debug_mode;("char=>>%s<<, num=>>%s<<, newchar=>>%s<<\n",$thischar,$num,$newchar)if$debug_mode;push(@temparray,"$newchar");$i++;if($i> 3){push(@temparray,"\n");$i= 0;}}my$out_string=$header.join("\t",@temparray) ."\n";("out_string=>>$out_string<<\n")if$debug_mode;return$out_string;}################################################################################# Normalize is called to convert the text to perl again from the encoded version.#subnormalize{my$in_string=shift;;$in_string=~ s/^$header//g;("normalize, got in_string>>$in_string<<\n")if$debug_mode;my%revhash= ();my$counter= 0;foreachmy$this_elem(@xlate_array){$revhash{$this_elem} =$counter++;}$in_string=~ s/\t\n/\t/g;$in_string=~ s/\t+/\t/g;my@in_array=split(/[\t]/,$in_string);my$in_array_dump= Dumper(@in_array);("in_array_dump=>>$in_array_dump<<\n")if$debug_mode;my@translate_array= ();my$this_elem="";$counter= 1;foreach$this_elem(@in_array){if(!($this_elem)) {("Found undefined elem, counter=$counter.\n");$counter++;next; }my$ascii_num=$xlate_2_hash{$this_elem} || 0;my$to_char=pack("c",$ascii_num);printf("Normalized >>%s<<, ascii_num=>>%s<<, char=>>%s<<, counter=>>%s<<\n",$this_elem,$ascii_num,$to_char,$counter)if$debug_mode;push(@translate_array,$to_char);$counter++;}my$outtext=join('',@translate_array);("Converted back to text=>>$outtext<<\n")if$debug_mode;return("$outtext");}###############################################################################subhas_wordchars{my$in_string=shift;my$retval= 0;("In has_wordchars\n")if$debug_mode;if($in_string=~ /\s/){return$in_string;}else{return0;}}###############################################################################substarts_with_header{my$in_string=shift;my$retval= 0;("In starts_with_header\n")if$debug_mode;if($in_string=~ /^$header/){return$in_string;}else{return0;}}###############################################################################subimport{my$first=shift;# name of module, in this case "Buckaroo.pm"my$source_filename= $0;# name of file called from (if test.pl does a 'use Acme::Buckaroo;' then this will be "test.pl")("Starting \"Buckaroo\" process...\n")if$debug_mode;# set up some hashes to go to/from encoding scheme.my$i= 0;foreachmy$this_elem(@xlate_array){$xlate_2_hash{$this_elem} =$i;$xlate_from_hash{$i} =$this_elem;$i++;}if(!(open(FILE_HANDLE,"<$source_filename"))){("Can't Buckaroo again on '$0'\n");exit;}else{#comment this out if you don't care.("Past open... ")if$debug_mode;}#read entire file in as a string.my@file_array= <FILE_HANDLE>;my$file_array_dump= Dumper(@file_array);("file_array_dump=>>$file_array_dump<<")if$debug_mode;my$file_string=join("",@file_array);# elim anything before the 'use Acme::Buckaroo; line.$file_string=~ s/use\s*Acme::Buckaroo\s*;\s*\n//;("Filestring=>>$file_string<<\n")if$debug_mode;# no clue why we do this. Anyone know?#local $SIG{__WARN__} = \&has_wordchars;if( (has_wordchars($file_string) ) &&(!(starts_with_header($file_string))) ){if(!(open(FILE_HANDLE,">$0"))){("Cannot Buckaroo '$0'\n");exit;}("past open2...")if$debug_mode;(FILE_HANDLE"use Acme::Buckaroo;\n");my$result= translate($file_string);(FILE_HANDLE$result);("Done \"Buckaroo-ing!\n");}else{("normalizing...\n")if$debug_mode;my$out_string= normalize($file_string);("out_string=>>$out_string<<\n")if$debug_mode;my$outval=eval($out_string);("Outval returned: $outval\n")if$debug_mode;if($@){("Perl Error returned: $@\n");}("No eval error returned.\n")if$debug_mode;}("Finishing...\n")if$debug_mode;exit;}###############################################################################1;###############################################################################
Buckaroo.pm view on Meta::CPAN
afterthe'use Acme::Buckaroo;'is converted (character by character)into characters from the movie "Buckaroo Banzai Across the EigthDimension" (and some other phrases, too).The program will work (or not!) exactly as it didbeforeit wasconverted, but the code will be a somewhat endearing tribute to amovie, instead of a clean, complete, clearly commented set of linesof Perl code.ifyou want to convert your program BACK into Perl, you must edit theAcme::Buckaroo.pm module and turn on debugging (change theline,"my $debug_mode = 0;"to the line,"my $debug_mode = 1;"and thenrun the script again. As it executes, it will translate the programback. Capture the output of this and you have your program back.Acme::Buckaroo came about because the modules Acme::Buffy, Acme::Morse,Acme::Pony, and Acme::Bleach were somewhat cryptically written. Thisauthor believes that CODE SHOULD BE SIMPLE and CLEAR toreadandunderstand. Code that isn't clear is far less value. And, since thesemodules areforlearning or FUN anyway, I might as well start here.
afterthe'use Acme::Buckaroo;'is converted (character by character)into characters from the movie "Buckaroo Banzai Across the EigthDimension" (and some other phrases, too).The program will work (or not!) exactly as it didbeforeit wasconverted, but the code will be a somewhat endearing tribute to amovie, instead of a clean, complete, clearly commented set of linesof Perl code.ifyou want to convert your program BACK into Perl, you must edit theAcme::Buckaroo.pm module and turn on debugging (change theline,"my $debugmode = 0;"to the line,"my $debugmode = 1;"and thenrun the script again. As it executes, it will translate the programback. Capture the output of this and you have your program back.Acme::Buckaroo came about because the modules Acme::Buffy, Acme::Morse,Acme::Pony, and Acme::Bleach were somewhat cryptically written. Thisauthor believes that CODE SHOULD BE SIMPLE and CLEAR toreadandunderstand. Code that isn't clear is far less value. And, since thesemodules areforlearning or FUN anyway, I might as well start here.
perl Makefile.PLmakemake testmake installDEPENDENCIESThis module requires NO other modules or libraries.If you go into the source of Buckaroo.pm and look, you'll seethere is a debug mode. If you turn this on, you'll be able towatch it as it works. However, debug mode requires the moduleData::Dumper, a fantastically useful module that you shouldhave bydefaultin Perl installations > 5.6.DEDICATIONI'd like to dedicate this module to Mr. Damian Conway, whohasbetteredPerl and the lives of those in the Perl-using community by vast amounts,and continues todogood work. Someday I'd like to buy him a beer.
"Hello world\\n";usestrict;BEGIN {unshift\@INC, `pwd` }useBuckaroo;# This test script should change so it contains only Buckaroo Banzai words.# WARNING!! WARNING!! WARNING!! WARNING!!# WARNING!! WARNING!! WARNING!! WARNING!!# If you use this module, your source file will be converted into seeming junk# Though it will still run normally.# To fix it, go into the module Buckaroo.pm and set $debugmode = 1; and pipe the# output to a new file. Remove the use Buckaroo.pm,# and you're back the way you were.# WARNING!! WARNING!! WARNING!! WARNING!!# WARNING!! WARNING!! WARNING!! WARNING!!# abcdefghijklmnopqrstuvwxyz# ABCDEFGHIJKLMNOPQRSTUVWXYZ# 01234567890# `~1!2@3#$4%%6^7&8*9(0)-_=+\\|]]{{]};:"",<.>/?
"Hello world\\n";usestrict;BEGIN {unshift\@INC, `pwd` }useBuckaroo;# This test script should change so it contains only Buckaroo Banzai words.# WARNING!! WARNING!! WARNING!! WARNING!!# WARNING!! WARNING!! WARNING!! WARNING!!# If you use this module, your source file will be converted into seeming junk# Though it will still run normally.# To fix it, go into the module Buckaroo.pm and set $debugmode = 1; and pipe the# output to a new file. Remove the use Buckaroo.pm,# and you're back the way you were.# WARNING!! WARNING!! WARNING!! WARNING!!# WARNING!! WARNING!! WARNING!! WARNING!!# abcdefghijklmnopqrstuvwxyz# ABCDEFGHIJKLMNOPQRSTUVWXYZ# 01234567890# `~1!2@3#$4%%6^7&8*9(0)-_=+\\|]]{{]};:"",<.>/?
( run in 0.257 second using v1.01-cache-2.11-cpan-9b1e4054eb1 )