Chap Harrison wrote:
I need to search a binary file using a regex, and replace a 20-byte string with another 20-byte string (binary).
The FAQ talks about "perl -pi -e 's/foo/bar/g' myfile", but given that I'm
dealing with binary, and that I want to do this from within a larger script, that is less
than ideal.
I can't wrap my head around how to do it with slurp mode and "while (<$fh>)
{...}".
The regex for the substitution is "(SASI {6}.{20})(.{20})(2009$schno)", and I want to
replace it with "$1$mybinary$3", where $mybinary is a 20-byte binary string.
Could anybody point me in the right direction?
Or set the line separator to "(SASI ", etc.
--
Ruud
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
