perl里字符串长度的取法

perl好像没有提供strlen函数，用rindex函数可以同样得到字符串的长度。

$str = "abcd 1234";

$len = rindex $str."\$", "\$";

print "$len\n";

执行结果：

lenght of 'abcd 1234' is: 9