Re^2: Perl Regex Match (Compare Only AlphaNumeric)

Replies are listed 'Best First'.
Re^3: Perl Regex Match (Compare Only AlphaNumeric) by hdb (Monsignor) on Aug 23, 2013 at 11:20 UTC
Work on a copy of the data for the testing... UPDATE: I think I now understand what you want. Try something like this: `my $regex = join '\s+', qw( New Store Opening Promenade in Crocker Par +k Rack Nordstrom Rack is a division of Nordstrom ); $out = $1 if ($data_main =~ /($regex.*)/is);` [download]	[reply] [d/l]
Re^4: Perl Regex Match (Compare Only AlphaNumeric) by Anonymous Monk on Aug 23, 2013 at 12:04 UTC
Thanks hdb, I checked, this will work for me in 90% cases... Thanks for your time... :)	[reply]
Re^5: Perl Regex Match (Compare Only AlphaNumeric) by hdb (Monsignor) on Aug 23, 2013 at 12:08 UTC
You can make it more general. If you replace `'\s+'` by something like `'[^a-zA-Z0-9]+'` then it will match more often.	[reply] [d/l] [select]
Re^4: Perl Regex Match (Compare Only AlphaNumeric) by Anonymous Monk on Aug 23, 2013 at 12:26 UTC
Hi Hdb, I tried something like this, but not working. Is there any way to define that string seperately as I done here. `$qqq = "New Store Opening Promenade in Crocker Park Rack Nordstrom Rac +k is a division of Nordstrom"; my $regex = join '\s+', qw($qqq); $out = $1 if ($data_main =~ /($regex.*)/is);` [download] Its the same code except that string is defined separately. Will this not work? or is there another way to define that string seperately... Actually I want a global solution for this. I have may files similar which need to be done. thats why I need a global solution & not a hardcoded solution. Thanks	[reply] [d/l]
Re^5: Perl Regex Match (Compare Only AlphaNumeric) by choroba (Cardinal) on Aug 23, 2013 at 12:30 UTC
The `qw` operator does not interpolate. See perlop - Perl operators and precedence for details. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^6: Perl Regex Match (Compare Only AlphaNumeric) by Anonymous Monk on Aug 23, 2013 at 12:39 UTC
Re^5: Perl Regex Match (Compare Only AlphaNumeric) by tobyink (Canon) on Aug 23, 2013 at 13:28 UTC
`my $regex = join '\s+', split /\s+/, $qqq;` [download] `use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name"`	[reply] [d/l]
Re^3: Perl Regex Match (Compare Only AlphaNumeric) by AnomalousMonk (Archbishop) on Aug 23, 2013 at 11:22 UTC
If you're not interested in them, why put them back? As choroba suggested, a clearer statement of the problem may lead to better understanding for all, including yourself.	[reply]