Hi All,
I have some Perl experience but has been awhile. I mainly write
SKILL lisp programs for Cadence CAD for a layout group(we are a IC
design center).
I have a CBR(describes circuit) file and want to open it, find the
line in file
.SUBCKT __RE1321_4 HB_GND GSM_RX DCS_RX DCS_VRX GSM_VRX PCS_TX
SHUNT_GND ANT
+ VRXEN GSM_VTX GSM_TX PCS_VTX
Where .SUBCKT __RE1321_4 is found and the output of the file is the
pins(ignore the + sign)
Output:
("HB_GND" "GSM_RX" "DCS_RX" "DCS_VRX" "The rest of 'em")
The above is a list that can be used by SKILL code.
I only understand the very basics of perl, the more info the better.
Thank you in advance for any help,
Eric
What I have so far.....
#!/usr/bin/perl
use warnings;
use strict;
my $read_file = 'RE1321_4.cbr';
my $write_file = 'NavInputPins.list';
open READ, '<', $read_file or die "Can't open '$read_file' $!";
open WRITE, '>', $write_file or die "Can't open '$write_file' $!";
}
close READ or die "Couldn't close '$read_file' $!";
close WRITE or die "Couldn't close '$write_file' $!";
exit 0;
__END__
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
