Threaded Mode | Linear Mode

***Back_track*** · 08-13-2010, 10:49 AM

Code:

#!/usr/bin/perl -w

#

#Hash -- Learning

#Create Hash keys

$hash_key{1} = "This is hash key \"1\" of variable \$hash_key";

$hash_key{2} = "Hash_Key #2";

$hash_key{"P9"} = "Visit P9";

#Create A list of the keys

@hash_list = keys(%hash_key);

#Print Hash keys

print "@hash_list\tThe Keys\n";

#Get hash Values

@hash_values = %hash_key;

#Print Hash Values + Keys 

print "@hash_values\tThe Values";

***drdebcol*** · 08-13-2010, 11:40 PM

Very good example !!! THX for share !