Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.

decompile perl2exe

by jahwik (Initiate)
on Feb 06, 2005 at 19:29 UTC ( #428504=perlquestion: print w/replies, xml ) Need Help??

jahwik has asked for the wisdom of the Perl Monks concerning the following question:

Hi all, I read the other comments & earlier threads about this but I'm not sure I understand.

I need to correct a Perl application (made with perl2exe) which is not running well.
The only thing I got is some old code-files which are not up to date, and the executables of the running program.
If i can get the code from the executable then I could alter the program but otherwise I've to create and built extra code in the out-of-date version to achieve same functionality as the executable.
The original programmer left in a hurry without leaving the actual code-version behind.

I am not a perl-programmer so this not my area!! I don't have much time so if I can't retrieve the code I'll have to start with the older versions.

Hopefully someone can help me out,

thanx, Jah

Replies are listed 'Best First'.
Re: decompile perl2exe
by cchampion (Curate) on Feb 06, 2005 at 19:39 UTC
      Tnx, I've read them but don't think i could create such a xor(-1) script.At least not in a short time....

      Anybody know if there is such a script available somewhere?
Re: decompile perl2exe
by tachyon (Chancellor) on Feb 07, 2005 at 05:29 UTC

    Try this (assuming *nix as OS):

    $ mv /usr/bin/perl /usr/bin/perl.real $ cat > /usr/bin/perl #!/bin/sh PROG=$1 /usr/bin/perl.real -MO=Deparse $PROG ^D $ chmod 755 /usr/bin/perl

    $ is prompt. Ctrl+D to finish entering your perl substitute shell script.

    Try running your exe and it should/may (untested) spew source.

    $ some.exe > source.txt 2>&1
    Reverse changes with:
    $ rm -f /usr/bin/perl $ mv /usr/bin/perl.real /usr/bin/perl

    All care, no responsibility.



      Thank you.

      Any chance you can give the translation to windows in this.

      Got no xp with unix/linux.......


Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://428504]
Approved by Old_Gray_Bear
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2023-12-01 19:30 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (5 votes). Check out past polls.