perl - 如何仅在最后一次出现分隔符时拆分 Perl 字符串?

标签 perl split

我的 $str="1:2:3:4:5";
我的 ($a,$b)=split(':',$str,2);

在上面的代码中,我使用了 limit 作为 2 ,所以 $a 将包含 1 ,其余元素将在 $b 中。
像这样,我希望最后一个元素应该在一个变量中,最后一个元素之前的元素应该在另一个变量中。

示例

$str = "1:2:3:4:5" ; 
# $a should have "1:2:3:4"  and $b should have "5" 
$str =  "2:3:4:5:3:2:5:5:3:2" 
# $a should have "2:3:4:5:3:2:5:5:3" and $b should have "2"

最佳答案

split(/:([^:]+)$/, $str)

关于perl - 如何仅在最后一次出现分隔符时拆分 Perl 字符串?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2468999/

相关文章:

java - 在java中达到某些字符时分割字符串

perl - 为 LWP::UserAgent 设置参数时出现问题

perl - 如何按数组顺序打印数组元素值?

python - 当一个角色说话时 split 麦克白

python - 从另一列的值列表创建多列

c - 如何在任意索引处拆分字符串?

在 C 中调用 Restful Web 服务

perl - DBD::SQLite::st 执行失败:数据类型不匹配

perl - 如何将 Perl 变量与内插字符串中的文本分开?

Python - 将字符串拆分为字符,同时排除某个子字符串