正則表達式用於分隔由Perl中的字符連接的值

Question

我有兩個數字用' - '之類的字符分隔的值。例如，

123-456 
98765-4321 
1-2345 

我需要的是將' - '之前和之後的數字分成兩個不同的變量。因此，對於123-456，我想將123分成一個變量，將456分成另一個變量。

我該如何在Perl中執行此操作？

Answer 1

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

Answer 2

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

Answer 3

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