Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

james28909's scratchpad

by james28909 (Deacon)
on Feb 11, 2013 at 08:51 UTC ( #1018107=scratchpad: print w/replies, xml ) Need Help??

sub this{ my ($input) = @_; my %hash = (hash => example); my @array = qw(array example); my $scalar = "scalar example"; query(%hash); #renamed get_data to query ;) query(@array); query($scalar); } sub query{ my ($var) = @_; my $data_type = ref($var); if($daya_type eq 'ARRAY'){ print "is array\n"; return @array }; #d +o functions here for get_array if($data_type eq 'HASH') {print "is hash\n"; return %hash }; #do f +unction here for get_hash .... ect .... } this is untested as well, just as example to understand what i mean
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2019-09-15 07:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The room is dark, and your next move is ...












    Results (178 votes). Check out past polls.

    Notices?