Big endian C to perl on x86 of binary file into structure

[Suresh Govindachar]

Hello,

  The following code is meant for a Big-endian processor running
  linux.  The code reads binary files and assigns values to
  structures.  I would like to read the same data files in perl on
  Windows on little endian x86.  Any tips on doing the translation?

    typedef struct s_str_boo
    {
        unsigned short  type;  
        int   x;       
        int   y;       
        int   w;       
        int   h;       
        int   v1;      
        int   v2;      
        unsigned short  s1; 
        unsigned short  s2;  
    } str_boo;
    
    typedef struct s_str_foo 
    {
        unsigned int       aui;
        str_boo            boo[16];
        unsigned short     aus;
        struct s_str_foo  *next;
    } str_foo;
    

    file = fopen("foo.dat", "r+b");

    fread((void*)&an_uint, sizeof(char), sizeof(unsigned int), file);
    fread((void*)tmpfoo,   sizeof(char), sizeof(str_foo), file);

  Thanks,

  --Suresh


_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs