regex - 保持字符串的前 2 部分有一个分隔符

Question

以下是否有更简洁/更优雅的方式:

my @components = split /-/, $original;
my $final_string = $components[0]."-".$components[1];  

输入是最多包含 2 - 的字符串最后一个是可选的。我总是想保留第一部分。 IE。 10-9-1应该变成 10-9和 10-9作为输入应保持 10-9

Answer 1

use Modern::Perl;

my $re = qr/-\d+\K.*$/;
while(<DATA>) {
    chomp;
    s/$re//;
    say;
}
__DATA__
10-9-1
10-9

对于一个字符串:

my $original = '10-9-1';
(my $final = $original) =~ s/-\d+\K.*$//;
say $final;

说明:

s/
    -       # find the first dash in the string
    \d+     # 1 or more digits
    \K      # forget all we have seen until this posiiton
    .*      # rest of the line
    $       # end of line
//