in reply to Re^3: Question on Regular Expression
in thread Question on Regular Expression

Can you please let me know how to make use of %+ so to match in a loop even if the submatch in a pattern string fails?

um, \d always fails :)

#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
my $cool = qr/
  (?<key>
      \s*
      (?<key2>\w+)
      \s*
      (?<keyQ>\w+)
      \s*
      (?<NEVER>\d*)
   )
/x;
my $beans = 'castor cocoa coffee pinto navy Mayocoba';

while( $beans =~ m{$cool}g ){
    dd( \%+ );
}
__END__
{
  # tied Tie::Hash::NamedCapture
  key   => "castor cocoa ",
  key2  => "castor",
  keyQ  => "cocoa",
  NEVER => "",
}
{
  # tied Tie::Hash::NamedCapture
  key   => "coffee pinto ",
  key2  => "coffee",
  keyQ  => "pinto",
  NEVER => "",
}
{
  # tied Tie::Hash::NamedCapture
  key   => "navy Mayocoba",
  key2  => "navy",
  keyQ  => "Mayocoba",
  NEVER => "",
}

[download]

Replies are listed 'Best First'.
Re^5: Question on Regular Expression
by sjain (Initiate) on Dec 28, 2014 at 13:32 UTC

    Sorry I couldnt use 'dd' as I got the below error

    Can't locate Data/Dump.pm in @INC (@INC contains: /home/samanth/.cpan/build/File-Monitor-1.00-9nE6lN/lib /home/samanth/.cpan/build/File-Monitor-1.00-9nE6lN/lib /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at ./s5.pl line 5. BEGIN failed--compilation aborted at ./s5.pl line 5.

    if You could provide sample without 'dd' would be muchappreciated.

[reply]
      Either install the missing module 
      cpan Data::Dump

      [download]

      or replace dd with 

      print Dumper

      [download]

      and use Data::Dumper instead of Data::Dump.

      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
[select]
[reply]
[d/l]

In Section Seekers of Perl Wisdom