Extrecting information from netlist using perl

Status
Not open for further replies.
S

subhashbaraiya

Newbie level 2
Joined
Aug 1, 2012
Messages
2
Helped
0
Reputation
0
Reaction score
0
Trophy points
1,281
Activity points
1,292
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
 

hai subhashbaraiya,

Have this scipt. I wrote this for u..

enjoy

Code: 
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:
 
Status
Not open for further replies.

Similar threads

Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…