Perl在第一次出现时拆分

假设字符串为：

ABC-Digest-M2-2.03-04.01.00.05

我想将ABC-Digest-M2和2.03-04.01.00.05拆分为两个字符串

第一次出现-和数字组合-\d

我如何用一行代码来实现这一点

---

您可以使用带有前瞻性断言的split来执行此操作，而无需使用数字。e、 g

perl -MData::Dumper -e 'print Dumper(
    split /-(?=\d)/, "ABC-Digest-M2-2.03-04.01.00.05", 2
);'
$VAR1 = 'ABC-Digest-M2';
$VAR2 = '2.03-04.01.00.05';

---

您可以使用带有前瞻性断言的split来执行此操作，而无需使用数字。e、 g

perl -MData::Dumper -e 'print Dumper(
    split /-(?=\d)/, "ABC-Digest-M2-2.03-04.01.00.05", 2
);'
$VAR1 = 'ABC-Digest-M2';
$VAR2 = '2.03-04.01.00.05';

在破折号上拆分-后跟数字，并将拆分限制为最大字段数

my $string = "ABC-Digest-M2-2.03-04.01.00.05";
my ($p1, $p2) = split /-(?=\d)/, $string, 2;

在破折号上拆分-后跟数字，并将拆分限制为最大字段数

my $string = "ABC-Digest-M2-2.03-04.01.00.05";
my ($p1, $p2) = split /-(?=\d)/, $string, 2;

---

哦，我的上帝。。你是怎么做到的？从早上开始我就在浪费时间，但没发现。你能教我怎么做regex吗？天哪。。你是怎么做到的？从早上开始我就在浪费时间，但没发现。你能教我怎么做正则表达式吗？