view release on metacpan or  search on metacpan

Buckaroo.pm  view on Meta::CPAN

    120q 121q 122q 123q 124q 125q 126q 127q 128q 129q
    130q 131q 132q 133q 134q 135q 136q 137q 138q 139q
    140q 141q 142q 143q 144q 145q 146q 147q 148q 149q
    150q 151q 152q 153q 154q 155q 156q 157q 158q 159q
    160q 161q 162q 163q 164q 165q 166q 167q 168q 169q
    170q 171q 172q 173q 174q 175q 176q 177q 178q 179q
    180q 181q 182q 183q 184q 185q 186q 187q 188q 189q
    190q 191q 192q 193q 194q 195q 196q 197q 198q 199q
    200q 201q 202q 203q 204q 205q 206q 207q 208q 209q
    210q 211q 212q 213q 214q 215q 216q 217q 218q 219q
    220q 221q 222q 223q 224q 225q 226q 227q 228q 229q
    230q 231q 232q 233q 234q 235q 236q 237q 238q 239q
    240q 241q 242q 243q 244q 245q 246q 247q 248q 249q
    250q 251q 252q 253q 254q ));

my @xlate_array = (
"Aggie Guerard Rodgers", "Alan Howarth", "Alan Oliney", "Alexandra Leviloff", "Anne Thompson", "Anthony Milch",
"Arne Schulze", "Artie Duncan", "Arties Artery", "Baby Bang", "Bari Dreiband-Burman", "Beverly Bernacki",
"Bill Cobb", "Bill Henderson", "Billy Travers", "Billy Vera", "Black Lectroid", "Blue Blazer Irregulars",
"Bodifications", "Bones Howe", "Brian Ralph", "Bruce McBroom", "Bryan Denegal", "Dan Hedaya", "Dan Lupovitz",
"Dan Roth", "David Blitstein", "David E. Campbell", "David Gross", "David P. Newell", "David R. Hardberger",
"David Schwartz", "Buckaroo Banzai", "Defense Sec. McKinley", "Penny Priddy", "Dry LA aqueduct",
"Eighth dimension", "Ellen Barkin", "Future Begins Tomorrow", "Girl Named John", "Hanoi Xan",
"Hong Kong Cavaliers", "Hydraulic Watermelon", "Jeff Goldblum", "John Balook", "John Bigboote",
"John Lithgow", "John Smallberries", "John Ya Ya", "Lectoid", "Monkey Boy", "Neurosurgeon",
"NoNoNo Dont Tugonthat", "Nomatterwhereyougo thereyouare", "Nuclear Physicst", "Oscillation Overthruster",
"Perfect Tommy", "Peter Weller", "Pinky Carruthers", "Planet 10", "President Widmark", "Prof Toichi Hikita",
"Rawhide", "Red Lectroids", "Reno Nevada", "Sandra Banzai", "Scooter Lindley", "Sidney Zwibel", "Smolensk USSR",
"Thermopod", "Truncheon Bomber", "W.D. Richter", "Yakov Smirnoff", "Yoyodyne Propulsion Systems", "Carl Lumbly",
"Cash for lithium", "Casper Lindley", "Cheryl Bloch", "Chris Casady", "Chris Collins", "Christopher Keith",
"Christopher Lloyd", "Chuck Cooper", "Clancy Brown", "Colette Emanuel", "Comic Book Hero", "Crying of Lot 49",
"Damon Hines", "Dena Fischer", "Dennis E. Jones", "Dennis Schultz", "Duck Hunter Bubba", "Duck Hunter Burt",
"Earl Mac Rauch", "Doctor Emilio Lizardo", "Tom Cranham", "Ron Gress", "New Jersey", "Sam Minsky",
"Doreen A. Dixon", "Eddie Marks", "Edward Morey", "Eric Guaglione", "Erik L. Nelson", "Francine Lembi",
"Frank James Sparks", "Fred Iguchi", "Fred J. Koenekamp", "Gary Bisig", "Gary Daigler", "Gary Hellerstein",
"Gary Hymes", "General Catburd", "George Bowers", "George Stokes", "Gerald Peterson", "Glenn Campbell",
"Gordon Ecker Jr.", "Greenlite", "Greg Mires", "Gregg C. Rudloff", "Gregory Jein", "Grovers Mills", "H. Bud Otto",
"Henry Millar", "Hoyt Yeatman", "J. Michael Riva", "Jacqueline Zietlow", "James Belohovek", "James Hagedorn",
"James Keane", "James M. McCann", "James Rosin", "James Saito", "Jamie Lee Curtis", "Jane Marla Robbins",
"Jane Schwartz Jaffe", "Jerry Lewis hope2carrion", "Jerry Segal", "Jessie Lawrence Ferguson", "Joan Rowe",
"John Bracken", "John David Ashton", "John Emdall", "John Gant", "John Gomez", "John Murray", "John O'Connor",
"John Parker", "John Roesch", "John Scheele", "John T. Reitz", "John T. VanVliet", "John Valuk", "John Vigran",
"John Walter Davis", "Jonathan Banks", "Judi Rosner", "Judith Herman", "Justin De Rosa", "Kathryn Newbrough Sommer",
"Katterli Frauenfelder", "Keith Shartle", "Kenneth Karman", "Kenneth Magee", "Kent Perkins", "Kevin Rodney Sullivan",
"Kolodny Brothers", "Larry Fallick", "Laura Harrington", "Layne Bourgoyne", "Leonard Gaines", "Leslie Ekker",
"Lewis Smith", "Linda DeScenna", "Linda Fleisher", "Linda Henrikson", "Lord John Whorfin", "M. James Arnett",
"Mariclare Costello", "Mark Freund", "Mark Homer", "Mark Stetson", "Masado Banzai", "Matt Clark", "Matthew Mires",
"Mic Rodgers", "Michael Bigelow", "Michael Boddicker", "Michael Evje", "Michael G. Nathanson", "Michael Hosch",
"Michael L. Fink", "Michael Neale", "Michael Runyard", "Michael Santoro", "Mike De Luna", "Mister Wizard",
"Mrs. E. Johnson", "Neil Canton", "Peggy Priddy", "Pepe Serna", "Peter Kuran", "Phone Phreakers", "R.J. Robertson",
"Radar Blazer", "Radford Polinsky", "Raye Birk", "Reed Morgan", "Richard Carter", "Richard L. Thompson",
"Richard Marks", "Rick Heinrichs", "Rick Taylor", "Robert Gray", "Robert Hummer", "Robert Ito",
"Robert Michael Steloff", "Robert Wilcox", "Roberto Terminelli", "Robin Dean Leyden", "Rocco Gioffre",
"Rock star", "Ronald Lacey", "Rosalind Cash", "Rug Sucker", "Sal Orefice", "Samurai", "Scott Beattie",
"Scott Squires", "Selma Brown", "Senator Cunningham", "Sherman Labby", "Sidney Beckerman", "Stephen Dane",
"Stephen Robinette", "Steve Burg", "Steve Grumette", "Steve Hellerstein", "Steve LaPorte", "Terry Liebling",
"Thomas Hollister", "Thomas Pynchon", "Thomas R. Polizzi", "Tom Southwell", "Tommy J. Huff", "Tony Rivetti",
"Vincent Schiavelli", "Virginia L. Randolph", "Wayne Fitzgerald", "William G. Clevenger",
"William L. Hayward", "William Reilly", "William Traylor");

# global variables.  Don't use these at home, boys and girls!
# semi-seriously, I should put these into a calling function, but it's such a bother.

my %xlate_2_hash    = ();
my %xlate_from_hash = ();


###############################################################################

sub translate
{
    # receives the string of the entire perl script after 'use Acme::Buckaroo'.

    my $in_string = shift;

    my $out = "";
    $out = Dumper($in_string);
    print("Instring=>>$out<<\n") if $debug_mode;

    my @in_array = split(//, $in_string);
    $out = Dumper(@in_array);
    print("in_array=>>$out<<\n")  if $debug_mode;

    my $i = 0;
    my @temparray = ();
    foreach my $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];
        print("char=>>$thischar<<, num=>>$num<<, newchar=>>$newchar<<\n")  if $debug_mode;
        print("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";
    print("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.
#

sub normalize
{
    my $in_string = shift;;

    $in_string =~ s/^$header//g;

    print("normalize, got in_string>>$in_string<<\n")  if $debug_mode;

    my %revhash = ();