Держите первые 2 части строки с разделителем

Jim спросил: 03 ноября 2018 в 09:08 в: regex

Есть ли более краткий / perlish способ для следующего:

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

Ввод - это строка, содержащая не более 2 -, а последний необязательный. Я всегда хочу сохранить первую часть. То есть 10-9-1 должно стать 10-9 и 10-9, так как ввод должен остаться 10-9

0 ответов