Perl：字符串不转义反斜杠

Question

我无法理解这样一个简单的陈述我做错了什么。问题发生在以下行：

$this->_validate_hash($hashref->{$key}, $schemaref->{$key}, $path . (ref($hashref->{$ key}) ? $key . "\\\@$key"), $errors);

所以我希望事情以 /path/to/some/\@attribute< /代码>。然而，我现在得到的是path/to/some/\\@attribute。我在最后一部分尝试了各种组合，包括 '\\' 。 '@'。 $key 或 '\@' 。 $key 或 '\\@' 。 $key 但我仍然无法逃脱反斜杠。这是我不知道的 Perl 字符串中的一些怪癖吗？谢谢。

Answer 1

这不是一个简单的陈述；它分为两行，包含各种内容。正如我所看到的，这实现了相同的结果（假设 $xpath 未在脚本中的其他地方使用）：

my $xpath = $path . (ref($hashref->{$key}) ? $key . "/" : "\\\@$key");
$this->_validate_hash($hashref->{$key}, $schemaref->{$key}, $xpath, $errors);

但是，它更接近可读 - 仍然不是特别容易，但更具可读性比原来的。

你的问题孩子似乎可以减少到：

use strict;
use warnings;

my $key  = "attribute";
my $path = "/path/to/some/";
my $localpath = $path . "\\\@$key";

print "Key:   $key\n";
print "Path:  $path\n";
print "Local: $localpath\n";

代码工作干净：

Key:   attribute
Path:  /path/to/some/
Local: /path/to/some/\@attribute

所以，要么我有一个不同的 Perl（这是 Linux x86/64 上的 5.12.1），要么你的设置中有一些不同。鉴于我们没有所有的哈希值等，很难得到它 - 但你应该以类似的方式分解你的问题。