in reply to Re: Grouped characters inside character class.
in thread Grouped characters inside character class.

The only issue with this regex (and the poster's original idea as well) is it will not properly capture the username if it contains ' on '. For example:

my $source = 'Posted by getting on your nerves on September 04, 2003';

It's probably a good idea to anchor on more than just the ' on ' part like:

my $source = 'Posted by getting on your nerves on September 04, 2003';
if ($source =~ /Posted by (.+?) on \w+ \d{2}, \d{4}$/) { ... }

[download]

Regards

m.att

Replies are listed 'Best First'.
Re^3: Grouped characters inside character class.
by Enlil (Parson) on Jun 02, 2006 at 02:13 UTC
    The only issue with this regex (and the poster's original idea as well) is it will not properly capture the username if it contains ' on '

    Noted. So we capture up until the last ' on '. 

    use strict;
use warnings;
my $source = 'Posted by getting on my nerves on September 04, 2003';

if ( $source =~ /^Posted by (.*?) on (?!.* on )/i ) {
  print qq("$1") . "\n";
}

    [download]

    blokhead is right.. and I will go lick my wounds now.

[reply]
[d/l]
      That's the same as just being greedy: 
      /^Posted by (.*) on /i

      [download]

      blokhead

[reply]
[d/l]

In Section Seekers of Perl Wisdom