逐行阅读不起作用

Question

我有一个这样的文件

key1 value1
key2 value2
key3 value3

等等

我想通过在空白处分割每一行来创建一个散列。我试过这样

while (<FILE>) {
  chomp;
  my ($key, $val) = split / /;
  $hash{$key} .= exists $hash{$key} ? ",$val" : $val;
} 

这给出了输出

key1 => value1, key2

其余行被忽略。

当我检查逐行阅读是否有效时，它没有。

它不会逐行读取，而是 while 循环只循环一次所有数据。

为什么要这样做？

Answer 1

您将.= ",$val" 附加到每个哈希值，而不管它以前是否存在，因为$hash{$key} .= 隐式创建元素$hash{$key} 以便它可以接收分配。这意味着exists 将始终返回true，并且只会评估条件的第一个分支。任何数组或哈希元素都会发生这种情况

您的示例数据是错误的，因为它不包含等号=，但我认为您的意思是仅在哈希值已经包含数据时才将",$val"附加到哈希值。如果没有与$key对应的元素，则只需分配$val

也许是这样

use strict;
use warnings;

my %hash;

while (<DATA>) {
  chomp;
  my ($key, $val) = split /=/;
  if ( exists $hash{$key} ) {
    $hash{$key} .= ",$val";
  }
  else {
    $hash{$key} = $val;
  }
} 

use Data::Dump;
dd \%hash;

__DATA__
key1=value1
key2=value2
key3=value3
key1=value4
key2=value5

输出

{ key1 => "value1,value4", key2 => "value2,value5", key3 => "value3" }

---

更新

如果您真的想在一行中执行此操作（尽管我建议您不要这样做），您只需在代码中将 exists 替换为 defined，给出

  $hash{$key} .= defined $hash{$key} ? ",$val" : $val;

因为，虽然元素是自动激活的，所以存在它在接收到它的第一个值之前仍然没有任何价值，所以仍然没有定义

但是请使用简单的if 语句，这样自动激活的变幻莫测不会让必须维护您的代码的人复杂化

---

更新

这是另一种方式

$hash{$key} .= ',' if exists $hash{$key};
$hash{$key} .= $val;

这和标准if 都可以正常工作，因为条件是在评估.= 运算符之前测试的。只有当赋值使用条件表达式时，才会先执行.=