On Feb 3, 2:26 pm, jwkr...@shaw.ca ("John W. Krahn") wrote:
> PolyPusher wrote:
> > Hi All,
>
> Hello,
>
> > 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
>
> Is it just one line or are there multiple lines that match?
>
> > .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)
>
> Ignore the + sign because? Does it signify a continuation character
> with the remaining pins on the next line?
>
>
>
>
>
> > 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' $!";
>
> All you need here is a while loop to read lines and print out the
> results. If your "line" is actually two lines then you need to handle
> that as well. If you are only looking for the one line then you can
> exit the loop as soon as you find it instead of reading through the
> entire file. Provide some more information and it should be easy to write.
>
> > close READ or die "Couldn't close '$read_file' $!";
> > close WRITE or die "Couldn't close '$write_file' $!";
>
> > exit 0;
>
> > __END__
>
> John
> --
> The programmer is fighting against the two most
> destructive forces in the universe: entropy and
> human stupidity. -- Damian Conway- Hide quoted text -
>
> - Show quoted text -
John, Jim,
I will repost as I have learned of some more issues to overcome.
Thank you for your help!
PolyPusher
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
