printing only the pattern that matches

[keirnna]

I am trying to display only the line that ends with a . or , or ? that has the in the line that ended with .|,|?

So here is my pattern-matching operator:

m/the/ .. /(\.|\?|\,)$/im

I am not sure if that is the correct pattern to look for, but if it is how do I extract just what matches that?

For example if I had

I wish it was the that dog barked,
but it wasn't.
It was a cat.

I need to only print "the dog barked,"

[prasadbabu]

keirnna,

What you have done here is correct /(\.|\,|\?)$/im.

But i am not sure what you are doing here (/the/../).

You can also use the character class to accomplish the same:

/([.,?])$/im

Regards,
Prasad

[prasadbabu]

I hope this might help you,

Example:

use strict;
use warnings;

my $string = "I wish it was the that dog barked,
but it wasn't.
It was a cat?";

while ($string =~ m/([.\,?])$/gim) {
print "line ended with <$1>\n";
}

[miller]

Or if you want exactly what you stated:

my $string = "I wish it was the dog that barked,\nbut it wasn't.\nIt was a cat?";
 
while ($string =~ m/(the.*?[.,?])$/gim) {
    print "line ended with <$1>\n";
}
# Outputs: line ended with <the dog that barked,>
 

[KevinADC]

Hi Miller,

Seems we have been working on the same question, allbeit on different forums:

my $file = $ARGV[0];    
 
open(INPUT, $file)   
    or die "Couldn't open $file for reading: $!\n";   
 
while (<INPUT>) {   
   if (m/(it.*[?,.])$/i) {  
      print "$1\n";  
   }  
}   
close(INPUT);
 

(from other forum)
Here is the file I want to scan:

Tim created the Module List in August 1994 and maintained it manually till
April 1996. By that time Andreas had implemented the Perl Authors Upload
Server (PAUSE) and it was happily feeding modules through to the CPAN archive sites.
Since PAUSE held a database of module information which could be maintained by module authors
it made sense for the module listing part of the Module List to be built
from that database. In April 1996 Andreas took over the automatic posting of
the Module List and I now maintain the other parts of the text. We plan to add
value to the automation over time.

[keirnna]

Yes I also posted on another forum. I don't see what the problem is. Thanks for the help so far.