Re: Detecting Subroutine Input Type

You need ref, like so:

sub thinger {
     my @array;
     if (ref($_[0]) eq 'ARRAY') {
             @array = @$_[0]; 
     } else {
             @array = @_;
     }
     ...

}
[download]

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/

Comment on Re: Detecting Subroutine Input Type Download Code

Replies are listed 'Best First'.
Re: Re: Detecting Subroutine Input Type by Anonymous Monk on May 03, 2004 at 08:21 UTC
`sub thinger { my @array = ( ref($_[0]) eq 'ARRAY' ? @{$_[0]} : @_ ); }` [download]	[reply] [d/l]
Re: Re: Detecting Subroutine Input Type by doran (Deacon) on May 03, 2004 at 16:48 UTC
Well duh! Thanks Chady (and Anon), that's what I was thinking of. Much better than what I was doing.	[reply]