Revision: 41505
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at February 19, 2011 03:30 by Mazzaroth
Initial Code
sub pretty_print_array {
my ( $title, @array) = @_;
my $numb = $#array +1;
print "Array : $title ($numb entries)\n";
for $line (@array)
{
print "\t'$line'\n";
}
print "=========================\n\n";
}
Initial URL
Initial Description
Initial Title
pretty-print array
Initial Tags
Initial Language
Perl