我怎样才能得到这个正则表达式的工作？

Question

应该很容易，但这个正则表达式是不工作（的Perl）：

^(.*?)-(.*?)(-(.*)|$) 

比赛

A - B - C（我想$ 1 =，$ 2 = B，$ 3 = C）
A - b（我想$ 1 = A，$ 2 = b）

比赛

ABC

任何想法表示欢迎！
你可以在这里尝试一下：
https://regex101.com/r/kP0fN9/2

Answer 1

好像你想是这样的，

^[^-]*-(?:[^-]*-)?[^-]*$ 

OR

^[^-\n]*-(?:[^-\n]*-)?[^-\n]*$ 

DEMO

更新：

^(.*?)\s*-\s*(.*?)\s*(?:-\s*(.*)|$) 

DEMO

Answer 2

如何：

use strict; 
use warnings; 
use Data::Dump qw(dump); 

while(<DATA>) { 
    chomp; 
    my @res = $_ =~ /([^-]+)/g; 
    dump@res; 
} 


__DATA__ 
a - b - c 
a - b 

输出：

("a ", " b ", " c") 
("a ", " b")