Re: Turn your script into binary without a compiler! :-P

I like your idea. Here are my comments.

I think recompiling a perl is overkill in your case. I had similar solution, and I suggest you can get a couple ideas from my node: perl scripts executor on Win32

I think if we'll mix both ideas, we could get much simplier and flexible solution.

Now improvements that I want to suggest to your idea and code.

No need to recalculate size and edit executable to find and replace substring in there. Do it better: append special magic string after your executable, and a script immediately after that. perlbin.pl will search for that string and, if not found, append magic string and script. If found, just replaces script.
I don't think you need my @ARGS = @ARGV. Just work directly with @ARGV.

just do something like

open F,"<$^X";
binmode F;
my $x = join '',<F>;
$x=~s/^.*magicstring//s;
eval $x
[download]

$^O=~/(msw|win|dos)/ is in trouble: Darwin will match it but that's no good. Check it for just 'MSWin32'

Courage, the Cowardly Dog.

Comment on Re: Turn your script into binary without a compiler! :-P Select or Download Code

Replies are listed 'Best First'.
Re: Re: Turn your script into binary without a compiler! :-P by gmpassos (Priest) on Jul 24, 2002 at 19:38 UTC
I made in this way, with string to change inside the binary, because if this string are not changed, starting with #, the binary will work like the normal perl.exe Since this is made for HWXperl, when I delivery hwxperl I can get any binary of the release and turn into a script! I made this with miniperl.exe too, where you don't need the perllib in the same directory. I don't understand what you means with "I don't think you need my @ARGS = @ARGV. Just work directly with @ARGV". Are you talking about the 'char argv' on the C code? If is about this, I just made in the most simple and portable way, because some compilers don't deal with argv equally. about '$^O=~/(msw\|win\|dos)/', yes is not very pretty, but here, when the binary can't find it self, I will put all the options to fix this in any OS, here are only for Win32. I saw one time a vendor with 'MSwin' in the $^O, but I think this is too old. Seeing again the table, I will change this line... OS $^O $Config{'archname'} -------------------------------------------- MS-DOS dos PC-DOS dos OS/2 os2 Windows 95 MSWin32 MSWin32-x86 Windows 98 MSWin32 MSWin32-x86 Windows NT MSWin32 MSWin32-x86 Windows NT MSWin32 MSWin32-ALPHA Windows NT MSWin32 MSWin32-ppc I will see your code on 'perl scripts executor on Win32'. Thanks for the link, and the reply... "The creativity is the expression of the liberty".	[reply]

Replies are listed 'Best First'.

Re: Re: Turn your script into binary without a compiler! :-P
by gmpassos (Priest) on Jul 24, 2002 at 19:38 UTC

I made in this way, with string to change inside the 
binary, because if this string are not changed, starting 
with #, the binary will work like the normal perl.exe

Since this is made for HWXperl, when I delivery hwxperl I 
can get any binary of the release and turn into a script! I 
made this with miniperl.exe too, where you don't need the 
perllib in the same directory.

I don't understand what you means with 
"I don't think you need my @ARGS = @ARGV. Just work 
directly with @ARGV". Are you talking about the 'char argv' 
on the C code? If is about this, I just made in the most 
simple and portable way, because some compilers don't deal 
with argv equally.

about '$^O=~/(msw|win|dos)/', yes is not very pretty, but 
here, when the binary can't find it self, I will put all 
the options to fix this in any OS, here are only for Win32.
I saw one time a vendor with 'MSwin' in the $^O, but I 
think this is too old. Seeing again the table, I will 
change this line...

    OS            $^O        $Config{'archname'}
    --------------------------------------------
    MS-DOS        dos
    PC-DOS        dos
    OS/2          os2
    Windows 95    MSWin32    MSWin32-x86
    Windows 98    MSWin32    MSWin32-x86
    Windows NT    MSWin32    MSWin32-x86
    Windows NT    MSWin32    MSWin32-ALPHA
    Windows NT    MSWin32    MSWin32-ppc

I will see your code on 'perl scripts executor on Win32'. 
Thanks for the link, and the reply...

"The creativity is the expression of the liberty".

[reply]