66 lines
1.8 KiB
Perl
66 lines
1.8 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my @array1 = ( "This","is","the","first","array." );
|
||
|
|
my @array2 = ( "This","is","the","second","array." );
|
||
|
|
my %hash = ( Tarzan => "A",
|
||
|
|
Superman => "B",
|
||
|
|
Batman => "C", );
|
||
|
|
my $array3 = [ "A", [ "array", "in", "an", "array" ],
|
||
|
|
{ "B" => "a",
|
||
|
|
"C" => "in",
|
||
|
|
},
|
||
|
|
"D", "E" ];
|
||
|
|
|
||
|
|
printStructures( 5, \@array1, \%hash, \@array2, $array3);
|
||
|
|
|
||
|
|
sub printStructures
|
||
|
|
{
|
||
|
|
my $indent = shift();
|
||
|
|
|
||
|
|
foreach my $element ( @_ ) {
|
||
|
|
unless ( ref( $element ) ) {
|
||
|
|
print( ' ' x $indent, $element, "\n" );
|
||
|
|
}
|
||
|
|
elsif ( ref( $element ) eq 'SCALAR' ) {
|
||
|
|
print( ' ' x $indent, $element, "\n" );
|
||
|
|
}
|
||
|
|
elsif ( ref( $element ) eq 'ARRAY' ) {
|
||
|
|
foreach ( 0 .. $#$element ) {
|
||
|
|
print( ' ' x $indent, "[ $_ ] " );
|
||
|
|
if ( ref( $element->[ $_ ] ) ) {
|
||
|
|
print( "\n" );
|
||
|
|
printStructures( $indent + 3, $element->[ $_ ] );
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
print( "$element->[ $_ ]\n" );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
elsif ( ref( $element ) eq 'HASH' ) {
|
||
|
|
|
||
|
|
foreach my $key ( keys( %$element ) ) {
|
||
|
|
print( ' ' x $indent, $key, ' => ' );
|
||
|
|
|
||
|
|
if ( ref ( $element->{ $key } ) ) {
|
||
|
|
print( "\n" );
|
||
|
|
printStructures( $indent + 3, $element->{ $key } );
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
print( "$element->{ $key }\n" );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
elsif ( ref( $element ) eq 'CODE' ) {
|
||
|
|
print( ' ' x $indent, "CODE\n" );
|
||
|
|
}
|
||
|
|
elsif ( ref( $element ) eq 'GLOB' ) {
|
||
|
|
print( ' ' x $indent, "GLOB\n" );
|
||
|
|
}
|
||
|
|
|
||
|
|
print( "\n" );
|
||
|
|
}
|
||
|
|
}
|