in reply to Re^4: Issuing a DELETE statement with DBI
in thread Issuing a DELETE statement with DBI

Thank you for your explanation. Here's my code again, modified slightly to remove scalar and to more closely match the OP's model. The results are the same. 
#!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $cgi = CGI->new();

use Data::Dumper::Simple;
print Dumper($cgi);
my $title = $cgi->param('title');
print $title;
print $/;

__END__

> ./tmp.pl title=foo\;title=user\;bar=
$cgi = bless( {
                '.parameters' => [
                                   'title',
                                   'bar'
                                 ],
                'bar' => [
                           ''
                         ],
                '.charset' => 'ISO-8859-1',
                '.fieldnames' => {},
                'title' => [
                             'foo',
                             'user'
                           ],
                'escape' => 1
              }, 'CGI' );
foo

[download]

---
It's all fine and dandy until someone has to look at the code.

Replies are listed 'Best First'.
Re^6: Issuing a DELETE statement with DBI
by eric256 (Parson) on Sep 01, 2006 at 17:51 UTC

    Your getting warmer. But you are assigning to a scalar instead of a hash, which makes cgi behave differently. Below is the same assigning to a hash. 

    #!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $cgi = CGI->new();

use Data::Dumper;
print Dumper($cgi);
my $test = { title => $cgi->param('title')};
print Dumper($test);

__END__
$VAR1 = bless( {
                 '.parameters' => [
                                    'title'
                                  ],
                 '.charset' => 'ISO-8859-1',
                 '.fieldnames' => {},
                 'title' => [
                              'hello',
                              'goodbye'
                            ],
                 'escape' => 1
               }, 'CGI' );
Odd number of elements in anonymous hash at hack.pl line 12.
$VAR1 = {
          'title' => 'hello',
          'goodbye' => undef
        };

    [download]

    ___________
    Eric Hodges
[reply]
[d/l]

In Section Seekers of Perl Wisdom