How to traverse through a array reference

[talwar]

Hi

I am having problems going through the hash reference and outputting the result.

Can someone tell me how to traverse thorugh the output of "p4 info" using Perl.
p4 info is a command in perforce.

Is there any way I can increment an address and look what is stored inside till I hit EOF just like C . The reason is that this array could be an array of hashes or array of arrays or any mixed combination.

Any help is greatly appreciated ?

sub run_info()
  {
     my $key;
     my $value;
     my $p4_info;
     my $val;
     $p4_info = $p4->Run( "info" );
 
## p4_info is a reference to an array but I dont know what is inside that array.
##    p4_info is ARRAY(0x226f8c) 
 
     print ("\n p4_info is $p4_info \n");
    #my $ref = \@p4_info;
    foreach  $key ( sort keys %{$p4_info})
   {
  print( $key, "->  \n" );
         #print @{$p4_info->{"clientAddress"};
        }
  }

Thanks
Sunny

[KevinADC]

if $p4_info is an array:

foreach my $line (@{$p4_info}) {
   print "$line\n";
}

if $p4_info is a hash:

foreach my $key (keys %{$p4_info}) {
   print "$key = $pf_info->{$key}\n";
}

if you need to check what type of a reference something is use the ref() function. A simple example:

my $ref = ref($p4_info);
if ($ref eq 'ARRAY') {
    its an array
}
elsif ($ref eq 'HASH') {
   its a hash
}
else {
   its something else
} 

[eWish]

If you want to see what is inside an array or hash you can use Data::Dumper

If you want to loop through an array reference you can use the following.

my @my_array = qw/1 2 3 4 5 6 7 8 9 10/;
 
my $array_ref = \@my_array;
 
#Data::Dumper apporach
print Dumper(\$array_ref), "\n";
 
#Print each elemnt of the array reference joined with a newline
print join "\n", @{$array_ref};
 
#Loop through each element of the array reference
for (@{$array_ref}) {
    print $_, "\n";
}

--Kevin