要取得字串的長度，使用length()這個函數
$str="n.sfs.tw";
my $len = length($str); #8
my $len = length($str); #8
遇到中文的話一個utf8
use utf8;
$str="精讚一龜";
my $len = length($str); #12
一個中文字的長度為3，英文和數字都是1
換行字元是1
undef 是0 加警告 Undefined subroutine &main::array called at ...
my $a=undef;
print length($a); # 0 +警告
my @a=();
print length(@a); # 1
my %a=();
print length(%a); # 1
print length($a); # 0 +警告
my @a=();
print length(@a); # 1
my %a=();
print length(%a); # 1
陣列和雜湊的長度是永遠的1，無論裡面有沒有項目。
END
