How can I hide the source for my Perl program?

[Don P]

Hallo,

ansonsten bin ich heute zufällig über folgende Seite gestolpert:
http://faq.perl-community.de/bin/view/Wissensbasis/PerlToExe

Habe es mir mal angeschaut, aber zu PAR heißt es, dass das Laden 4-8 mal langsamer ist, als der Perl-Interpreter. Das ist nicht akzeptabel, weil oft tausende von Aufrufen gemacht werden müssen.

Bei Tinyperl kann man dem erzeugten .exe-Programm keine Parameter mitgeben, taugt für meine Zwecke leider auch nicht.

Habe noch dieses Script gefunden, und damit dann folgendes erreicht:

  
#!/usr/bin/perl  
($k188=$ARGV[0])=~tr/,/./;die "\nNo arguments.\n" unless $k188;$cmo8=$ARGV[1];die "\nNo filename specified.\n" unless $cmo8;$co35=(lc($ARGV[2])=='nomargins');aab( $cmo8, aad(aac($cmo8)) );exit;sub aad{my $ek1n=shift;$ek1n=~s/(<FSize +)([\d.]+)/$1.aae()/ge;$ek1n=~s/(<Pgf[FLR].*? +)([\d.]+)/$1.'0.0'/ge if $co35;return $ek1n;}sub aae{return($2 * $k188 > 400) ? 400 :($2 * $k188);}sub aac{$fb21="Can't read file $_[0]";open IN, "<$_[0]" or die $fb21." ($!)";local $/;my $hpk4=<IN>;close IN;return $hpk4;}sub aab{$fb21="Can't write file $_[0]";open OUT, ">$_[0]" or die $fb21." ($!)";print OUT $_[1];close OUT;}

Gräßlich anzuschauen, aber läuft einwandfrei. Es sind noch ein paar unnötige Leerzeichen übrig, z.B. in return($2 * $k188 > 400) ? 400 :($2 * $k188);, aber jedenfalls ist das schon besser als sprechende Variablen mit Kommentaren :-)

Erkennt jemand, was der Code macht, und wenn ja, wie lange hat es gedauert bis zum Durchblick?

Gruß, Don P