我需要帮助将散列/散列引用中的数据打印到STDOUT或文件中 如果可能，按特定顺序排列数据。
我有一个使用哈希引用的perl例程：
#!/usr/local/bin/perl
use strict;
use warnings;
use File::Basename;
use Data::Dumper;
my %MyItems;
my $ARGV ="/var/logdir/server1.log";
my $mon = 'Aug';
my $day = '06';
my $year = '2010';
while (my $line = <>)
{
chomp $line;
if ($line =~ m/(.* $mon $day) \d{2}:\d{2}:\d{2} $year: ([^:]+):backup:/)
{
my $server = basename $ARGV, '.log';
my $BckupDate="$1 $year";
my $BckupSet =$2;
$MyItems{$server}{$BckupSet}->{'MyLogdate'} = $BckupDate;
$MyItems{$server}{$BckupSet}->{'MyDataset'} = $BckupSet;
$MyItems{$server}{$BckupSet}->{'MyHost'} = $server;
if ($line =~ m/(ERROR|backup-size|backup-time|backup-status)[:=](.+)/)
{
my $BckupKey=$1;
my $BckupVal=$2;
$MyItems{$server}{$BckupSet}->{$BckupKey} = $BckupVal;
}
}
}
foreach( values %MyItems ) {
print "MyHost=>$_->{MyHost};MyLogdate=>$_->{MyLogdate};MyDataset=>$_->{MyDataset};'backup-time'=>$_->{'backup-time'};'backup-status'=>$_->{'backup-status'}\n";
}
使用转储器输出：
$VAR1 = 'server1';
$VAR2 = {
'abc1.mil.mad' => {
'ERROR' => ' If you are sure is not running, please remove the file and restart ',
'MyLogdate' => 'Fri Aug 06 2010',
'MyHost' => 'server1',
'MyDataset' => 'abc1.mil.mad'
},
'abc2.cfl.mil.mad' => {
'backup-size' => '187.24 GB',
'MyLogdate' => 'Fri Aug 06 2010',
'MyHost' => 'server1',
'backup-status' => 'Backup succeeded',
'backup-time' => '01:54:27',
'MyDataset' => 'abc2.cfl.mil.mad'
},
'abc4.mad_lvm' => {
'backup-size' => '422.99 GB',
'MyLogdate' => 'Fri Aug 06 2010',
'MyHost' => 'server1',
'backup-status' => 'Backup succeeded',
'backup-time' => '04:48:50',
'MyDataset' => 'abc4.mad_lvm'
}
};
我希望看到的输出格式：
MyHost=>server1;MyLogdate=>Fri Aug 06 2010;MyDataset=>abc2.cfl.mil.mad;backup-time=>Fri Aug 06 2010;backup-status=>Backup succeeded
刚刚加入（8/7/2010）： 我正在使用的示例原始日志文件:(最近添加以提供更好的源日志表示）
Fri Aug 06 00:00:05 2010: abc2.cfl.mil.mad:backup:INFO: backup-set=abc2.cfl.mil.mad
Fri Aug 06 00:00:05 2010: abc2.cfl.mil.mad:backup:INFO: backup-date=20100806000004
Fri Aug 06 00:48:54 2010: abc4.mad_lvm:backup:INFO: backup-size=422.99 GB
Fri Aug 06 00:48:54 2010: abc4.mad_lvm:backup:INFO: PHASE END: Calculating backup size & checksums
Fri Aug 06 00:48:54 2010: abc4.mad_lvm:backup:INFO: backup-time=04:48:50
Fri Aug 06 00:48:54 2010: abc4.mad_lvm:backup:INFO: backup-status=Backup succeeded
Fri Aug 06 00:48:54 2010: abc4.mad_lvm:backup:INFO: Backup succeeded
答案 0 :(得分：1)
我花了一些时间查看你的代码，我想我已经弄明白了。
这个很难回答的原因是你无意中种了一个红鲱鱼 - 数据转储器输出。
注意它如何显示$VAR1 = 'server1';然后显示$VAR2 = { blah };。
你这样称呼Dumper：print Dumper %MyItems;
问题是Dumper想要转储值列表，因为Perl会使列表变平，复杂的结构必须通过引用传递。所以，你需要像这样调用Dumper：
print Dumper \%MyItems;
这显示了整个结构。
如果您之前调用了dumper，则无意中剥离了数据结构的一层。建议的解决方案和您自己的代码都在这个剥离的结构上运行。
在这里，我使用了一些代码来处理额外的嵌套层（并使其与Perl 5.8兼容）：
for my $server_items ( values %MyItems ) {
for my $record ( values %$server_items ) {
print join ';', map {
# Replace non-existant values with 'undef'
my $val = exists $record->{$_} ? $record->{$_} : 'undef';
"'$_'=>$val" # <-- this is what we print for each field
} qw( MyHost MyLogdate MyDataset backup-time backup-status );
print "\n";
}
}
看起来你有很多问题需要一些帮助来了解一些概念。我建议您在Perl Wisdom的搜索者中发布Perlmonks请求以帮助改进您的代码。 SO非常适合专注的问题，但PM更适合代码返工。
**原始答案：**
要解决我无法复制的任何解析问题，我只需将%MyItems设置为您提供的Dumper输出。
您在上面提到的警告与您在打印声明中的所有复杂引用和重复编码有关。我已使用map替换了您的print语句以简化代码。
神圣的废话，一个大的联合地图等等并不简单，你可能会想。但实际上，它更简单，因为每个单独的表达单元都更小。什么更容易理解和正确？什么更容易改变和维持在一个正确和一致的庄园？
print "'foo'=>$_->{foo};'bar'=>$_->{bar};boo'=>$_->{boo};'far'=>$_->{far}\n";
或
say join ';', map {
"'$_'=>$item->{$_}"
} qw( foo bar boo far );
在这里，您只需更改传递给map的参数列表即可添加，删除或重新排列输出。对于另一种风格，你需要做一堆复制/粘贴。
我在下面使用的地图有点复杂，因为它在打印值之前检查是否定义了给定的键，如果没有则指定默认值。
#!perl
use strict;
use warnings;
use feature 'say';
my %MyItems = (
'abc1.mil.mad' => {
'ERROR' => ' If you are sure is not running, please remove the file and restart ',
'MyLogdate' => 'Fri Aug 06 2010',
'MyHost' => 'server1',
'MyDataset' => 'abc1.mil.mad'
},
'abc2.cfl.mil.mad' => {
'backup-size' => '187.24 GB',
'MyLogdate' => 'Fri Aug 06 2010',
'MyHost' => 'server1',
'backup-status' => 'Backup succeeded',
'backup-time' => '01:54:27',
'MyDataset' => 'abc2.cfl.mil.mad'
},
'abc3.mil.mad' => {
'backup-size' => '46.07 GB',
'MyLogdate' => 'Fri Aug 06 2010',
'MyHost' => 'server1',
'backup-status' => 'Backup succeeded',
'backup-time' => '00:41:06',
'MyDataset' => 'abc3.mil.mad'
},
'abc4.mad_lvm' => {
'backup-size' => '422.99 GB',
'MyLogdate' => 'Fri Aug 06 2010',
'MyHost' => 'server1',
'backup-status' => 'Backup succeeded',
'backup-time' => '04:48:50',
'MyDataset' => 'abc4.mad_lvm'
}
);
for my $record ( values %MyItems ) {
say join ';', map {
my $val = $record->{$_} // 'undef'; # defined-or requires perl 5.10 or newer.
"'$_'=>$val" # <-- this is what we print for each field
} qw( MyHost MyLogdate MyDataset backup-time backup-status );
}
答案 1 :(得分：0)
未经测试，但理论上应该有效。这将为主要MyItems哈希打印每个键的输出行。如果你想在一行上完成所有操作，你可以删除\ n或添加一些其他分隔符。
foreach( values %MyItems ) {
print "MyServer=>$_->{MyServer};MyLogdate=>$_->{MyLogdate};MyDataset=>$_->{MyDataset};backup-time=>$_->{backup-time};backup-status=>$_->{backup-status}\n";
}
答案 2 :(得分：0)
没有回答你提出的问题，但这对我来说似乎不合理。
你想要一个哈希数组而不是哈希哈希值。
如果您想订购它们，则不订购哈希，然后使用数组。
答案 3 :(得分：0)
感谢大家投入他们的帮助...... 这对我有用。
for my $Server(keys%MyItems){
for my $BckupSet(keys%{$MyItems{$Server}}){
for(sort keys%{$MyItems{$Server}{$BckupSet}}){
print$_,'=>',$MyItems{$Server}{$BckupSet}{$_},';';
}
print"\n";
}
}