One more thing...now that I have this output (slightly modified) I need to go back thru a file and find all matches. Basically, I need to grab a line in one file, and find all lines in the second file that match, as well as several lines below. File 1:

 interface POS2/2.
interface POS4/1.
[download]

File 2:

interface POS2/1
 bandwidth 155520
 no ip address
 no ip directed-broadcast
 no ip proxy-arp
 load-interval 30
 shutdown
 crc 16
!
interface POS2/2
 description PL99999/9999999999-O, NNI southbound To Somewhere
 no ip address
 no ip directed-broadcast
 no ip proxy-arp
 encapsulation frame-relay IETF
 no ip mroute-cache
 crc 16
 frame-relay lmi-type cisco
!
interface POS2/2.30 point-to-point
 description POS2/2.30 fr dlci=30. By VPNSC: Job Id# = 111
 ip vrf forwarding ABC:ABCD
 ip address 192.168.254.2 255.255.255.252
 no ip directed-broadcast
 snmp trap link-status
 no cdp enable
 frame-relay interface-dlci 30 IETF   
!
interface POS2/2.31 point-to-point
 description POS2/2.31 fr dlci=31. By VPNSC: Job Id# = 112
 ip vrf forwarding ACD:FGEI
 ip address 192.168.254.6 255.255.255.252
 no ip directed-broadcast
 snmp trap link-status
 no cdp enable
 frame-relay interface-dlci 31 IETF   
!
[download]

What I'm trying to extract from file 2, based on file 1 is this:

interface POS2/2.30 point-to-point
 description POS2/2.30 fr dlci=30. By VPNSC: Job Id# = 111
 ip vrf forwarding ABC:ABCD
 ip address 192.168.254.2 255.255.255.252
 no ip directed-broadcast
 snmp trap link-status
 no cdp enable
 frame-relay interface-dlci 30 IETF 
interface POS2/2.31 point-to-point
 description POS2/2.31 fr dlci=31. By VPNSC: Job Id# = 112
 ip vrf forwarding ACD:FGEI
 ip address 192.168.254.6 255.255.255.252
 no ip directed-broadcast
 snmp trap link-status
 no cdp enable
 frame-relay interface-dlci 31 IETF
[download]

I have tried using the code below, but it doesn't work at all for me:

open(OUTFILE, ">outfile");

open(MYINPUTFILE, "file2");
open(MYINPUTFILE1, "file1");

while (<MYINPUTFILE>) {
        my($line) = $_;
    my $line1 = <MYINPUTFILE1>;
    chomp($line1);
    print OUTFILE if /$line1/ .. /frame-relay/;
       }

close(MYINPUTFILE);
close(MYINPUTFILE1);
[download]

I will have to make more modifications after that, but I already have most of that written. Any help is always appreciated.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.