perl好像没有提供strlen函数,用rindex函数可以同样得到字符串的长度。
$str = "abcd 1234";
$len = rindex $str."/$", "/$";
print "$len/n";
执行结果: lenght of 'abcd 1234' is: 9
$str = "abcd 1234";
$len = rindex $str."/$", "/$";
print "$len/n";
执行结果: lenght of 'abcd 1234' is: 9