in reply to Help required on understanding regular expressions

A regex pattern that worked in 5.8 will also work in 5.10. What did you have in 5.8? 

'^(\S+)\s+(\S+)\s+(\S+)\s+\[([^\]]*)\]\s+\1\z'

[download]

Well, that will continue to work in 5.10. If you wanted to use named captures, 

'^(?<fname>\S+)\s+(?<mname>\S+)\s+(?<lname>\S+)\s+\[(?<date>[^\]]*)\]\
+s+\k<fname>\z'

[download]

PS — Make sure to test your code with the following string: 

"Test Tester Testing [Feb 18: 28_10_10] Tests"

[download]

It shouldn't match ("Test" ne "Tests"), but it's easy to match it if the pattern isn't properly anchored.

Replies are listed 'Best First'.
Re^2: Help required on understanding regular expressions
by shekarkcb (Beadle) on Feb 20, 2012 at 10:42 UTC
    Thanks monks for the reply.

    I am not converting anything, just wanted to learn new feature, Still not able to get it working ... below is the code.

    use strict;
use Data::Dumper;
my %hash=();
my $str="Test Tester Testing [Feb 18: 28_10_10] Test";
#my $reg='(?<fname>\w+\b)\s(?<mname>\w+)\s(?<lname>\w+\s).*\[(?<date>[
+^\]]+)/';
my $reg='^(?<fname>\S+)\s+(?<mname>\S+)\s+(?<lname>\S+)\s+\[(?<date>[^
+\]]*)\]\+s+\k<fname>\z';
{
    if($str =~ /$reg/) {
        %hash=%+;
    }
}
print Dumper \%hash;

    [download]

    Thanks.
[reply]
[d/l]
      Still not able to get it working
      As in, you get compile errors? Run time errors? Unexpected results? Or does the program sit on the couch, demanding beer and crips?

      Be specific, don't expect us to download your code and run it, just to find out what your "does not work" means. Tell us what you mean by "not working", and show us the errors and output you are getting.

[reply]
        Thanks for all monks for the insights and flaws pointed out in my code and ways to improve.

        Well, i did clicked download link and downloaded code, it didn't work means - i didn't get any results in hash, and printing something on if loop also did not printed o/p on screen, that's what i was referring at. But looks like some peoples words are little more "harsh" than expected. I use to get my doubts on perl cleared in this website, but this time it was something else.

        Thanks

[reply]

      You got typos :) this means start using /x so you can see them clearly 

      my $reg = qr/
^
(?<fname>\S+)
\s+
(?<mname>\S+)
\s+
(?<lname>\S+)
\s+
\[
    (?<date>[^\]]*)
\]
\+s+ # TYPOS
\k<fname>
\z
/x;

      [download]
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom