Case 1.
my @out; for ($i = 0; $i<$out_len; ++$i){ $out[$i] = 0;}
Case 2.
my @out = (0) x $out_len;
$out_len = 5; @out = { 0, 0, 0, 0, 0 }
Perl
memset
Retrieved from http://hyacinth.byus.net/moniwiki/wiki.php/Perl/Array memset
last modified 2013-06-07 12:45:19