for $key (keys %$c) {
  next unless $key =~ /^[AP]M_\d+$/;
  push @{$a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}},
          $c->{$key} if $c->{$key};
}
[download]

                - Ant
                - Some of my best work - Fish Dinner

suaveant, I love ya :)

your last awnser just helped me out, Thanks alot!!

it's 18.24 PM here, so gonna quit, ah just such a relief.....

have a nice weekend all, bye.

Merlijn

Good idea about that last array, but this are troubles for in a later stadia....

I been coding just a bit and there still seems a trouble...

lets say hashfilling is ok...

while (my $c = $st->fetchrow_hashref)
{

my %analyst_record;
$analyst_record{$c->{ANA_ID}}{e_mail}=$c->{EMAIL};

print STDERR "Hash: $analyst_record{$c->{ANA_ID}} \n";
Show_analyst_row($analyst_record{$c->{ANA_ID}}); 
...
...
...
sub Show_analyst_row
{
my(%analyst_record)=%{@_};

print STDERR "sub: $analyst_record{description} \n";
print "Valerie $analyst_record{description} \n";
print "</TR>\n";
}
[download]

So I did remove the \ for the reference...

But still he only prints "valerie" for every record in the query, Is it possible that there is still something wrong in the receiving of the reference cause when I just print and don't call the subfunction he does print the E-mail(uderstand what I mean?)

here is the log of my errorlog(notice the prints I putted in the code for that)

Hash: HASH(0x4039b1f0)
sub:
Hash: HASH(0x4039b1d8)
sub:
Hash: HASH(0x4037dfbc)
sub:
Hash: HASH(0x4039b3c4)
sub:
Hash: HASH(0x4039b3b8)
sub:
Hash: HASH(0x403aa028)
sub:
Hash: HASH(0x4039b214)
sub:
[download]


thanks for looking.
Merlijn

aye great tip Ant,

I got for every key before I call the subroutine the correct value of the Hash. eg.

1234
HASH(0x403aab28)
[download]

but when I repeat this statement in the subroutine I receive nothing, completely nothing, how odd...

sub Show_analyst_row
{
my(%analyst_record)=%{@_};
print STDERR (join "\n", %analyst_record);
}
[download]

above code generates nothing, I would think ther is something wrong in receiving the reference no?

Any idea's?

Thanks for looking
Merlijn

ooh, I think your problem is here...
my(%analyst_record)=%{@_};
change this to
my(%analyst_record)=%{$_[0]};
or my(%analyst_record)=%{shift};

                - Ant
                - Some of my best work - Fish Dinner

Good idea about that last array, but this are troubles for in an later stadia....

I been coding just a bit and there still seems a trouble...

lets say hashfilling is ok...

while (my $c = $st->fetchrow_hashref)
{

my %analyst_record;
$analyst_record{$c->{ANA_ID}}{e_mail}=$c->{EMAIL};

print STDERR "Hash: $analyst_record{$c->{ANA_ID}} \n";
Show_analyst_row($analyst_record{$c->{ANA_ID}}); 
...
...
...
sub Show_analyst_row
{
my(%analyst_record)=%{@_};

print STDERR "sub: $analyst_record{description} \n";
print "Valerie $analyst_record{description} \n";
print "</TR>\n";
}
[download]

So I did remove the \ for the reference...

But still he only prints "valerie" for every record in the query, Is it possible that there is still something wrong in the receiving of the reference cause when I just print and don't call the subfunction he does print the E-mail(uderstand what I mean?)

here is the log of my errorlog(notice the prints I putted in the code for that)

Hash: HASH(0x4039b1f0)
sub:
Hash: HASH(0x4039b1d8)
sub:
Hash: HASH(0x4037dfbc)
sub:
Hash: HASH(0x4039b3c4)
sub:
Hash: HASH(0x4039b3b8)
sub:
Hash: HASH(0x403aa028)
sub:
Hash: HASH(0x4039b214)
sub:
[download]


thanks for looking.
Merlijn

in your code above you never populate $a_record{$c->{ANA_ID}}{description}
here is a trick I do when debugging hashes...

print (join "\n", %analyst_record);
[download]

that will print
key
value
key
value
etc...

                - Ant
                - Some of my best work - Fish Dinner