Stumped on an array ref error...

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

Hey all does any one know why this line

if ((exists $cacheHOA{$sum} ) && ($#{$cacheHOA{$sum}} <= 7)){...}
[download]

gives me the following error?

Can't use string ("c:\usr\local\bin\PixNews99\Downl") as an ARRAY ref 
+while "strict refs" in use at c:\usr\local\bin/md5summing.pl line 308
+, <STDIN> line 4.
[download]

I am running under -w and use strict;. %cacheHOA is a hash of arrays $sum is a an md5 hashval being used as a hash key. I don't understand why the string pops up (it is part of a file name for one of the files being checked) as i'm checking here to see if the key exists and that the anon array hanging off the key has seven or less members.

Dudes i'm stumped...

thanx
_________________
madams@scc.net

              (__)
              (\/)
       /-------\/
      / | 666 ||
     *  ||----||
[download]

Comment on Stumped on an array ref error... Select or Download Code

Replies are listed 'Best First'.
Re: Stumped on an array ref error... by wog (Curate) on Oct 07, 2001 at 06:49 UTC
The problem is that for `@{$cacheHOA{$sum}}` to be an array, then `$cacheHOA{$sum}` must be an arrayref. You are trying to use `$cacheHOA{$sum}` as a string and an arrayref, but perl only has it as the last thing it was set has, which appears to be string (the file name) in this case.	[reply] [d/l] [select]
Re: Re: Stumped on an array ref error... by Madams (Pilgrim) on Oct 07, 2001 at 07:17 UTC
Hey wog I don't see where i'm trying to use `$cacheHOA{$sum}` as a string. Per `perlfunc`: `exists EXPR Given an expression that specifies a hash element or array element, re +turns true if the specified element in the hash or array has ever bee +n initialized, even if the corresponding value is undefined. The elem +ent is not autovivified if it doesn't exist.` [download] That doesn't seem to imply any certain context scalar or other.. This is just stumping me... _________________ madams@scc.net `(__) (\/) /-------\/ / \| 666 \|\| * \|\|----\|\|` [download]	[reply] [d/l] [select]
Re: Re: Re: Stumped on an array ref error... by wog (Curate) on Oct 07, 2001 at 07:21 UTC
The exsits operation is not the problem. What the error message says is that `$cacheHOA{$sum}` contains a string, apparently a file name, and when you do `$#{$cacheHOA{$sum}}` you are trying to use that string as an arrayref. You have not given enough code to show us where you are setting`$cacheHOA{$sum}` to a string, removing the arrayref that, presumably, was in there.	[reply] [d/l] [select]
Re: Re: Re: Re: Stumped on an array ref error... by Madams (Pilgrim) on Oct 07, 2001 at 07:53 UTC
Re: Re: Re: Re: Re: Stumped on an array ref error... by wog (Curate) on Oct 07, 2001 at 08:22 UTC
Context is King by chromatic (Archbishop) on Oct 07, 2001 at 21:49 UTC
dereference the array ref by boo_radley (Parson) on Oct 07, 2001 at 06:51 UTC
using the last index (`$#`) requireds an array. `($#{$cacheHOA{$sum}}` is trying to use it on a scalar, not an array. This is untested, but maybe `($#{@{$cacheHOA{$sum}}}` would work. Update Well,I'll be damned.	[reply] [d/l] [select]
Re: dereference the array ref by Madams (Pilgrim) on Oct 07, 2001 at 07:05 UTC
Hey boo_radley Tried your possible fix but that gives me the EXACT same error msg. P.S: the last array index operation on that line comes straight from `perldsc` sigh... _________________ madams@scc.net `(__) (\/) /-------\/ / \| 666 \|\| * \|\|----\|\|` [download]	[reply] [d/l] [select]
Re: dereference the array ref by wog (Curate) on Oct 07, 2001 at 07:06 UTC
For the record, this is not correct. An arrayref can be used where an array name would otherwise appear, and thus Madams syntax is correct.	[reply]
Re: Stumped on an array ref error... by Madams (Pilgrim) on Oct 07, 2001 at 08:39 UTC
It works now! Yeah!!! I want to thank wog and boo for their (sp?) help. My fix is here (this link is just so's you don't have to scroll to look for it). Thank you for you very helpful and kind assistance. P.S: wog that bit about using brackets is kind of a "d'oh..I shoulda knowed that!", i `use Tk;` alot so that should've reached out and smacked me ;) _________________ madams@scc.net `(__) (\/) /-------\/ / \| 666 \|\| * \|\|----\|\|` [download]	[reply] [d/l] [select]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks