lio lop wrote:
Thanks for the answer , the problem is how to get the
first word into some kind of variable .
Suppose i call the programn with >_perl my_prog.pl
session1.in > OUT.out I have to get the FIRST word of the session1.in then
check if there is another one in the text, then print
the text between that word and its repetition.
--- Manav Mathur <[EMAIL PROTECTED]> wrote:
|-----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
--
+------------------------------------------ | José J. Cintrón - <[EMAIL PROTECTED]> +------------------------------------------
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
