> > # Main
> > my $Results;
>
> this only declare a $Results scalar
Sorry typo for the email! it is %Results
> > # Initialized with 3 for every value
> > # $Results{ $cty }{ $dom }{ $eng } = "3";
>
> here, you are trying to use a %Results hash from $Results{ $cty }.
> the '{ $dom }{ $eng }' portion does create a hash referece to the $cty
> key...
>
> if you have 'use strict', Perl will catch that for you
I am using strict and no complaints. The hash is layed out like so..
%Results = (
$cty => { $dom => { $eng => "value"}} );
> Ok, you are initialize your hohoh here to 3 ....
>
> >
> > foreach my $cty ( @Cities ) {
> > foreach my $dom ( @Domains ) {
> > my @Engines = ( sort keys %Engine_Urls );
> > foreach my $eng ( @Engines ) {
> > $Results{ $cty }{ $dom }{ $eng } = "3";
>
> you are setting your hohoh to 3 again in here. why? isn't the init. above
> not enought?
Yes, the original is enough, but i am trying to debug, so needed some data in it.
Otherwise I was getting no output at all. I am throwing various:
my $debug = 1;
if ( $debug > 0 ) {print ".....}
messages in the script to try and debug
> > my @out = ( $cty, $dom, $eng );
> > &SomeSub( \@out );
> > }
> > }
> > }
> >
> >
> >
> > sub SomeSub {
> > my ($refdata) = @_;
> > my ($cty, $dom, $eng) = @{$refdata};
> > .....
> > (modify some data)
> > .....
> > $Results{ $cty }{ $dom }{ $eng } = $newdata;
> > }
>
> if $newdata contains anything other than 3, it should got set to the new
> value.
I agree, but it isn't!!! The only other thing that could be it is the threads, and I
am in over my head there (using a module).
Thanks,
Greg
> david
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
