In PERL Does anyone know how to print after you did a search, for the line after the word it.?

For instacne I searched for a period. It is found in the line "….is in 1996"." (this line is followed by) After that it was happily feeding modules through CPAN."

I need to print out the part after the word it , i.e was happily feeding modules through CPAN.

So again I searched for the match of a period. And after that I am to print the next line after that period, starting after the word it.
Hey Jake this is what I have so far.

open(AFILE, $ARGV[0]);

while(<AFILE>){
$string .= $_;
}
if($string =~ /\.|\?|,/){
print $string;
}else{
print "no match";
}

I tried doing the way your were saying and using the:
@wordsAfterPeriods = $sentence =~ /(?<=\. *)\w+/g
but I was getting a compilation error with this.
How can I fit this @ wordsAfterPeriods into what I have so far?

Thanks again for helping me!

Related Blogs

• Documentation error : ProductName is a protected, not a public …
• www.windaction.org | Dalton McGuinty's &quot;Grand Green …
• CPAN Testers 2.0 beta reset | dagolden
• CPAN Testers 2.0 beta test update | dagolden
• Lt. Gen. Alexander Commits CYBERCOM to Transparency in …

Bookmark It

Hide Sites