Regex 在Perl中分隔由字符连接的值的正则表达式

Regex 在Perl中分隔由字符连接的值的正则表达式,regex,perl,Regex,Perl,我有两个值,其中两个数字由一个字符分隔,如“-”。例如 123-456 98765-4321 1-2345 我需要的是在两个不同的变量中分离“-”之前和之后的数字。所以,对于123-456,我想把123分成一个变量,把456分成另一个变量 在Perl中如何实现这一点 split(/-/, "123-456"); # => ("123", "456") my $string = '123-456'; my ($first, $second) = split /-/, $string;

我有两个值,其中两个数字由一个字符分隔,如“-”。例如

123-456
98765-4321
1-2345
我需要的是在两个不同的变量中分离“-”之前和之后的数字。所以,对于123-456,我想把123分成一个变量,把456分成另一个变量

在Perl中如何实现这一点

split(/-/, "123-456");   # => ("123", "456")
my $string = '123-456';
my ($first, $second) = split /-/, $string;
my ($before, $after) = /(\d+)-(\d+)/;