in reply to How to Check whether the Function Parameter is a Scalar or a Hashref

ref is your friend 
SWITCH: for (ref $param) {
  /HASH/ && do {
    # Do something for hash ref
    last SWITCH;
  };
  /^$/ && do {
    # Do something for scalar
    last SWITCH;
  };
}

[download]
You ccan also add whatever else you might need, like: 
  /ARRAY/ && do {
    # Do something for array ref
    last SWITCH;
  };

[download]
$\=~s;s*.*;q^|D9JYJ^^qq^\//\\\///^;ex;print

Replies are listed 'Best First'.
Re^2: How to Check whether the Function Parameter is a Scalar or a Hash
by Ovid (Cardinal) on Oct 05, 2005 at 23:25 UTC

    Be careful about ref $data. If it's blessed, your checks will fail. Whether or not that matters, of course, depends upon the needs of the particular program.

    Cheers,
    Ovid

    New address of my CGI Course.

[reply]
      If it's blessed, your checks will fail.

      For some not very good definitions of fail...

      Maybe I'm missing your point? The way I see it, if anyone actually needs to heed your warning† either they are clever enough to work it out on their own or their design is questionable and should probably be fixed.

      The documented behavior—ref returning the package a blessed ref has been blessed into—seems totally sane to me. If ref still returned "HASH" and you could find yourself in the position of unknowingly violating the documented interface for some thingy, I'd consider that a far worse failure condition; wouldn't you?

      It's true that Perl gives you enough rope to hang yourself with... but shouldn't we warn people about looping that rope around their neck instead of just warning them about an arbitrary foot long section of the rope itself?

      † For some reason, this reminds me of the warning on some blow dryers: "Do not use while showering or bathing."

      -sauoq
"My two cents aren't worth a dime.";
[reply]
[d/l]
[select]
Re^2: How to Check whether the Function Parameter is a Scalar or a Hash
by radiantmatrix (Parson) on Oct 06, 2005 at 18:29 UTC

    Another way to explain the same thing (since it took me a minute to parse the above code: I'm sure someone thinks as weirdly as I do!): 

    sub href_or_scalar {
    my $param = shift;
    my ($is_scalar, $is_hashref) = (0,0);
    if ( ! ref $param ) {
        $is_scalar = 1;
    }
    elsif ( ref $param eq 'HASH' ) {
        $is_hashref = 1;
    }
    else {
        die("I only accept a scalar or a HASHref!");
    }

    print STDERR "'$param' is: (scalar => $is_scalar, hashref => $is_h
+ashref)\n";
}

href_or_scalar( 'hello!');
href_or_scalar( 'HASH' );
href_or_scalar( { key => 'value' } );
href_or_scalar( [ 'key' => 'value' ] );

__END__
'hello!' is: ( scalar => 1, hashref => 0)
'HASH' is: ( scalar => 1, hashref => 0)
'HASH(0x225490)' is: ( scalar => 0, hashref => 1)
I only accept a scalar or a HASHref! at c:\test.pl line 12.

    [download]
    <-radiant.matrix->
    A collection of thoughts and links from the minds of geeks
    The Code that can be seen is not the true Code
    "In any sufficiently large group of people, most are idiots" - Kaa's Law
[reply]
[d/l]
Re^2: How to Check whether the Function Parameter is a Scalar or a Hash
by Roy Johnson (Monsignor) on Oct 06, 2005 at 16:39 UTC
    Per Ovid's cautions, it is more robust to use UNIVERSAL::isa than ref if you are looking for a specific base type.
    Caution: Contents may have been coded under pressure.
[reply]

In Section Seekers of Perl Wisdom