如何将正则表达式字符串替换值（$1、$2 等）映射到哈希？

Question

my (@keys,@values) = ($text =~ /\{IS\:([a-zA-Z0-9_-]+)\}(.*)\{\\IS\:([a-zA-Z0-9_-]+)\}/g);

应该匹配这样的字符串

{IS:cow}moo{\IS:cow}
{IS:cow}moo{\IS:cow}    
{IS:dog}bark{\IS:dog}
{IS:dog}meow{\IS:dog} #probably not a dog

，它工作得很好，除了所有 $1、$2 和 $3 值都被转储到 @keys .. 所以我试图弄清楚如何让这些家伙进入 $1 => 的漂亮哈希; $2 对...

对于完整的上下文，我真正想要做的是让正则表达式返回一个看起来像的数据结构（并附加一个计数找到密钥的次数）

{ 
  cow_1 => moo,
  cow_2 => moo,
  dog_1 => bark,
  dog_2 => meow,
}

有没有办法使用 map{ } 函数通过正则表达式来完成此操作？也许是这样的？

my %datahash = map { ( $1 eq $3 ) ? { $1 => $2 } : undef } @{ regex...};

$1 等于 $3 以确保其是匹配的标签（无需递归检查这些标签是否嵌套），如果是，则使用 $1 作为键，$2 作为值；

然后对于每个键 =>值对，我想替换

{IS:cow}moo{\IS:cow}
{IS:cow}moo{\IS:cow}   

为

{cow_1}
{cow_2}

如果 $cachedData{cow} 为 true，则所有的ow_*将被替换为％datahash中的密钥...

Answer 1

$hash{$1} = $2 while 
        $text =~ /\{IS\:([a-zA-Z0-9_-]+)\}
                           (.*)
                  \{\\IS\:([a-zA-Z0-9_-]+)\}/gx;

（添加 /x 修饰符以提高可读性）

Answer 2

我从正则表达式中删除了无用的反斜杠和括号，并在 char 类中使用了快捷方式：

#!/usr/bin/perl
use warnings;
use strict;

my $text = '{IS:cow}moo{\IS:cow}
{IS:cow}moo{\IS:cow}    
{IS:dog}bark{\IS:dog}
{IS:dog}meow{\IS:dog}';

my %cnt;
my %animals;
while ( $text =~ /\{IS:([\w-]+)}(.*)\{\\IS:[\w-]+}/g ){
    $animals{$1 . '_' . ++$cnt{$1}} = $2;
}

print "$_ => $animals{$_}\n" for sort keys %animals;

Answer 3

• $dataHash{cow}[$num] 完全等同于 $dataHash{"cow_$num"}
• 使用 $dataHash{cow} 更容易获得任何牛的东西以及，反对
  使用

  @dataHash{ grep { m/^cow_/ } keys %dataHash }

  “扫描”键

  • 它还将源数据（“牛”）与合成数据分开（“1”，因为这是我第一次看到这种情况。）

所以，我认为现在是引入 multi_hash 开始发挥作用。

sub multi_hash {
    use List::Pairwise qw<mapp>;
    my %h;
    mapp { push @{ $h{ $a } }, $b } @_;
    return wantarray ? %h : \%h;
}

使用这个习惯用法，您可以创建一个散列，类似于您想要的那样：

my %dataHash 
    = multi_hash(  map { m/[{]IS:([\w-]+)[}]([^{]+)[{]\\IS:\1[}]/ } @lines )
    ;

这给了我：

%dataHash: {
             cow => [
                      'moo',
                      'moo'
                    ],
             dog => [
                      'bark',
                      'meow'
                    ]
           }