程嶏清单10-9.txt

< linux网络编程工具>>配套源码

($array_ref, $hash_ref) = somefunc();
sub somefunc {
    my @array;
    my %hash;
    @array = (0..5);
    %hash = (1=>"Jan",2=>"Feb",3=>"Mar");
    return ( \@array, \%hash );
}
print "The element of the array is :\n@$array_ref\n";
@hash_Array = %$hash_ref;
print "The element of the hash is : \n";
$i = 0;
foreach $ele (@hash_Array) {
$i++;
print $ele;
if ($i % 2 == 1) {
   print " => ";
   next;
}
print "\n"
}