利用Perl判斷是不是正確的MAC Address

這個做法要利用正規表示法了~ 程式如下

#!/usr/bin/perl

#利用參數列輸入MAC Address
$mac = $ARGV[0];

#判斷假如MAC Address 是空的 或不是 ^ 任一出現 []在 a到f,A到F,0到9的字元內容 或是字串長度不是12個字元
if ($mac == '' or $mac =~ /[^a-fA-F0-9]/ or length($mac)!=12) {
print "Invalid Mac address\n";
} else {
do something you want;
}