Re: how to put values into $$rhash_params{'import

I'm not 100% sure what you're asking, at least partly because I've never used the Apache::Request module, but if all you want to do is store values in a hash, you can do that with a straightforward normal assignment operation. The fact that the hash is nested inside another data structure doesn't matter:

my %foo;
my $bar = { key1 => "value 1", };
$foo{key2} = "value 2";
$$bar{key3} = "value 3";
$$bar{key4} = { key5 => "value 5", };
$$bar{key4}->{key6} = "value 6";
$$bar{key4}{key7} = "value 7"; # simpler syntax
use Data::Dumper;
print Dumper( \%foo, \$bar );
[download]

If there's something different going on that I've missed (e.g., a tied hash), or something more you wanted to know, you might try to clarify your question. As it stands now, this is the only answer I could come up with.

We're working on a six-year set of freely redistributable Vacation Bible School materials.

Comment on Re: how to put values into $$rhash_params{'import_file'}->filename? Download Code

Replies are listed 'Best First'.

Re^2: how to put values into $$rhash_params{'import_file'}->filename?
by MelaOS (Beadle) on Sep 24, 2008 at 09:50 UTC

#------------------------------------------------------
# Handle all POST, GET, multipart, and upload requests
#------------------------------------------------------
my $r = Apache->request();
my $apr = Apache::Request->new($r);
my @keys = $apr->param;

foreach (@keys) {
    my @value = $apr->param($_);
    next unless scalar @value;
    if (@value>1){
        $params{$_} = \@value;
    } else {
        $params{$_} = $value[0];
    }
}
my $upload = $apr->upload;
if ($upload) { $params{'import_file'} = $upload; }
[download]

error

$VAR1 = {
          'file_handler' => bless( \*Apache::Upload::_GEN_2410, 'Apach
+e::Upload' ),
          'import_file' => bless( do{\(my $o = 447703164)}, 'Apache::U
+pload' ),
        };
[download]

[reply]
[d/l]
[select]


The stupid question is the question not asked
	PerlMonks

Re: how to put values into $$rhash_params{'import_file'}->filename?