On Saturday 04 Jun 2011 14:44:11 Agnello George wrote:
hi
i have the following hash as out put from a sql query
VAR1 = [ { '16' => { 'srch_type_id' => '162', 'rid' => '2' }, '13' => {
'srch_type_id' => '123', 'rid' => '1' }, '17' => { 'srch_type_id' =>
'147', 'rid' => '2' }, '15' => { 'srch_type_id' => '135', 'rid' => '1' },
'14' => { 'srch_type_id' => '174', 'rid' => '1', } } ];
but i need to resort it with "rid" as the key , the out but as follow :
RID = [{ 1 => {
'13' => { 'srch_type_id' => '123', 'rid' => '1' },
'15' => { 'srch_type_id' => '135', 'rid' => '1' } ,
'14' => { 'srch_type_id' => '174', 'rid' => '1', }
},
2 => {
'16' => { 'srch_type_id' => '162', 'rid' => '2' },
'17' => { 'srch_type_id' => '147', 'rid' => '2' }
}
}]
but am unable to figure how to make value of VAR1 a key of RID
Can some one help me with this
hi
i have the following hash as out put from a sql query
VAR1 = [ { '16' => { 'srch_type_id' => '162', 'rid' => '2' }, '13' => {
'srch_type_id' => '123', 'rid' => '1' }, '17' => { 'srch_type_id' =>
'147', 'rid' => '2' }, '15' => { 'srch_type_id' => '135', 'rid' => '1' },
'14' => { 'srch_type_id' => '174', 'rid' => '1', } } ];
but i need to resort it with "rid" as the key , the out but as follow :
RID = [{ 1 => {
'13' => { 'srch_type_id' => '123', 'rid' => '1' },
'15' => { 'srch_type_id' => '135', 'rid' => '1' } ,
'14' => { 'srch_type_id' => '174', 'rid' => '1', }
},
2 => {
'16' => { 'srch_type_id' => '162', 'rid' => '2' },
'17' => { 'srch_type_id' => '147', 'rid' => '2' }
}
}]
but am unable to figure how to make value of VAR1 a key of RID
Can some one help me with this
<CODE>
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $input = {
'16' => { 'srch_type_id' => '162', 'rid' => '2', },
'13' => { 'srch_type_id' => '123', 'rid' => '1', },
'17' => { 'srch_type_id' => '147', 'rid' => '2', },
'15' => { 'srch_type_id' => '135', 'rid' => '1', },
'14' => { 'srch_type_id' => '174', 'rid' => '1', } ,
};
my $output = {};
foreach my $key (keys(%$input))
{
my $rid = $input->{$key}->{rid};
$output->{$rid}->{$key} = +{ %{$input->{$key}} };
}
print Dumper($output);
</ CODE>
Regards,
Shlomi Fish
--
-----------------------------------------------------------------
Shlomi Fish http://www.shlomifish.org/
"Star Trek: We, the Living Dead" - http://shlom.in/st-wtld
Live as if you were to die tomorrow. Learn as if you were to live forever.
-- http://en.wikiquote.org/wiki/Mohandas_Gandhi (Disputed)
Please reply to list if it's a mailing list post - http://shlom.in/reply .
