perl中没有一行的多个命令

Question

我写了一些 code 从数组创建哈希。

我创建了一个衬垫$seens 来删除重复项，而不是构建哈希表，这将从我的键和值中删除重复项。

我意识到我不能在|| 之后的换行符中运行多个命令（就像循环一样），但只能在|| 之后的一行中添加它们

原文部分：

...
foreach my $k (sort keys %store) {
     ($key, $key2, $value) = split /-/, $k;
     chomp ($key, $key2, $value);
     $seen{$key}++ || print "1. $key\n";
     $seen{$key2}++ || print "2. -- $key2\n";
     $seen{$value}++ || print "3. ----$value\n";
}

我可以打印这样的行，但维护起来很乏味：

$seen{$value}++ || print "3. ----$value\n "something else";

我实际上是在创建一个 xml 文件，并将我的所有文本放在一行中看起来非常糟糕且难以调试：所以我真的在寻找一种方法来代替：

...
foreach my $k (sort keys %store) {
     ($key, $key2, $value) = split /-/, $k;
     chomp ($key, $key2, $value);
     $seen{$key}++ || {
                    print "1. $key\n";
                    print "that went well..";
                    ...
                  }

     $seen{$key2}++ || print "2. -- $key2\n";
     $seen{$value}++ || print "3. ----$value\n";
}

有没有办法从这样的一行做到这一点？

如需更清楚地了解此脚本，请参阅 this question @Mob 对我有很大帮助。

Answer 1

$seen{$key}++ or do {
    print "1. $key\n";
    print "that went well..";
    ...
};