function input may be hash ref

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I'm maintaining code that was handling only numerical inputs. Now the input may be a hash reference or a number. How can I filter out the hash reference inputs? My code is sort of like this now:

if ($val =~ /^([\d]+)\'[b]([01]+)$/) 
   {
     $strlen = $1;
     my $binstr = $2;
     #do things ...
   }
else
   { 
    print "Wrong kind of input";
   }
[download]

Comment on function input may be hash ref Download Code

Replies are listed 'Best First'.
Re: function input may be hash ref by tobyink (Canon) on Mar 14, 2013 at 18:36 UTC
`if (ref $val eq "HASH") { ... }` [download] or if you wish to also accept values that are "hashref-like" (e.g. blessed hashrefs, objects overloading `%{}`), then: `use Scalar::Does; if (does $val, "HASH") { ... }` [download] `package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name`	[reply] [d/l] [select]
Re: function input may be hash ref by toolic (Bishop) on Mar 14, 2013 at 18:35 UTC
ref	[reply]
Re: function input may be hash ref by arnaud99 (Beadle) on Mar 14, 2013 at 18:52 UTC
Hi Using ref to filter out the references you do no wish to process. use Modern::Perl; my $array_ref = ["12'b01", "1333'b011111"]; my @vals = ( "12'b01", "1333'b011111", $array_ref, # one array ref; "aa'b01", "12'b01", { a=>1 }, #hash ref {}, # another hash ref [ "12'b01", "1333'b011111"], #another array ref "12'b01", ); foreach my $val(@vals) { if (ref $val eq 'ARRAY' or ref $val eq 'HASH' ) { say "This is an array or hash ref: Don't process", } elsif ($val =~ /^([\d]+)\'[b]([01]+)$/) { my $strlen = $1; my $binstr = $2; #do things ... say "Found: ", $strlen, ", ", $binstr; } else { say "Wrong kind of input: $val"; } } [download] Output `Found: 12, 01 Found: 1333, 011111 This is an array or hash ref: Don't process Wrong kind of input: aa'b01 Found: 12, 01 This is an array or hash ref: Don't process This is an array or hash ref: Don't process This is an array or hash ref: Don't process Found: 12, 01` [download] Arnaud.	[reply] [d/l] [select]