DataDumper Tests

#!/opt/bin/perl -w use Data::Dumper; my @aray = qw(one two three four); my $nu2 = $#aray; my %hash = ("One" => 1,"Two" => 2,"Three" => 3,"Four" => 4); my $nu3 = $#hash; print "Content-type: text/html\n
"; print "DataDumper Tests\n
"; print "\nFile generated by $0 running Perl $]\n\n
"; print "$nu2\n
"; print "$#aray\n
"; print "$nu3\n
"; print "\n"; print "\n"; #print "

Array Var

\n"; print "

\n";
print "\@aray:
",Dumper(\@aray);
print "

\n"; print "

\n"; print "\n"; %hsah = reverse %hash; print "

hash	\n"; print " \n"; print Dumper(\%hash); print " \n"; print "
hash hsah	\n"; print " \n"; print Dumper(\%hash, \%hsah); print " \n"; print "

"; print "\n"; #print "\nDone\n";