Re: A Beginner Apparently Sucks With Hashes...

I can tell you why it happens... this line right here:

%FormData = split(/=/, $Part);
[download]

Inside that foreach loop, you're overwriting the hash each time. You'll probably want to do something like this:

my ($name, $value) = split /=/, $Part;
$FormData{$name} = $value;
[download]

However... there are MUCH easier ways to do parameter grabbing, and I (along with 99% of the monastery) suggest you check out and use CGI.pm, along with strict and -w, if you aren't already. Hope that helps!

Update: Added example code.

His Royal Cheeziness

Comment on Re: A Beginner Apparently Sucks With Hashes... Select or Download Code

Replies are listed 'Best First'.
Re: Re: A Beginner Apparently Sucks With Hashes... by CharlesClarkson (Curate) on Jul 22, 2001 at 11:19 UTC
Following CheeseLord's advice might lead to something like: `#!/usr/bin/perl -w use strict; use diagnostics; use CGI qw/:standard Vars/; use CGI::Carp 'fatalsToBrowser'; my @page; my %form_data = Vars; foreach my $input_name (keys %form_data) { push @page, p( {-align => 'center'}, b($input_name), ": $form_data{$input_name}" ); } print header, html(@page);` [download] HTH, Charles K. Clarkson	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: A Beginner Apparently Sucks With Hashes...
by CharlesClarkson (Curate) on Jul 22, 2001 at 11:19 UTC

Following CheeseLord's advice might lead to something like:

#!/usr/bin/perl -w

use strict;
use diagnostics;
use CGI qw/:standard Vars/;
use CGI::Carp 'fatalsToBrowser';

my @page;

my %form_data = Vars;
foreach my $input_name (keys %form_data) {
    push @page, p( {-align => 'center'},
                   b($input_name),
                   ": $form_data{$input_name}" );
}

print header, html(@page);
[download]

[reply]
[d/l]