ruby -> perl 写法,请教。DQP大侠请进

ruby -> perl 写法,请教。DQP大侠请进

ruby:
if(/\d/ =~ buf[buf.size-2])

perl:
if ($buf[$buf_size - 2] =~ m/[0-9]/)

请问这样写对么?如果不对应该如何改呢?谢谢
问题补充

if(/\d/ =~ buf[buf.size-2])
    if(buf[buf.size-2] == "1")

第一个IF是判断数组原素中是否有数字

第二个IF 是判断数组原素是否等于“1”,不是原素中是否有“1”

以上的理解是否正确,请赐教。谢谢
........
你写的是对的
  有几个建议
1.  不要把我的ID写在标题上 这样会有更多的人来帮你
2.  碰到问题时先试一下或查一下
3.  如果找我的话发消息就好了 不需要发贴。。。。
对不起,虚心接受您的建议。谢谢