Reverse the key and value : reverse « Hash « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Hash » reverse

Reverse the key and value

   



#!/usr/bin/perl

use strict;

use warnings;



my %hash = ('Key1' => 'Value1', 'Key2' => 'Value2');

print "$hash{Key1}\n"; # print 'Value1'



foreach (keys %hash) {

    $hash{$hash{$_}} = $_;

    delete $hash{$_};

}

print "$hash{Value1}\n"; # print 'Key1'

Related examples in the same category

1.	Reverse a hash
2.	Reverse a hash: use key as the value, and value as the key
3.	Reverse the hash and use function each to get each pair

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.