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 https://hyacinth.kr:443/moniwiki/wiki.php/perl/Array memset
last modified 2013-06-07 12:45:19