Re: regex question

[ Ignore this post, I missed how you just want a list of the numbers at the end ]

my %value_lkup = (
    A => '1000',
    B => '2000',
);

my $pat = '[' . join('', keys %value_lkup) . ']';
s/($pat)/$value_lkup{$1}/g;
[download]

s/([AB])/ ( ord($1)-ord('A')+1 )*1000 /eg;
[download]

Comment on Re: regex question Select or Download Code

Replies are listed 'Best First'.
Re^2: regex question by markkawika (Monk) on Sep 02, 2009 at 23:34 UTC
That's actually a really nice way to use a hash to look through a string and replace keys with values. You could even generalize it to multi-character keys: `my %value_lkup = ( A => '1000', B => '2000', CDE => '3000', ); my $pat = '(?:' . join('\|', keys %value_lkup) . ')'; s/($pat)/$value_lkup{$1}/g;` [download]	[reply] [d/l]
Re^3: regex question by ikegami (Patriarch) on Sep 03, 2009 at 00:00 UTC
To make it a general solution, you need to add `quotemeta` and you gotta be careful about ordering if one key can be the the start of another key. And if you're going to add `(?:)`, you might as well use `qr//`. `my ($pat) = map qr/$_/, join '\|', map quotemeta, sort { length($b) <=> length($a) } keys %value_lkup; my @data = map $value_lkup{$_}, /$pat/g;` [download]	[reply] [d/l] [select]