Sorting a hash of hash by second levels keys in Perl -


i have hash follows: 

          '4' => {                    '25' => 'x',                    '24' => 'y',                    '23' => 'z'                  },           '3' => {                    '22' => 's',                    '15' => 't'                  },           '2' => {                    '11' => 'a',                    '21' => 'b',                    '9' => 'c',                    '17' => 'd',                    '12' => 'e',                    '20' => 'f',                    '14' => 'g',                    '4' => 'h',                    '18' => 'i',                    '19' => 'j',                    '16' => 'k',                    '10' => 'l',                    '13' => 'm'                  }

i want sort first on basis of primary key or first key 2,3,4. each of key, 4, want sort secondary key so, expected output be:

          '4' => {                    '23' => 'z',                    '24' => 'y',                    '25' => 'x'                    },           '3' => {                    '15' => 't',                    '22' => 's'                   },           '2' => {                    '4' => 'h',                    '9' => 'c',                    '10' => 'l',                    '11' => 'a',                    '12' => 'e',                    '13' => 'm',                    '14' => 'g',                    '16' => 'k',                    '17' => 'd',                    '18' => 'i',                    '19' => 'j',                    '20' => 'f',                    '21' => 'b'                  }

i tried code, secondary keys not getting sorted:

foreach $parentkey (sort {$a <=> $b} keys %orderedchoicenamehash) {     $childkey (sort {$orderedchoicenamehash{$a} <=> $orderedchoicenamehash{$b}} keys %{ $orderedchoicenamehash{$parentkey}}) {         print $fh "$parentkey ::::: $childkey ::::: $orderedchoicenamehash{$parentkey}{$childkey}\n";     } } 

foreach $key1 (sort {$b<=>$a} keys %hash) {     foreach $key2 (sort {$a<=>$b} keys %{ $hash{$key1} })     {         print "$key1\t$key2\t$hash{$key1}{$key2}\n";     } }

Comments

Post a Comment

Popular posts from this blog

What is happening when Matlab is starting a "parallel pool"? -

running parallel cpu processes in matlab starts command parpool() according documentation , function: [creates] special job on pool of workers, , [connects] matlab client parallel pool. this function takes bit of time execute, on order of 30 seconds. in other multi-cpu paradigms openmp, parallel execution seems totally transparent -- i've never noticed behavior analogous matlab (granted i'm not experienced parallel programming). so, happening between time parpool() called , when finishes executing? takes long? parallel computing toolbox enables run matlab code in parallel using several different paradigms (e.g. jobs , tasks, parfor , spmd , parfeval , batch processing), , run either locally (parallelised across cores in local machine) or remotely (parallelised across machines in cluster - either 1 own, or 1 in cloud). in of these cases, code run on matlab workers , copies of matlab without interactive desktop. if you're intending run on remo...
Read more

angular - DownloadURL return null in below code -

when change file updated in firebase storage when try downloadurl show null. filechange(event: any) { const imagefolder: string = this.employee.id; const filelist: filelist = event.target.files; const file: file = filelist[0]; const storageref = firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file); console.log(storageref.snapshot.downloadurl); } the put() asynchronous. if want url after file uploaded have this: firebase.storage().ref().child(`${imagefolder}/profile.jpg`).put(file).then((snapshot) => { storageref = snapshot.downloadurl: console.log(snapshot.downloadurl); });
Read more

php - Cannot override Laravel Spark authentication with own implementation -

during login process of laravel spark need request token of remote api. api stores exact same users , passwords laravel spark application. therefore need username , non hashed password of user during authentication process. i thought overriding authenticated method solution problem. in routes/web.php override post /login endpoint , pointing endpoint own logincontroller: <?php namespace app\http\controllers\auth; use illuminate\support\facades\log; use illuminate\http\request; use laravel\spark\http\controllers\auth\logincontroller sparklogincontroller; class logincontroller extends sparklogincontroller { /** * create new login controller instance. * * @return void */ public function __construct() { parent::__construct(); } /** * handle successful authentication attempt. * * @param request $request * @param \illuminate\contracts\auth\authenticatable $user * @return response */ public fu...
Read more