Mega Code Archive

 

Categories / Perl / Subroutine

 

Returning arrays from subroutines

#!/usr/bin/perl -w # Checks for desired return type. @ar = get_value(); print "Wanted array.  Got back: @ar\n"; $v = get_value(); print "Wanted scalar. Got back: $v\n"; sub get_value {     my(@array) = (1, 2, 3);     my($val)   = 55;          if (wantarray) {         return @array;     } else {         return $val;     }      }