I want to pre-configure a software package that people download from a webserver. For this I'd like to preset some strings inside a binairy application file.
Basically what I need is a Perl procedure that will load the binairy file, look for a specific string, replace it with another one of the same length, and then save the file.
Doesn't sound too complicted, but I'm not a Perl expert, so that's why I am asking here :)
Thanks in advance,
P.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
>>What I would like is just a Perl script like Replace.pl with this function in it because it also has to read the replacement text from another file.
fine.
In other words what would a function in that script look like?
Also, what is the offset variable for, can you explain just a little? :)
the offset is the position of the searchtext (here starting from the begining of the file), simply because binaries can contain anything.
if you cannot tell the offset, we have to find another regex that ensures that only the wanted part is replaced.
Delphi is for PC programming... I like my servers to be Unix though.
I'm still confused though....
This is what I would like...
$infile = '/datadir/infile.bin';
$outfile = '/datadir/outfile.bin';
$orgtext = 'hello world';
$newtext = 'HELLO WORLD';
sub create_file {
load the file
change the text
save the file
}
I don not understand the -0ni.old -e "s/^(.{offset})searchtext/
Thanks!
well, then.
$infile = '/datadir/infile.bin';
$outfile = '/datadir/outfile.bin';
$orgtext = 'hello world';
$newtext = 'HELLO WORLD';
undef $/; #slurp mode, read files in a whole
open IN, $infile or die $!;
$intext = <IN>;
close IN;
$intext = s/$orgtext/$newtext/ms;
open OUT, ">$outfile" or die $!;
print OUT $intext;
close OUT;
not better. different.
the was a typo in mine, sorry. it should have been:
$intext =~ s/$orgtext/$newtext/ms;
the ms is for coping correctly with newlines (that can easily appear in a binary).
$count = ($data =~ s/$orgtext/$newtext/g);
replaces ALL occurrences of orgtext with newtext and places the number of occurences in $count.
Business Accounts
Answer for Membership
by: holliPosted on 2003-07-25 at 11:28:19ID: 9006899
you can put the following into a batch-file:
@echo off
perl -0ni.old -e "s/^(.{offset})searchtext/
rem remove this to keep the original file
del %1.old
goto end
:error
echo Usage foo.bat [filename]
:end
change offset, searchtext and replacement to your needs.