Getting characters from regex pattern

devnul has asked for the wisdom of the Perl Monks concerning the following question:

Is there an "easy way" (more on that elusive term in a moment) to get this:

perl -e 'my $r = q/Capri|Classic/; print $1 if "capri" =~ m/($r)/i;'
[download]

to return the characters from the regex (mixed/upper- lowercase) -- I.E. "Capri", not "capri"? Or to populate it in some variable (it can go into $1, if thats doable)...

Preferrably in a cleaner way then doing an eval inside the regex with some kind of map, or something. And not having to build a separate hash that maps the lower-case to mixed-case version.. In other words, something in the regex internals, that might get set? Or something that might not take someone 20 minutes to figure out how it works at a later date?

Thanks (as always)!

- dEvNuL

Comment on Getting characters from regex pattern Download Code

Replies are listed 'Best First'.
Re: Getting characters from regex pattern by NetWallah (Canon) on Jun 25, 2008 at 03:57 UTC
How about this (dispatch subroutines): `my $r = q/Capri\|Classic/; my $d= {capri => sub {print $_[0]}, somethingelse => sub { print 'handler for something else'} }; $r=~m/($_)/i and $d->{$_}->($1) for keys %$d ; #-- prints "Capri"` [download] Have you been high today? I see the nuns are gay! My brother yelled to me...I love you inside Ed - Benny Lava, by Buffalax	[reply] [d/l]
Re: Getting characters from regex pattern by ikegami (Patriarch) on Jun 25, 2008 at 04:05 UTC
Maybe you don't actually need regular expressions? `my @lists = ( [qw( Capri Class )], # ... ); OUTER: for my $list (@lists) { for my $word (@$list) { next if index($s, $word) < 0; print("$word\n"); next OUTER; # or last OUTER; } }` [download]	[reply] [d/l]
Re: Getting characters from regex pattern by kyle (Abbot) on Jun 25, 2008 at 02:32 UTC
It sounds to me as if you already have several solutions (eval, map, separate hash), but you don't want to use them for they are messy or complicated. My suggestion is to take one of them and encapsulate it off somewhere with some documentation that that tells future generations what it does. `my $dollar_one = node_693863( 'capri', [ 'Capri', 'Classic' ] ); print $dollar_one if defined $dollar_one; # Documentation here sub node_693863 { # your implementation here }` [download]	[reply] [d/l]
Re: Getting characters from regex pattern by graff (Chancellor) on Jun 25, 2008 at 06:51 UTC
If your actual goal is to normalize case so that you get Initial Caps, you probably want to use ucfirst and lc: `perl -le '@a=qw/capri cApRi TITLE-case/; for(@a){s/(\pL+)/ucfirst(lc $ +1)/ge; print}'` [download] prints: `Capri Capri Title-Case` [download] (The "\pL+" in the regex matches all "letter" characters; if your data tends to involve content in languages with non-Latin, non-cased letters, you'll probably want to use "\p{LC}" or "\p{CasedLetter}+" instead.)	[reply] [d/l] [select]
Re: Getting characters from regex pattern by starbolin (Hermit) on Jun 25, 2008 at 06:51 UTC
This does the transformation you asked for but I'm not sure it meets your readability requirement. Certainly not the way I'd parse tokens out of a string. `$string="glarch capri foobar"; $r=q/Capri\|Classic/; $string=~m/($r)/i; $r=~m/($1)/i; print $1; ... Returns 'Capri'` [download] s//----->\t/;$~="JAPH";s//\r<$~~/;{s\|~$~-\|-~$~\|\|\|s \|-$~~\|$~~-\|\|\|s,<$~~,<~$~,,s,~$~>,$~~>,, $\|=1,select$,,$,,$,,1e-1;print;redo}	[reply] [d/l]
Re: Getting characters from regex pattern by Anonymous Monk on Jun 25, 2008 at 13:36 UTC
How about just reversing the match? `perl -wMstrict -e "for (@ARGV) { if ('Capri,Classic,Dart' =~ m{ (\Q$_\E) }xmsi) { print qq($_ is a $1 \n) } else { print qq($_ isn't a car \n) } } " capri cLaSsIc foo capri is a Capri cLaSsIc is a Classic foo isn't a car` [download]	[reply] [d/l]
Re: Getting characters from regex pattern by devnul (Monk) on Jun 25, 2008 at 22:39 UTC
Great replies, everyone, thank you so much.... Gives me a few different ways of thinking about this problem, which I greatly appreciate... Thanks! - dEvnuL	[reply]


Syntactic Confectionery Delight
	PerlMonks