Mega Code Archive

 

Categories / Perl / Language Basics

 

Local element

#!/usr/bin/perl our @array=(1,2,3); {     local $array[1]=4;     print @array,"\n"; } print @array,"\n",