Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
print (($arr_ref1->[0]) ? "arr_ref1 is defined\n" : "arr_ref1 is not d
+efined\n");
print (($arr_ref2->[0]) ? "arr_ref2 is defined\n" : "arr_ref2 is not d
+efined\n");

Select or download this

arr1 is defined
arr2 is not defined
...
arr_ref2 is defined
arr_ref1 is defined
arr_ref2 is not defined