| [reply] |
hello everyone,
first time here. came here with the recommendation of other perl monks..
I have a file where the contents are in bytecode.
I need to parse that file and assign each set of byte a Tag name. for example.. "assign bytes 1 to 9 = firstname" and "assign 10 to 17 = last name .
i have files that are 1600 bytes long. and have almost 70 tags associated with it. can someone help me with the code. rest of the information ( e.g assigning bytes to a tag name) i can do myself. i am learning perl as of now.
that perl program should take a input file.
thank you.
Jay.
| [reply] |
It's far from clear from your description exactly what you are trying to do.
Could you clarify what you mean by "tag name"? Also what you mean by "assigning byte to a tag name"?
The only interpretation that comes to mind is that you want to read the file and assign sequences of bytes to named variables...which you might do many ways, but maybe perlfunc:unpack would be a starting point. Something like this.
open BYTES, '<', 'bytesfile' or die $!;
my $bytes = do{ local $/; <BYTES> }; # Slurp all 1600 bytes into a sca
+lar.
close BYTES;
my( $first, $last, $other...) =
unpack 'A9 A7 A5 ...', $bytes;
Using unpack 'raw' like this for 70 fields would be extremely unwieldy, but there are ways it could be made less so, but explaining all possibilities only to have you reply, "No! That's not what I meant at all!", would be pointless:)
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
| [reply]
[d/l] |