Wierd result from hash array

[Pacman]

I'm getting 'used' to hash arrays and am writing a perl script to
backup my harddrive automatically. I couldn't figure out how to get
the following code to work, so I must be making a mistake I can't see.

Here's my expected result:

foreaching on key one
result: red/green

instead I get the following:

foreaching on key one
two:three
foreaching on key HASH(0x804c014)
:

#!/usr/bin/perl

$BLAH = "one:red:green";

%NADA = {};
($b1,@b2) = split(/:/,$BLAH);
$NADA{$b1} = [@b2];

foreach $k(keys %NADA) {
print "foreaching on key $k\n";
@x = @{$NADA{$k}};
print "result: $x[0]/$x[1]\n";
}

Any help would be great...remove the nospam_ from the email address...

D-

[Pacman]

Made a slight mistake...the actual result I get is:

foreaching on key one
result: red/green
foreaching on key HASH(0x804c014)
:

In article <110920031318586753%piercer@nospam_pacbell.net>, Pacman
<piercer@nospam_pacbell.net> wrote:

> I'm getting 'used' to hash arrays and am writing a perl script to
> backup my harddrive automatically. I couldn't figure out how to get
> the following code to work, so I must be making a mistake I can't see.
>
> Here's my expected result:
>
> foreaching on key one
> result: red/green
>
> instead I get the following:
>
> foreaching on key one
> two:three
> foreaching on key HASH(0x804c014)
> :
>
> #!/usr/bin/perl
>
> $BLAH = "one:red:green";
>
> %NADA = {};
> ($b1,@b2) = split(/:/,$BLAH);
> $NADA{$b1} = [@b2];
>
> foreach $k(keys %NADA) {
> print "foreaching on key $k\n";
> @x = @{$NADA{$k}};
> print "result: $x[0]/$x[1]\n";
> }
>
> Any help would be great...remove the nospam_ from the email address...
>
> D-

--
#############
Imagination is more important than knowledge - A. Einstein

[Matija Papec]

X-Ftn-To: Pacman

Pacman <piercer@nospam_pacbell.net> wrote:

>backup my harddrive automatically. I couldn't figure out how to get
>the following code to work, so I must be making a mistake I can't see.
>
>Here's my expected result:
>
>foreaching on key one
>result: red/green
>
>instead I get the following:
>
>foreaching on key one
>two:three
>foreaching on key HASH(0x804c014)

use diagnostics;

could tell you lot of useful things.


--
Matija

[James E Keenan]

"Pacman" <piercer@nospam_pacbell.net> wrote in message
news:110920031318586753%piercer@nospam_pacbell.net ...

>
>
> I'm getting 'used' to hash arrays and am writing a perl script to
> backup my harddrive automatically. I couldn't figure out how to get
> the following code to work, so I must be making a mistake I can't see.
>
> Here's my expected result:
>
> foreaching on key one
> result: red/green
>
> instead I get the following:
>
> foreaching on key one
> two:three
> foreaching on key HASH(0x804c014)
> :
>
> #!/usr/bin/perl
>
> $BLAH = "one:red:green";
>
> %NADA = {};

This line is your problem. You probably meant: %NADA = ();

You would have discovered this if you had enable warnings (or diagnostics,
as another poster indicated).

jimk