正则表达式，用于分隔由Perl中的字符连接的值

Question

我有两个数字由' - '之类的字符分隔的值。例如，

123-456
98765-4321
1-2345

我需要的是将两个不同变量中的“ - ”之前和之后的数字分开。因此，对于123-456，我想将123分成一个变量，将456分成另一个变量。

我如何在Perl中执行此操作？

Answer 1

split(/-/, "123-456");   # => ("123", "456")

Answer 2

my $string = '123-456';
my ($first, $second) = split /-/, $string;

Answer 3

my ($before, $after) = /(\d+)-(\d+)/;