Extrecting information from netlist using perl

[subhashbaraiya]

Hi All,


i want to make perl script which find input/output pin from perticular module in netlist and append it to another text file.....


Thanks&Regards,
Subhash

 

[vijayR15]

hai subhashbaraiya,

Have this scipt. I wrote this for u..

enjoy

open(VERINPUT,"io_ring.v") or die "Could not open input file..\n Please check it out.. \n";
open(VEROUTPUT,">io_ring_pin.v") or die "Could not open output file..\n Please check it out.. \n";
$line=<VERINPUT>;
while($line ne "")
{
	if ($line =~ /^module mphy_io_ring/) {
			$line=<VERINPUT>;
			while($line !~ /endmodule/) {
				if ($line =~ /input/ or $line =~ /output/) {
				print VEROUTPUT $line;
			while($line !~ /\;/)
				{
				print VEROUTPUT $line;
	$line=<VERINPUT>;
		}			
}
$line=<VERINPUT>;
}
}
$line=<VERINPUT>;
}
close $VERINPUT;
close $VEROUTPUT;

mention the module name instead of this in script "module mphy_io_ring".

- - - Updated - - -

:razz: