Mallik wrote:
Hi,
Hello,
I have a below hash (printed using Dumper). $VAR1 = { 'Technologies':'Optical':'Dense Wavelength Division Multiplexing (DWDM)' }; $VAR2 = { 'typeInfoSortKey' => '', 'mdfName' => 'Linear with Optical Add/Drop Multiplexing (OADM)', 'childKeys' => '', 'docs' => '', 'docTitles' => '', 'mdfId' => '279524369', 'level' => '4', 'parentMdfId' => '268436078', 'count' => 0, 'link' => 'Linear_with_Optical_Add_D_279524369.html' }; Here, the key is 'Technologies':'Optical':'Dense Wavelength Division Multiplexing (DWDM)'. Now, I want to replace it with something like 'abc'. Any pointers on this?
$ perl -le' my %a = "a" .. "j"; print join " ", %a; $a{ new } = delete $a{ e }; print join " ", %a; ' e f c d a b g h i j c d a b g h new f i j And you can use that on multiple keys: $ perl -le' my %a = "a" .. "j"; print join " ", %a; @a{ "M", "N", "O", "P", "Q" } = delete @a{ "a", "c", "e", "g", "i" }; print join " ", %a; ' e f c d a b g h i j Q j O f M b N d P h John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>