|-----Original Message-----
|From: lio lop [mailto:[EMAIL PROTECTED]
|Sent: Tuesday, April 19, 2005 5:44 PM
|To: beginners@perl.org
|Subject: Match a pattern
|
|
|I need to print the text between two words
| that are in different
|lines.
|
Assuming you want to get all lines between lines containing 'startword' and
the next line which contains 'endword'
my $word1 = qr{startword}i ;
my $word2 = qr{endword}i ;
while (<DATA>) {
print if (/\b${word1}\b/../\b${word2}\b/)
}
If the words are the same, replace the print if line with
print if (/\b${word1}\b/.../\b${word1}\b/) ##3 dots is important
the regex depends on you. If you want, you can remove the i to compile a
case-sensitive regex.
|
|
|_________________________________________________________
|Do You Yahoo!?
|Información de Estados Unidos y América Latina, en Yahoo! Noticias.
|Visítanos en http://noticias.espanol.yahoo.com
|
|--
|To unsubscribe, e-mail: [EMAIL PROTECTED]
|For additional commands, e-mail: [EMAIL PROTECTED]
|<http://learn.perl.org/> <http://learn.perl.org/first-response>
|
|
|
*********************************************************
Disclaimer:
The contents of this E-mail (including the contents of the enclosure(s) or
attachment(s) if any) are privileged and confidential material of MBT and
should not be disclosed to, used by or copied in any manner by anyone other
than the intended addressee(s). In case you are not the desired addressee,
you should delete this message and/or re-direct it to the sender. The views
expressed in this E-mail message (including the enclosure(s) or attachment(s)
if any) are those of the individual sender, except where the sender expressly,
and with authority, states them to be the views of MBT.
This e-mail message including attachment/(s), if any, is believed to be free of
any virus. However, it is the responsibility of the recipient to ensure that
it is virus free and MBT is not responsible for any loss or damage arising in
any way from its use
*********************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
