警告 - Perl 中的“哈希分配中的元素数量为奇数”

我使用以下语法收到警告 -

my %data_variables = ("Sno." => (5,0),
                "ID" => (20,1), 
                "DBA" => (50,2), 
                "Address" => (80,3), 
                "Certificate" => (170,4),
            );

但在使用类似的语法时我没有收到类似的警告。

my %patterns = ("ID" => ("(A[0-9]{6}?)"),
                "Address" => (">([^<]*<br[^>]+>[^<]*)<br[^>]+>Phone"),
                "Phone" => ("Phone: ([^<]*)<"),
                "Certificate" => ("(Certificate [^\r\n]*)"),
                "DBA" => ("<br[^>]+>DBA: ([^<]*)<br[^>]+>"),
            );  

您需要将括号更改为方括号：

my %data_variables = (
    "Sno."        => [5,0],
    "ID"          => [20,1], 
    "DBA"         => [50,2], 
    "Address"     => [80,3], 
    "Certificate" => [170,4],
);

哈希值必须是标量值，因此您的数字列表需要存储为数组引用（因此使用方括号）。

在你的第二个例子中，括号是多余的，只会混淆问题。每组括号仅包含一个标量值（一个字符串），每个标量值都成为一个哈希值。