Re^2: Replacing string with regexp without using modules

Thanks for the great reply. It works well. However when I cut it down to this, it doesn't work:

  $string = '$a $b $c';
  $hash{a} = "go";
  $string =~ s{\$(\w+)}{$$hash{$1}}ge;
[download]

Could it be the hash reference you use to the subroutine? \$hash ? Thanks.

Comment on Re^2: Replacing string with regexp without using modules Download Code

Replies are listed 'Best First'.
Re^3: Replacing string with regexp without using modules by almut (Canon) on Aug 06, 2008 at 01:58 UTC
Could it be the hash reference ...? Yes, in pc88mxer's code, `$hash` is a hash reference, so it must be dereferenced. In your case, it's a normal hash. So either don't dereference `$hash{a} = "go"; $string =~ s{\$(\w+)}{$hash{$1}}ge;` [download] or create a reference `$hash->{a} = "go"; $string =~ s{\$(\w+)}{$$hash{$1}}ge;` [download] or even use the normal arrow syntax in both the assignment `$hash->{a} = ...`, and when you access it `$hash->{$1}`: `$hash->{a} = "go"; $string =~ s{\$(\w+)}{$hash->{$1}}ge;` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Could it be the hash reference ...?

Yes, in pc88mxer's code, $hash is a hash reference, so it must be dereferenced. In your case, it's a normal hash. So either don't dereference

$hash{a} = "go";
$string =~ s{\$(\w+)}{$hash{$1}}ge;
[download]

or create a reference

$hash->{a} = "go";
$string =~ s{\$(\w+)}{$$hash{$1}}ge;
[download]

or even use the normal arrow syntax in both the assignment $hash->{a} = ..., and when you access it $hash->{$1}:

$hash->{a} = "go";
$string =~ s{\$(\w+)}{$hash->{$1}}ge;
[download]