Re: help required for regexp

Nobody seems to have posted a complete solution that actually works.

use strict;
use warnings;

my %Hidlabels = ( '3333' => 1, '4444' => 2, '2222' => 3 );
my $str = 'f3333_4444_2222';

$str =~ s/f(\d+)/$Hidlabels{$1}/g;
print $str;
[download]

Comment on Re: help required for regexp Download Code

Replies are listed 'Best First'.
Re^2: help required for regexp by choroba (Cardinal) on Dec 07, 2011 at 11:27 UTC
Nobody seems to have posted a complete solution that actually works. Neither did you. Update: Eliya's solution seems to work.	[reply]
Re^3: help required for regexp by TJPride (Pilgrim) on Dec 07, 2011 at 11:33 UTC
Odd, I could have sworn I read all the posts on the way by. If not, then I apologize for posting essentially a duplicate solution. However, mine does in fact work if you run it, so you're wrong on that.	[reply]
Re^4: help required for regexp by choroba (Cardinal) on Dec 07, 2011 at 11:42 UTC
Does it? Screencast	[reply]
Re^5: help required for regexp by TJPride (Pilgrim) on Dec 07, 2011 at 13:26 UTC
Re^4: help required for regexp by Anonymous Monk on Dec 07, 2011 at 11:50 UTC
Working Re: help required for regexp Working Re: help required for regexp Working Re: help required for regexp Not working Re: help required for regexp by Corion Not working Re: help required for regexp by TJPride Its a waste of time debating with TJPride, he denies it when his stuff don't work	[reply]

In Section Seekers of Perl Wisdom