...
print "age: "
            textfield(
                -name => 'age',
                -size => 5);
...
[download]

-derby

Name: [ george ]
Age:  [ 6 ]
[download]

print "age: " 
   textfield (
       -name => 'age',
       -size   => 5);
[download]

Ok, I am getting so frustrated now. I removed the scalar as a key and just put 'name' as a test ($stats{'name'} = $name) but even THAT only stores on value at a time! Can someone tell me why?

This should do what you mean:

print "Name: "
            textfield(     # this field contains the name (e.g. 'georg
+e','bill', whatever)
                -name => 'name',
                -size => 100);

print "age: "
            textfield(     # this is the age of whoever's name is in t
+he field above (possibly)
                -name => 'age',
                -size => 5);

my $name = param('name'); # the name we got back is placed in the vari
+able $name
my $age = param('age'); # the age we got back is placed in $age

$stats{$name} = $age; # lets associate $name with $age in a hash
[download]



-nuffin
zz zZ Z Z #!perl

I did your latest suggestion putting it back as a scalar but it DOESN'T change anything! Whether i use 'email' or $email (the latter should be dynamic so they can't over write eachother) I get the same result.

so you actually want the following to happen?

%hash = ( 'george@foo.com' => 'george ); # how it is when george is ad
+ded
%hash = ('bill@host.com' => 'bill'); # bill clobbers george
[download]

You can do this much more simply by using Storable or Data::Dumper without using a hash. Hashes are ment to store large amounts of data. You are more likely to find an array more suitable ([ 'george@foo.com', 'george' ]), or using your hash to describe who george is:

%hash = (
      email => 'george@foo.com',
      name => 'geroge fubar',
      age    => 68,
);
[download]

Which you can acheive by writing to hash entries like your params:

my $email = params('email');
my $name = params('name');

$hash{email} = $email;
$hash{name} = $name;
[download]



-nuffin
zz zZ Z Z #!perl

This same code does the exact same as using a scalar as the key, it only saves one thing. This is using the method $hash{this} = $that now and still it's screwing something up. rrrr, this isn't fun anymore!

print start_form(),
  table(
    Tr(
        td("Name: "),
        td(
            textfield(
                -name => 'name',
                -size => 40
            )
        )
    ),
    Tr(
        td("Email: "),
        td(
            textfield(
                -name => 'email',
                -size => 40
            )
        )
    ),
    Tr( td(), td(submit) ),
  ),
  end_form(), hr();

if ( param() ) {
my $email = param('email');
my $name = param('name');

    if ( param('email') ne "" ) {
        tie %this, 'SDBM_File', $list, O_CREAT | O_RDWR, 0644;

        if ( !tied %this ) {
            warn("database unsuccessful $!.\n");
        }

################# Next line
        ethis{'email'} = "$name"; }
[download]

This is the structure of the hash you want:

%hash = ( # george is added
      'george@host.com' => 'george',
);

%hash = ( # bill is added
      'george@host.com' => 'george',
      'bill@company.net' => 'bill',
);
[download]

But you're not setting with the actual value of the email field that has been passed. You're setting the key to the value 'email', instead of an email address, thus producing

%hash = ( # george is added
      'email' => 'george',
);

%hash = ( # bill is added
      'email' => 'bill',
);
[download]

The outcome is that they're names are overwritten, because you're accessing the field by the same key, which is 'email', instead of $email, they're addresses.

Your fix is:

$this{$email} = $name;
[download]



-nuffin
zz zZ Z Z #!perl