How to make padding of a structure using Perl - perl

Question

I am creating a structure from the data below which will be in a text file
BO_ 82 Sim_Tracker_Objects3: 8
SG_ CAN_Trk_Obj_Sim_Enable : 60|4#1+ (1,0) [0|1]
SG_ CAN_Trk_Obj_Curvi_Long_Vel : 32|12#1+ (0.1,-200) [-200|200]
SG_ CAN_Trk_Obj_Curvi_Lat_Vel : 48|12#1+ (0.1,-200) [-200|200]
SG_ CAN_Trk_Obj_Curvi_Long_Posn : 0|16#1+ (0.01,-200) [-200|200]
SG_ CAN_Trk_Obj_Curvi_Lat_Posn : 16|16#1+ (0.01,-200) [-200|200]
The Perl script I am using to generate structure is as below
but I want it to be structure padded; how can I do it?
open (DBC, "test.txt")|| die "cant open dbc $!";
#test = <test>;
close (DBC);
open(OUTFILE1,">typedef.h") || die "cannot open typedef.h\n";
$line_test =$#test;
$delimiter=0;
foreach $line(#test)
{
if($line =~/^BO_ /)
{
if($delimiter gt 0)
{
print OUTFILE1 "}#my_string\n";
}
$delimiter=1;
#dum_struct_name = split(":",$line);
if($dum_struct_name[0]=~/BO_ /)
{
#dum_struct_var = split(" ",$line);
#my_string = $dum_struct_var[2];
my $my_struct = chop(#my_string[0]);
print OUTFILE1 "\n typedef struct\t";
#print OUTFILE1 "#my_string\n";
print OUTFILE1 "{\n";
}
}
if($line =~/^ SG_ /)
{
#dum_var_name = split(":",$line);
if($dum_var_name[0]=~/^ SG_ /)
{
#dum_struct_var_sub = split(" ",$line);
#my_string_sub = $dum_struct_var_sub[1];
#dum_padd_var = split("SG_",#dum_var_name[1]);
print OUTFILE "\n";
#dum_padd_var1=split("#",#dum_padd_var[0]);
#padd_size=split(" ",#dum_padd_var1[0]);
#size=split('\|',#padd_size[0]);
#bit_position=split('\|',#padd_size[1]);
print OUTFILE "bit_size #size[1]\n";
print OUTFILE "bit_position #size[0]\n";
print OUTFILE1 "\tcanbittype\t";
print OUTFILE1 "#my_string_sub[0]:";
print OUTFILE1 " #size[1];\n";
}
}
} print OUTFILE1 "}";
print OUTFILE1 "#my_string\n";
close(OUTFILE1);
The generated file is something like this:
typedef struct {
canbittype CAN_Trk_Obj_Sim_Enable: 4;
canbittype CAN_Trk_Obj_Vcs_Lat_Vel: 12;
canbittype CAN_Trk_Obj_Vcs_Long_Vel: 12;
canbittype CAN_Trk_Obj_Vcs_Lat_Posn: 16;
canbittype CAN_Trk_Obj_Vcs_Long_Posn: 16;
} Sim_Tracker_Objects3;

Answer 1

Use Convert::Binary::C or roll out your own unpack pattern.