C:\>perl -MData::Dumper -MCGI -e"die Dumper( CGI->new( { 1..10 }) ) "
$VAR1 = bless( {
'.charset' => 'ISO-8859-1',
'1' => [
2
],
'3' => [
4
],
'escape' => 1,
'5' => [
6
],
'7' => [
8
],
'.parameters' => [
'7',
'9',
'1',
'3',
'5'
],
'9' => [
10
],
'.fieldnames' => {}
}, 'CGI' );
C:\>
Do all the keys map to one bucket? I'm pretty sure they don't.
C:\>perl -MData::Dumper -MCGI -e"warn Dumper( $a=CGI->new );die Dumper
+(scalar $a->Vars() ) " a= b= c= d= e= f= g=
$VAR1 = bless( {
'.charset' => 'ISO-8859-1',
'a' => [
''
],
'escape' => 1,
'b' => [
''
],
'c' => [
''
],
'd' => [
''
],
'e' => [
''
],
'f' => [
''
],
'g' => [
''
],
'.parameters' => [
'a',
'b',
'c',
'd',
'e',
'f',
'g'
],
'.fieldnames' => {}
}, 'CGI' );
$VAR1 = {
'a' => '',
'b' => '',
'c' => '',
'd' => '',
'e' => '',
'f' => '',
'g' => ''
};
The only way all the various keys would map to one bucket would be when you construct a hash by calling Vars.
Do you see what I'm saying, or did I miss something crucial.
update: I improved the 2nd snippet. Now it shows all the various keys going to a single bucket.
update: Why not just post the example?
|