sub load_array($$) <br> { <br> my ($a_ref, $file) = @_;<br> open (FILE, $file) or die "Can't open $file:$!\n";<br> @{$a_ref} = <FILE>; <br> close FILE; <br. chomp @{$a_ref}; }
In reply to Explaining by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |