perl入門之—雜湊的應用

在此發下個人廣告，見諒，有興趣的朋友可以看下：http://www.wachnew.com

 

#!/usr/bin/perl -w

$family_name{"fred"} = "flinkstone";   #給雜湊鍵賦值
$family_name{"barney"} = "rubble";

foreach my $person (qw /fred barney/ )  #將私人變數聲明寫到foreach裡邊
{
    print "the $person is : $family_name{$person} /n";  #輸出鍵及所對應的索引值
}

my %hash = (                            #建立雜湊，並給相應用鍵/值對賦值
    "a" => 1,
    "b" => 2,
    "c" => 3,
    "d" => 4,
    "e" => 5,
);

my @k = keys %hash;  #提取出雜湊鍵列表
my @v = values %hash; #提取出雜湊值列表
my $count = keys %hash;  #提取雜湊健值對數
print "@k/n"."@v/n","number = $count/n";

if( %hash )#若雜湊不為空白則為真
{
    print "OK/n";
}

my %test;
if( %test )
{
    print "OK for test/n";
}
else
{
    print "false for test/n";
}

while( ($key, $value) = each %hash )
{
    print "$key => $value/n";
}

#對雜湊鍵進行排序
print "/n";
foreach $key (sort keys %hash)  #對雜湊中的鍵取到後進行排列，逐一放入value標量中
{
    print "$key => $hash{$key}/n";
}

#擷取系統內容變數值
print "the PATH is $ENV{PATH} /n";   #擷取系統路徑地址