我有一个要返回的哈希数组。
在返回数组之前,我交叉检查了它。它工作正常。
但是在将哈希数组返回给调用子之后,我无法读取它。
请找到以下代码以供参考..并让我知道如何读取/返回哈希数组
谢谢... :)
#!/usr/bin/perl
use strict;
use warnings;
# Subroutine prototypes
sub get_two_arrays();
my @one=();
@one = get_array_Hashes();
print "\n First: @one->{Version}\n"; // Printing the return array of hashes
sub get_array_Hashes() {
my @dotNetHashArray =();
my $dotNetHash1 = {Version => "Test-1 Version", SP => "installedSp", Build => "installedBuild"};
push @dotNetHashArray, $dotNetHash1;
my $dotNetHash2 = {Version => "Test-2 Version", SP => "installedSp", Build => "installedBuild"};
push @dotNetHashArray, $dotNetHash2;
my $dotNetHash3 = {Version => "Test-3 Version", SP => "installedSp", Build => "installedBuild"};
push @dotNetHashArray, $dotNetHash3;
print "Test Array of hashes before return";
for(my $i=0; $i<@dotNetHashArray; $i++)
{
print("\n Hash Value : ".$dotNetHashArray[$i]->{Version});
}
return \@dotNetHashArray
}