以正确的格式从哈希中打印键和值？

Question

您好，我正在尝试使用每行一个键/值打印散列的值和键，如下所示：

键：值

这是我用来打印哈希的代码：

foreach (sort keys %hash) { print "$_:$hash{$_}\n"; }

这是我得到的输出：

key
:value

为什么我的脚本会在新行上打印值，我可以做些什么来修复它？

Answer 1

光标正在移动到下一行，因为您的键包含换行符。解决方案是从键中删除换行符。

更具体地说，您肯定希望首先避免使用换行符创建键，因此应在创建哈希元素之前将其从键中删除。

您可能正在从文件句柄中读取密钥。通常使用chomp（删除任何尾随换行符）或s/\s+/z//（删除任何尾随空格，包括换行符）。

my @keys;
while (<>) {
   chomp;         # Or: s/\s+\z//;
   push @keys, $_;
}

my %hash; @hash{@keys} = @values;

Answer 2

试试这个版本的打印循环：

foreach (sort keys %hash) {
   my $v = $hash{$_};
   s/\s+$//;
   print "$_:$v\n";
}

%hash 中的键肯定有一些不需要的尾随字符，因此最好在填充 %hash 时将它们过滤掉。例如，而不是这个：

@hash{@keys} = @vals;

这样写：

@hash{map { s/\s+$//; $_ } @keys} = @vals;

或者这个：

chmop(@keys);
@hash{@keys} = @vals;

但是chomp 对多个字符没有帮助。