網路管理語言 Perl 入門與實作: | ||
---|---|---|
<<< Previous | 4. Perl 的資料型態 | Next >>> |
判斷某鍵是否存在?
#! /usr/bin/perl %A=("m", 1, "n", 5, "g", 2, "p", 9); if (exists $A{g}) { print '%A 中有鍵 g', "\n"; } # 輸出:%A 中有鍵 g # 再看以下例子: #! /usr/bin/perl print '請問你要查 %A 的那一個鍵?'; chomp($key=<STDIN>); %A=("m", 1, "n", 5, "g", 2, "p", 9); if (exists $A{$key}) { print '%A 中有鍵 ', $key , "\n"; } else { print "$key 這個鍵不存在!" , "\n"; } # 輸出結果: 請問你要查 %A 的那一個鍵?n %A 中有鍵 n 請問你要查 %A 的那一個鍵?k k 這個鍵不存在! |
<<< Previous | Home | Next >>> |
4.3.6 each | Up | 4.3.8 delete |