Question

我在如何打印哈希内容方面遇到了麻烦。

此代码段，

#!/usr/bin/perl -w
use strict;
use warnings;

my (%data, $keyword);

while (my $line = <DATA>){
    next unless $line =~ /\S/;
    chomp $line;
    if ($line =~ /^Keyword/){
        $keyword = $line;
    }
    else {
        push @{$data{$keyword}}, $line;
    }
}

# How to sort by keys using while loop?
while ( my ($k,$v) = each %data ) { 
    print "$k => $v\n";
}

# BTW, foreach loop sorting works.
#foreach my $key (sort (keys(%data))) {
#   print "$key \t$data{$key}\n";
#}

__DATA__
Keyword1
data1 a
Keyword2
data2 a
data2 b
data2 c
Keyword3


data3 a
data3 b


Keyword4
data4 a
data4 b

输出：

D:\learning\perl>sc4.pl
Keyword3 => ARRAY(0x18418fc)
Keyword1 => ARRAY(0x28925c)
Keyword2 => ARRAY(0x2892fc)
Keyword4 => ARRAY(0x184360c)

实际上，我认为Keyword1值（data1 a，只有一行）是ARRAY。但输出仍显示它是一个阵列。

您能否就如何正确打印提出一些建议。

赞赏您的意见。

[更新]

我更新while loop的代码以尝试打印values数组。但仍然失败了。

while ( my ($k,@v) = each %data ) {
    print "$k\n";
    foreach (@v) {
    print Dumper (@v);
    print "$_\n";
    }
}

输出：

D:\learning\perl>sc4.pl
Keyword3
$VAR1 = [
          'data3 a',
          'data3 b'
        ];
ARRAY(0x189a674)
Keyword1
$VAR1 = [
          'data1 a'
        ];
ARRAY(0x28925c)
Keyword2
$VAR1 = [
          'data2 a',
          'data2 b',
          'data2 c'
        ];
ARRAY(0x2892fc)
Keyword4
$VAR1 = [
          'data4 a',
          'data4 b'
        ];
ARRAY(0x1841a74)

我已经定义了while循环包含的另一个foreach循环来处理数组值。但它效果不好。我不知道为什么？

Answer 1

首先，您需要通过“排序”来定义您的意思。你按键排序吗？按值？

如果您按键排序，最简单的方法是使用Perl的内置排序：

foreach (sort keys %data) {
    print "$_ => $data{$_};
}

如果要按值排序，可以定义按值排序的匿名排序函数：

foreach (sort {$data{$a} <=> $data{$b}} keys %data) {
    print "$_ => $data{$_};
}

如果你想要任何其他排序，你可以定义一个对全局变量$a和$b进行操作的函数（它们由sort自动设置）并返回{{1 }}，-1或0，具体取决于排序顺序。

如果你必须使用1循环，我需要多考虑一下。

Answer 2

我知道最简单的方式：

use Smart::Comments;
...
### %data

见Smart::Comments。

我确定，这不是你想要做的最后一步。但它适用于你只想查看你收集的内容的情况。

另一种方式是类似的：

use Data::Dumper; 
say Data::Dumper->Dump( [ \%data ], [ '*data' ] );

Answer 3

最终，我找到了在Perl中打印数组Array的解决方案。

我更新了While Loop，如下所示。

while ( my ($k,@v) = each %data ) {
    print "$k\n";
    print Dumper (@v);
    for (my $i = 0; $i < @v; $i++) {
        for (my $j = 0; $j < @{$v[$i]}; $j++) {
             print STDOUT "\$i: " . $i . " \$j: " . $j . " value: " . $v[$i][$j] . "\n";
        }
    }
}

输出：

D:\learning\perl>sc4.pl
Keyword3
$VAR1 = [
          'data3 a',
          'data3 b'
        ];
$i: 0 $j: 0 value: data3 a
$i: 0 $j: 1 value: data3 b
Keyword1
$VAR1 = [
          'data1 a'
        ];
$i: 0 $j: 0 value: data1 a
Keyword2
$VAR1 = [
          'data2 a',
          'data2 b',
          'data2 c'
        ];
$i: 0 $j: 0 value: data2 a
$i: 0 $j: 1 value: data2 b
$i: 0 $j: 2 value: data2 c
Keyword4
$VAR1 = [
          'data4 a',
          'data4 b'
        ];
$i: 0 $j: 0 value: data4 a
$i: 0 $j: 1 value: data4 b

关于Hash排序和打印的问题

3 个答案: