Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re^8: How to combine these 2 subroutines in one?

by Athanasius (Chancellor)
on Apr 04, 2014 at 09:36 UTC ( #1081093=note: print w/replies, xml ) Need Help??

in reply to Re^7: How to combine these 2 subroutines in one?
in thread How to combine these 2 subroutines in one?


That is, provided that the passed-in-array does not itself contain references. For the purpose of this exercise, you may know that it won’t, but in the general case, it might, which is why a solution using wantarray may be preferable here, as explained above.

Note that “empty” here means the empty string, i.e. "", so to make the test more robust you could write:

my $type_of_arg = ref $_[0]; if ($type_of_arg eq "ARRAY") { # Handle an array reference } elsif ($type_of_arg eq "") { # Handle an array } else { die "Unexpected reference type '$type_of_arg': $!"; }

Hope that helps,

Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,

Replies are listed 'Best First'.
Re^9: How to combine these 2 subroutines in one?
by Anonymous Monk on Apr 04, 2014 at 09:41 UTC
    Thank you so much for these tips, references have always been a headache to me... Actually, I don't quite understand what do we use them for, I need to study up on this more!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1081093]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (10)
As of 2017-11-24 12:24 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (348 votes). Check out past polls.