Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^5: Perl Unpack Cobol Binary File and Fields

by Corion (Patriarch)
on May 04, 2020 at 20:15 UTC ( [id://11116452]=note: print w/replies, xml ) Need Help??


in reply to Re^4: Perl Unpack Cobol Binary File and Fields
in thread Perl Unpack Cobol Binary File and Fields

This suggests that every field is just 2 bytes wide and you have two dummy bytes at the start of your record. Because I get 2020 when I look at the next two bytes as a 16-bit word:

my $data1 = unpack 'n', substr( $str, 2,2 ); my $data2 = unpack 'n', substr( $str, 4,2 );

The data itself looks plausible but are you really sure that you are looking at the correct record?

Replies are listed 'Best First'.
Re^6: Perl Unpack Cobol Binary File and Fields
by dbarkho14 (Novice) on May 04, 2020 at 21:08 UTC

    yes I was looking at the wrong record. Now that I am looking at the correct one, first rec has 431 and 2020 as expected. I should be able to take it from here. Thanks so much for help!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11116452]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2024-03-28 15:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found