Perl新手在这里...我用这个工作perl脚本的一些HASH代码的帮助，我只需要帮助理解代码，如果它可以写的方式，我会理解使用HASHES更容易或视觉？ 总之，该脚本执行一个正则表达式来过滤日期，剩下的正则表达式将提取与该日期相关的数据。 use strict;
use warnings;
use constant debug => 0;
my $mon = 'Jul';
my $day
如果可能，我需要帮助将数据从散列/散列引用打印到STDOUT或具有 数据的文件。 我有一个使用像这样的哈希引用一个perl程序： #!/usr/local/bin/perl
use strict;
use warnings;
use File::Basename;
use Data::Dumper;
my %MyItems;
my $ARGV ="/var/logdir/serve
我有一个perl脚本只保留命名集合的最后一组记录，而且我有一组以上的记录。所以它将数据写入散列并保留最后一组。我需要帮助打印出所有记录。 谢谢！ 这里是我的脚本的副本： #!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
my ($ServerName)[email protected];
my %MyI
我有散列的散列，像这样：
%hash = (a => { b => 1, c =>2, d => 3},
a1 => { b => 11, c =>12, d => 13},
a2 => { b => 21, c =>22, d => 23})
我要提取的“b”的元件，并把它放到一个数组。现在，我正在通过哈希循环来做到这一点，但我认为我可以通过使用map来改善效