Perl中取得字符串长度的函数length

lenght EXPR
length 返回EXPR代表的字符集的长度。如果没有输入EXPR，则返回$_的长度。
注意length不能用于取得数组或hash的元素个数。请使用“scalar @array”和
“scalar key %hash”取得各自的元素个数。

注意如果EXPR是Unicode,lenght取得字符集的字符数，而不是字节数。如果要
取得内部字符串的字节数，使用“bytes::length(EXPR)”.
注意内部编码的多样性，导致字节数的不一样。要得到UTF-8编码的字符串的
字节数，使用“length(Encoding::encode_utf8(EXPR))”.

替代length的方法：使用rindex

rindex (EXPR."/$", "/$");