perl里字符串长度的取法

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

$str = "abcd 1234";

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

print "$len\n";

执行结果：

lenght of 'abcd 1234' is: 9

• 未来我们可以和性爱机器人结婚吗？
  探索
• 什么是脂肪粒？如何消除脸部脂肪粒？
  女性
• 五个症状提醒你免疫力在下降了
  健康
• 韩式辣椒酱爆伍丁(图)－西餐菜谱
  美食
• 国庆节搞笑祝福短信
  干货
• 女子体内爬出大量瓜子状活虫
  百态

• ·在.net安装程序中部署oracle客户端全攻
• ·交互体验改进之ATM机最常用操作篇
• ·在Jsp程序读取或向DB写入数据乱码解决办法
• ·Gmail用户的好消息，终于支持pop了
• ·用VB打造你自己的网络游戏平台（－）
• ·调试工具系列--java 正则表达式(regu
• ·以人为本－－组建最好的开发团队
• ·用IFRAME实现网页的内嵌和预载
• ·自动建站.实现虚拟二级目录
• ·模式的分类