How to loop through Plack::Request body

knox has asked for the wisdom of the Perl Monks concerning the following question:

Still learning how to do perl with plack. I have a simple app to post check boxes and other form elements. I would like to loop through check box name and value and place them in a new hash. These are obtained through a post request in Plack::Request body_parameters. Where am stuck is how to loop through the Plack::Request body_parameters. Dumper body_parameters as follows:

    $VAR1 = bless( { 
            'c_xcode' => 'J23-H0P',  
            'c_ycode' => 'G12-Y4T', 
            'c_zcode' => 'Q87-S7B',
            's_xlist' => 'T66-Y9A',
            's_ylist' => 'A43-P9W',
            's_zlist' => 'T71-K2L'
             }, 'Hash::MultiValue' );
[download]

What I would like is to convert body_parameters into a hash like this:

    %form_hash = (
                    'c_xcode' => 'J23-H0P',  
                    'c_ycode' => 'G12-Y4T', 
                    'c_zcode' => 'Q87-S7B',
                    's_xlist' => 'T66-Y9A',
                    's_ylist' => 'A43-P9W',
                    's_zlist' => 'T71-K2L'
                );
[download]

What is the best way to do this? Here's what I've tried, which I got close - it prints my desired hash to dumper, but I can't pass the \%form_hash to the foreach loop below:

my $form =  $posted->body_parameters;
my @k = keys %$form;
my @v = values %$form;
@form_hash{@k} = @v;

# Dumper ( \%form_hash) works, but can't pass this to foreach;
# "Experimental keys on scalar is now forbidden" when trying on 
# foreach my $key (sort(keys(  \%form_hash   ))) below.
[download]

Here is the complete snippet


    #!/usr/bin/perl
    
    use strict 'refs';
    use Plack::Request;
    use Data::Dumper;
    
    my $app = sub {
    
        my $env = shift;
        my $form = Plack::Request->new($env);
        
        print Dumper ( $form->body_parameters ) ;
        
        #how to convert $form->body_parameters to new  %form_hash?
        
        my %form_hash;
        my %cb_hash;
        
        foreach my $key (sort(keys(  %form_hash   ))) {
    
         if ( substr($key,0,2) eq "c_" ){    
                    
            my $cb_key = $key;
                my $cb_val = $form_hash{$key};
                $cb_hash{$cb_key} = $cb_val; 
    
                }
    
        }
    
    };
[download]

Comment on How to loop through Plack::Request body_parameters ? Select or Download Code

Replies are listed 'Best First'.
Re: How to loop through Plack::Request body_parameters ? by Your Mother (Archbishop) on Feb 12, 2020 at 03:47 UTC
Anonymonk covered Hash::MultiValue. All you need– `my $params = $form->body_parameters->as_hashref; # or my %params = %{$form->body_parameters};` [download] Some tips. `use strict 'refs'` is code smell. It’s half way to not using strict at all which is, for any code longer than you can easily understand in a glace, like swimming while carrying a brick. I was surprised to see that the following is apparently reliable and even approximately shown in the docs for `keys`. I was surprised because hash keys are “unordered” so this looks funky but the values and keys are “unordered” in the same way so… Anyway, it seems a bit too clever to me and might lead you to believe you can rely on order between different hashes. `my @k = keys %$form; my @v = values %$form; @form_hash{@k} = @v;` [download] I am absolutely not trying to dissuade you from learning and experimenting. That said, Plack is not meant for what it seems like you’re doing. It’s a low level toolkit, not a web application framework. Keep playing around. It’s fun. Consider picking up Mojolicious or another webapp framework if you’re serious about making code for anyone but yourself. There are many parts that are either done already or make everything much easier. The suggestion about Plack::App::WrapCGI may also be cromulent. Your old FCGI code could likely just be wrapped up. The CGI code has to be pretty clean but the error feedback is quite good, though nothing you’d ever want to expose to users, so…	[reply] [d/l] [select]
Re^2: How to loop through Plack::Request body_parameters ? by Fletch (Bishop) on Feb 12, 2020 at 14:41 UTC
It's not just approximately shown; the keys documentation explicitly says that (so long as it's not modified) they will return the same order for the same hash (emphasis mine): Hash entries are returned in an apparently random order. The actual random order is specific to a given hash; the exact same series of operations on two hashes may result in a different order for each hash. Any insertion into the hash may change the order, as will any deletion, with the exception that the most recent key returned by "each" or "keys" may be deleted without changing the order. So long as a given hash is unmodified you may rely on "keys", "values" and "each" to repeatedly return the same order as each other. The cake is a lie. The cake is a lie. The cake is a lie.	[reply]
Re^3: How to loop through Plack::Request body_parameters ? by Your Mother (Archbishop) on Feb 12, 2020 at 16:00 UTC
I did mention that the doc for keys says this. :P	[reply]
Re^3: How to loop through Plack::Request body_parameters ? by knox (Sexton) on Feb 12, 2020 at 18:13 UTC
thanks! Not sure if my implementation was the best in this case, but its good to know this.	[reply]
Re^2: How to loop through Plack::Request body_parameters ? by haukex (Archbishop) on Feb 12, 2020 at 10:18 UTC
`use strict 'refs'` is code smell. Definitely. knox: If you're already working on something as relatively modern as Plack, then you should definitely also use the modern practices of Use strict and warnings. There's a reason e.g. Mojolicious::Lite turns them on by default.	[reply] [d/l]
Re^3: How to loop through Plack::Request body_parameters ? by knox (Sexton) on Feb 12, 2020 at 18:10 UTC
thank you. It's something I've picked up from an older tutorial and something I will change. It was just a rookie's assumption that if it had any sort of 'use strict' was ok, after testing it, i've got a lot of little things to fix. I appreciate the heads up. (the Ovid article linked to the strict warnings article is also good).	[reply]
Re^2: How to loop through Plack::Request body_parameters ? by knox (Sexton) on Feb 12, 2020 at 17:58 UTC
thanks! I am absolutely not trying to dissuade you from learning and experimenting. I appreciate that sentiment - I have a wee project that has gone from cgi to fcgi and now plack. It's just a hobbie project for me to learn Perl, nothing to be released in wild. I realise there are faster implementations to get through the gate, but each step has had certain and 'ah-ha!' moments for me, which adds to the richness of the language and also how the web protocols work. I've already had a look at some the Mojolicious documentation, so that is on the horizon soon. Also thanks for the other suggestions (eg strict and keys).	[reply]
Re: How to loop through Plack::Request body_parameters ? by Anonymous Monk on Feb 12, 2020 at 02:56 UTC
Still learning how to do perl with plack. Why? Plack::App::WrapCGI? perldoc Hash::MultiValue `#!/usr/bin/perl -- use strict; use warnings; use Data::Dump qw/ dd /; use Hash::MultiValue; my $hash = Hash::MultiValue->from_mixed({ foo => [ 'a', 'b' ], bar => 'c', }); dd( $hash->as_hashref_mixed ); dd( $hash->as_hashref ); dd( %$hash ); __END__ { bar => "c", foo => ["a", "b"] } { bar => "c", foo => "b" } ("bar", "c", "foo", "b")` [download] references quick reference Modern Perl Ctrl+F "dereference" .. http://modernperlbooks.com/books/modern_perl_2016/03-perl-language.html#SGFzaFJlZmVyZW5jZXM	[reply] [d/l]


Perl Monk, Perl Meditation
	PerlMonks

How to loop through Plack::Request body_parameters ?