$ cat nheader.h
//****************************************************************************
//
// sample.h       file definition
//
//****************************************************************************
//
//	
//
//

#ifndef ONE_H
#include <one.h>
#endif

abc
class sample_def:public user
{
	public:
//start of record layout--------------------------------------------------------
	char  name[23];		// Name 
	char  address[125]; 	// relevant address
	short age;  		// age
	short entries;		// no. of entries

	struct one
		{
			short age;		// end date
			float salary;		// min margin
		}value[10];

//end of record layout--------------------------------------------------------
	char  end;			// end of the record

/*********************************/
char *disp(char *two)
/*********************************/
{   
	return;
}

};


$

$ perl readhead.pl
$ 
$ cat nheader.csv
Name of the file: nheader.h
Id,Type,Size
name,char,23
address,char,125
age,short,2
entries,short,2
StructID,Type,Size
age,short,2
salary,float,4
$

#!/usr/bin/perl

use strict;
use warnings;

my @array1;
my @array2;
my $start=0;
my @elements;
my $size='';

my $infile='nheader.h';
my $outfile='nheader.csv';

open(INF,$infile) or die "Error opening infile $infile: $!\n";
my @array=<INF>;
close(INF);

foreach (@array) {
chomp;
push @array1, "$_\n" if $_ !~ /^\/\// && $_ !~ /^#/ && $_ !~ /^$/;
}

EXIT: foreach (@array1) {
chomp;

if ($_ =~ /_def:/)
{
$start=1;
next;
}
elsif ($start != 1)
{
next;
}
elsif ($_ =~ /}/)
{
last EXIT;
}
else
{
push @array2, "$_\n" if $_ !~ /{/ && $_ !~ /:/;
}

}

open(OUT,">$outfile") or die "Error opening outfile $outfile: $!\n";

print OUT "Name of the file: $infile\n";
print OUT "Id,Type,Size\n";

foreach (@array2) {
chomp;
$_ =~ s/\t//g;
$_ =~ s/;.*//g;
$_ =~ s/  / /g;

if ($_ =~ /\[/) {
@elements = split(/ /, $_);
my $type = $elements[0];
my $name = $elements[1];
my $size = $elements[1];
$name =~ s/\[.*//;
$size =~ s/.*\[//;
$size =~ s/\].*//;
print OUT "$name,$type,$size\n";
}
else {
@elements = split(/ /, $_);
if ($elements[0] eq "struct") {
print OUT "StructID,Type,Size\n";
next; }
if ($elements[0] eq "char") {
$size = 1; }
if ($elements[0] eq "short") {
$size = 2; }
if ($elements[0] eq "float") {
$size = 4; }
print OUT "$elements[1],$elements[0],$size\n";
}
}

close(OUT);