push @{$hash->{IP}}, [ @row ];
[download]

my @rows;
my @newrows;
my @printrows;
my %newhash;
@{%newhash->{$value}};

$rows[0] = "IP";
$newrows[0] = "value1";
$newrows[1] = "value2";

push (@{%newhash->{$rows[0]}}, @newrows);
push (@{%newhash->{$rows[0]}}, @newrows);

print "\n";
foreach $key (sort keys %newhash) {
print "key: $key\n";
@printrows = %newhash->{$key};
print $printrows[0][0];
# should be Value1?
print $printrows[1][1];
# should be Value2?
print "\n";
}
[download]

tried it with:

[ @row ]
[download]

and printrows 0,0 just gave me an array. Thanks again.

First of all, you should probably add a 'use strict;' at the top of your code. It will show you a couple of problems with the code you presented above.

Second, if you are having problems with data structures, and they are not doing what you want, use Data::Dumper to see what is actually happening. Add the following code snippet after you have built your data structure:

use Data::Dumper;
print Dumper(\%newhash);
[download]

When I ran your code with this, it gave me the following:

$VAR1 = {
          'IP' => [
                    'value1',
                    'value2',
                    'value1',
                    'value2'
                  ]
        };
[download]

So the code is not doing what think it is doing.

I hope that gives you enough to continue.

- Cees

btw, $printrows 0,3 gives the value of what I think should have gone into $printrows 1,1 -- value2. That is what I meant by everything being added to 0 rather than X.

First things first... %hash->{"IP"} ... don't use that syntax. It's deprecated. It isn't widely used. It is easily confused with a dereference. Did I mention that it's deprecated? It was only by accident that it worked in the first place. It's long and ugly. Oh, and it is deprecated too. Don't use it. Use $hash{IP} instead. You'll be doing yourself a favor.

Ok, now that that is out of the way, let's rewrite your code a bit. We'll clean up the indenting, combine the declarations and initializations, and remove a little cruft. Let's get rid of your @rows array too; it isn't necessary for this example (all you use it for is to hold the value 'IP'.) We can also get rid of your loop at the end because the example only deals with one key: IP.

my @newrows = qw( value1 value2 );
my @printrows;
my %newhash;

push @{$newhash{ IP }}, @newrows;
push @{$newhash{ IP }}, @newrows;

@printrows = $newhash{ IP };
print $printrows[0][0], "\n"; # should be Value1?
print $printrows[1][1], "\n"; # should be Value2?
print "\n";
[download]

Step by step...

push @{$newhash{ IP }}, @newrows;
[download]

After you do it again with

push @{$newhash{ IP }}, @newrows;
[download]

So, that's the mistake you made during construction of your data structure. Now let's take a closer look at how you attempt to use it.

@printrows = $newhash{ IP };
[download]

Moving on...

print $printrows[0][0], "\n"; # should be Value1?
[download]

The next line

print $printrows[1][1], "\n"; # should be Value2?
[download]

You should probably read some of the tutorials that come with perl like perlreftut, perldsc, perllol. For reference, you should also familiarize yourself with perldata.

Good luck!

-sauoq
"My two cents aren't worth a dime.";

Thanks for all your help and links. I fixed up my perl coding a bit now. However, I still have the core problem. To iterate through each row, I have to do something like this:

  my $x = 0;
  while ($printrows[0][$x]) {
                print "First: $rows[0][$x]\n";
                $x++;
                print "Second: $rows[0][$x]\n";
                $x++;
        }
[download]

I really want to do this for each row:

my $x = 0;
  while ($printrows[$x][0]) {
                print "First: $rows[$x][0]\n";
                print "Second: $rows[$x][1]\n";
        }
[download]

Because, then I can reference a row directly without having to do: $x=2 X 15, $rows[0]$x to get to the 15th row.

You should probably forget about using a separate @printrows variable as you are initializing it to contain only one value anyway. Why not just use the original $newhash{ IP }?

That's supposed to be an array reference anyway.

I think I might have a handle on what you are trying to do now...

my %newhash;

push @{ $newhash{IP} }, [ 'row 0, col 0', 'row 0, col 1' ];
push @{ $newhash{IP} }, [ 'row 1, col 0', 'row 1, col 1' ];

# $newhash{ IP } contains a reference to an array with two elements.
# Each element is itself a reference to an array with two elements. 
 
print $newhash{IP}->[0][0], "\n";    # row 0, col 0
print $newhash{IP}->[0][1], "\n";    # row 0, col 1
print $newhash{IP}->[1][0], "\n";    # row 1, col 0
print $newhash{IP}->[1][1], "\n";    # row 1, col 1
[download]

-sauoq
"My two cents aren't worth a dime.";