Hi
Everybody,
I got the following
problem using Active Perl:
I need to read a file that is HEXA encoded. I whant to
see (when do a print command) the HEXA values, like 8D and
etc...
Do you know how to open and manage a file in
hexa?
All the time that I tried Perl try to convert this to
ASCII or UTF-8 encoding...
...
binmode(FILE);
$file_name= $ARGV[0];
open(FILE,$file_name)
|| die "could not open Source file\n";
$file_name= $ARGV[0];
open(FILE,$file_name)
|| die "could not open Source file\n";
while(<FILE>)
{
chomp;
{
chomp;
#
@linha = split(/8D/); # A partir desse momento $linha[0] vale a primeira linha
#
@linha = split(/8D/); # A partir desse momento $linha[0] vale a primeira linha
#
...
The idea is to split all the sorce file when found the
80h value.
Thanks,
Alexandre.
ale08.rtp
Description: Binary data
_______________________________________________ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
