Perl 在第一次出现时拆分

Question

• 假设字符串是:

  ABC-Digest-M2-2.03-04.01.00.05

• 我想将“ABC-Digest-M2”和“2.03-04.01.00.05”拆分成两个字符串。

• 第一次出现 - 和数字组合。 “-\d”。

• 我怎样才能用一行代码做到这一点？

Answer 1

您可以使用带有先行断言的拆分来执行此操作而无需消耗数字。例如

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';