Re^4: Read JSON data from a form (CGI->Vars)

FWIW, you don't need to know the name, param without args provides the names , Vars mangles (encodes, serializes, packs, implodes) the data, its backwards compatibility for some 1993 stuff

#!/usr/bin/perl --
use Data::Dump qw/ dd /;
use CGI;
my $q = CGI->new(q{a=b;a=c;d=e;f=g});
my %Vars = map { $_ => [ $q->param($_) ] } $q->param(); 
dd( $q );
dd( $q->Vars );
dd( \%Vars );
__END__
__END__
bless({
  ".charset"     => "ISO-8859-1",
  ".fieldnames"  => {},
  ".parameters"  => ["a", "d", "f"],
  "escape"       => 1,
  "param"        => { a => ["b", "c"], d => ["e"], f => ["g"] },
  "use_tempfile" => 1,
}, "CGI")
("a", "b\0c", "d" .. "g")
{ a => ["b", "c"], d => ["e"], f => ["g"] }



bless({
  ".charset"     => "ISO-8859-1",
  ".fieldnames"  => {},
  ".parameters"  => ["a", "d", "f"],
  "escape"       => 1,
  "param"        => { a => ["b", "c"], d => ["e"], f => ["g"] },
  "use_tempfile" => 1,
}, "CGI")
[download]

#!/usr/bin/perl --
use Data::Dump qw/ dd /;
use CGI;
my $q = CGI->new(q{a=b;a=c%00d;d=e;f=g});
my %Vars = map { $_ => [ $q->param($_) ] } $q->param();
dd( $q );
dd( $q->Vars );
dd( \%Vars );
__END__
bless({
  ".charset"     => "ISO-8859-1",
  ".fieldnames"  => {},
  ".parameters"  => ["a", "d", "f"],
  "escape"       => 1,
  "param"        => { a => ["b", "c\0d"], d => ["e"], f => ["g"] },
  "use_tempfile" => 1,
}, "CGI")
("a", "b\0c\0d", "d" .. "g")
{ a => ["b", "c\0d"], d => ["e"], f => ["g"] }
[download]

Comment on Re^4: Read JSON data from a form (CGI->Vars) Select or Download Code

Replies are listed 'Best First'.
Re^5: Read JSON data from a form (CGI->Vars) by Anonymous Monk on Jan 07, 2015 at 09:05 UTC
Naming things is hard :/ `#~ sub CGI::fornew { #~ sub CGI::HashVars { #~ sub CGI::VARTS { #~ sub CGI::old { #~ sub CGI::wen { #~ sub CGI::Varses { sub CGI::Wars { my $q = shift; my %Vars = map { $_ => [ $q->param($_) ] } $q->param(); return \%Vars; }` [download]	[reply] [d/l]
Re^5: Read JSON data from a form (CGI->VarsAsHash ) by Anonymous Monk on Jan 07, 2015 at 08:55 UTC
`sub CGI::AsHash { my $q = shift; my %hash; $hash{$_} = $q->param($_) for $q->param; return \%hash; }` [download] my $params = CGI->new->AsHash;	[reply] [d/l]