hallo,

I've follwing code that works well. It replaces all occurences of mytag in @TAGS with my_new_tag:

my %translation = (
    "(mytag)(.*?)"    =>    "my_new_tag",
    "(mytag2)(.*?)"    =>    "my_new_tag2"
    
);


foreach $tag(@TAGS){
foreach $key (keys %translation){
if($tag =~ /$key/gs){
$do_something_with($transaltion{$key}, $1, $2);
}
}
}
[download]

now I try to use $1 and $2 directly in the hash, but it does not work!?

my %translation = (
"(meintag)(.*)" => { "tag" => $1."new", "value" => $2}
);
 
foreach $tag (@TAGS){
foreach $key (keys %translation){
if($tag =~ /$key/gs){
 
$do_something_with($translation{$key}->{tag}, $translation{$key}->{val
+ue});
}
}
}
[download]

Does anybody have a solution / workaround for this?
In the final version I want to load the translation hash via a ini file.


Thank you in advance

Michael