Remove mutiple values from a hash in perl -

-

i need iterate through hash in perl , if key multiple values present in form of array , take first value. code snippet 

while (my ($key, $value) = each(%args)) {     print "$key-----------------------------$value\n\n";     if ($key =~ /submit\.([\w-]+)/) {         $submitfield = $1;     } elsif  ($key =~ /action/) {         $submitfield = $value;     }     if (ref($value) ) {         if (%min_args)         {             print ("min args not found aborting request");             $m->comp('/x-locale/errors/404.m');             $m->abort();         }         print "multiple value found $key";         $value = shift @$value if ref($value) eq "array";         $args{$key} = $value;         print "value changed $args{$key}\n\n";         print data::dumper->dump([$value]);         print "<pre>" . data::dumper->dump([%args]) . "</pre>";     } }

the problem if pass in more 1 key having array of values , doing shift operation first 1 , coming out of loop. ideas happening here?

you have not demonstrated problem, , missing bits added, expected result.

use strict; use warnings;  use data::dumper;  %args = (    => 'b',    c => [ 'd', 'e' ],    f => [ 'g', 'h' ],    => 'j', );  while (my ($key, $value) = each(%args)) { # print "$key-----------------------------$value\n\n"; # if ($key =~ /submit\.([\w-]+)/) { #    $submitfield = $1; # } elsif  ($key =~ /action/) { #    $submitfield = $value; # }  if (ref($value) ) { #    if (%min_args) { #       print ("min args not found aborting request"); #       $m->comp('/x-locale/errors/404.m'); #       $m->abort(); #    } #   print "multiple value found $key";    $value = shift @$value if ref($value) eq "array";    $args{$key} = $value; #   print "value changed $args{$key}\n\n"; #   print data::dumper->dump([$value]); #   print "<pre>" . data::dumper->dump([%args]) . "</pre>"; data::dumper->dump([%args]);  } }  print dumper(\%args);

output:

$var1 = {           'c' => 'd',           'a' => 'b',           'f' => 'g',           'i' => 'j'         };

mind you, there's funky stuff going on. each hash has 1 iterator, data::dumper call inside loop sees part of hash. resets iterator, causing each restart. avoid visiting same keys repeatedly, move call data::dumper outside of loop (where should be) or use for keys instead of while each gets keys upfront.


Comments

Post a Comment

Popular posts from this blog

c++ - OpenCV Error: Assertion failed <scn == 3 ::scn == 4> in unknown function, -

-
i read alot other solution still confused should mine... #include <opencv2/objdetect/objdetect.hpp> #include <opencv2/highgui/highgui.hpp> #include <opencv2/imgproc/imgproc.hpp> #include <iostream> #include <stdio.h> using namespace std; using namespace cv; int main(int argc, const char** argv) { //create cascade classifier object used face detection cascadeclassifier face_cascade; //use haarcascade_frontalface_alt.xml library face_cascade.load("haarcascade_frontalface_alt.xml"); //setup video capture device , link first capture device videocapture capturedevice; capturedevice.open(0); //setup image files used in capture process mat captureframe; mat grayscaleframe; //create window present results namedwindow("outputcapture", 1); //create loop capture , find faces while (true) { //capture new image frame capturedevice >> captureframe; ...
Read more

php - render data via PDO::FETCH_FUNC vs loop -

-
i've been using 2 methods render data. the first one: function name($id,$name){ return '<div id="'.$id.'">'.$name.'</div>'; } echo implode($pdo->query("select id,name user")->fetchall(pdo::fetch_func,'name')); the second one: $users = $pdo->query("select id,name user")->fetchall(pdo::fetch_obj); foreach($users $user){ echo name($user->id,$user->name); } i don't understand how pdo::fetch_func works. tried figure out. however, not well-documented. could please explain fetch mode? , also, 1 performs better? thank you. both methods wrong , have learn how use templates , how separate business logic presentation logic. $users = $pdo->query("select id,name user")->fetchall(pdo::fetch_obj); tpl::assign('users', $users); is code business logic part. then in template <?php foreach $users $row): ?> <div id="<?=$...
Read more

The canvas has been tainted by cross-origin data in chrome only -

-
uncaught securityerror: failed execute 'getimagedata' on 'canvasrenderingcontext2d': canvas has been tainted cross-origin data i getting above error in chrome. code(following) works fine in mozilla. have not corss domain issue. why above error in chrome? var wheel_canvas, wheel_context, can_w, can_h, wheel_grd; var large_radius = 160; var small_radius = 120; var wheel_canvas = document.getelementbyid('wheel_canvas'); var wheel_context = wheel_canvas.getcontext('2d'); var can_w = $(wheel_canvas).width(); var can_h = $(wheel_canvas).height(); var centerx = can_w / 2, centery = can_h / 2; var wheel_grd = null; test('#ff0000'); function test(hex) { $('#clrpicker').css({'left': 210, 'top': 210 }); inverted = hexbw(hex); $('#color_val_show').val(hex); current_color_hex_val_selected = hex; $('#color_val_show').css({'color':inverted,'background':hex}); fillgradient...
Read more