Question

perl 里正则表达式取值

我需要取右边开始直到“/”的值
比如//abc/bb/cc，中我需要取cc,
//111/222/333 中我需要取333
请问下在PERL里面怎么表达啊

Answer 1

my $str = '//abc/bb/cc';
if ($str =~ m|(.*)/(.+?)$|) {
    print $2; # cc
}

Answer 2

my $aim = (split /\// , $string)[-1];