How to access a class property that is a hash

x_terminat_or_3 · 09-04-2007, 05:32 PM

Hi all

I am trying to access a hash that is a member of a the class.

It tells me, however, that:

Can't coerce array into hash

Here is the code

Code:

package llexample
	sub new {

		my $strClass=shift;

		my $self={

			'strConnectionName'=>shift,
			'intProtocolVersion' => (((shift)-0)==0x34?0x34:0x33),
			'strHostName' => shift,
			'strUserName' => shift,
			'strPassword' => shift,
			'hashNetworks' => shift
		};

		my $objOut=bless $self,$strClass;

		return $objOut;
	}

	sub showhash {

		my $this=shift;

		while(my $key=keys %{$this->{'hashNetworks'}}) {

			print "$key\n";
		}
	}
}

my $c=new llExample('param',0x33,'param','param','param',\@myhash);

$c->showhash();

Will throw the error on the line that has the 'while'.

Can somebody please tell me the correct way to access a hash that is a property of a class.

graemef · 09-04-2007, 08:07 PM

It's not clear which language you are using... sub's is this basic?
or maybe Perl?

chrism01 · 09-04-2007, 08:21 PM

I'd say Perl, but in the call my $c=new llExample... the last param (\@myhash) is being passed as an array ref, but named as 'myhash'.
I'd say that's wrong for a start?

x_terminat_or_3 · 09-05-2007, 01:35 AM

Sorry it is Perl indeed. And I do have some issues grasping the different types of perl. I thought I was using a hash but it is actually an array of hashes. . .

chrism01 · 09-05-2007, 03:19 AM

Well, I've never messed with OO Perl, so I'll pass (although correct var naming definitely helps in debugging).
These guys ( http://www.perlmonks.org/ ) are the experts.

x_terminat_or_3 · 09-05-2007, 09:43 AM

Thanks for the link