Perl 解析字符串并替换多个符号

Question

我有一个字符串：

$str = "\$JVM/\$JAVA8/Contents/Home"

在这个字符串上，我想用这个哈希中的相应键替换符号 $JVM 和 $JAVA8：

%con = ('\$JVM' => '/Library/Java/JavaVirtualMachines' ,
        '\$JAVA8' => 'jdk1.8.0_192.jdk');

这样我就可以得到这个：

$target = "/Library/Java/JavaVirtualMachines/jdk1.8.0_192.jdk/Contents/Home"

我想不使用任何模块。我怎样才能做到这一点？谢谢。

Answer 1

您可以替换为变量。 s/// 的左边可以是一个哈希值。

my $str = '$JVM/$JAVA8/Contents/Home';
my %con = (
    '\$JVM'   => '/Library/Java/JavaVirtualMachines',
    '\$JAVA8' => 'jdk1.8.0_192.jdk'
);

$str =~ s{
  (              # capture group for $1
     \\          # the backslash in your '\$JVM' hash key
     \$          # a literal dollar sign
     [A-Z0-9_]+  # variable name
  )
}{$con{$1}}gx;
print $str;

请注意，在您的 $str 中，您要使用单引号 '' 而不是 interpolation，否则您将收到错误消息，因为您没有 $JVM 变量。

同时，您需要注意您的哈希键。如果它们真的是'\$JVM' 之类的，那意味着它们中有一个文字反斜杠\ 和一个文字美元$。因此在模式中我们需要三个反斜杠\\\。两个得到一个字面值（因为反斜杠转义了正则表达式中具有特殊含义的东西），一个转义了美元。

如果你的键没有这个反斜杠，模式就会改变。

my %con = (
    '$JVM'   => '/Library/Java/JavaVirtualMachines',
    '$JAVA8' => 'jdk1.8.0_192.jdk'
);

$str =~ s{(\$[A-Z0-9_]+)}{$con{$1}}g;

我在第一个版本中使用了/x modifier，它允许 cmets 并忽略空格。您不必这样做。