in reply to Can't use string "1" as a HASH ref while "strict refs" in use

one of those is simply a scalar. to find out which add this code precursing that line 
print "ref of switchnum = ref($switchnum) \n
       ref of calltype = ref($calltype) \n";

[download]
The one that is ne "HASH" is your culprate

Tradez
"Never underestimate the predicability of stupidity"
- Bullet Tooth Tony, Snatch (2001)

Replies are listed 'Best First'.
Re: Re: Can't use string "1" as a HASH ref while "strict refs" in use
by Juerd (Abbot) on Mar 04, 2002 at 19:55 UTC
    Let's try: 
    my $switchnum = 15;
my $calltype = []; # Empty array ref
print "ref of switchnum = ref($switchnum) \n
       ref of calltype = ref($calltype) \n";

    [download]
    It prints: 
    ref of switchnum = ref(15) 

       ref of calltype = ref(ARRAY(0x1234567))

    [download]


    Guess what: you can't interpolate functions that way :)

    Try this one: 
    ref(eval "\$$_") or warn "\$$_ is not a reference" for qw(switchnum ca
+lltype);

    [download]

    ++ vs lbh qrpbqrq guvf hfvat n ge va Crey :)
Nabgure bar vs lbh qvq fb jvgubhg ernqvat n znahny svefg.
-- vs lbh hfrq OFQ pnrfne ;)
    - Whreq

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom