Как удалить последние два вхождения символа «-» строки?

Question

У меня есть массив строк, которые отформатированы как таковые:

Ado-trastuzumab emtansine(HER2)02-22-2013 

Я хотел бы, чтобы удалить последние два «-» только символов (от даты части исходной строки), так что имя из препарат (Ado-trastuzumab emtansine) не изменяется. Сейчас мое регулярное выражение удаляет все «-» символы:

foreach my $string (@array) { 
    $string =~ tr/-//d; 
} 

Я хотел бы выход вместо этого будет следующее:

Ado-trastuzumab emtansine(HER2)02222013 

Спасибо за помощь!

Answer 1

Вы можете использовать substr как Lvalue применять только транслитерации к определенной части вашей строки:

substr($string, -10, 10) =~ tr/-//d; 

В этом случае, на последних 10 букв строки.

Answer 2

foreach my $string (@array) { 
    $string =~ s/(\d{2})-(\d{2})-(\d{4})$/$1$2$3/; 
} 

Answer 3

Для того, чтобы делать то, что вы говорите, буквально - удалить последние два дефиса из строки - вы могли бы написать этот

$string =~ s/-([^-]*)-([^-]*)\z/$1$2/; 

Но в этом случае вы можете просто удалить все дефисы, которые следуют цифры:

$string =~ s/\d\K-//g; 

Answer 4

Если ничего не должно быть сделано, когда есть только один -:

$s =~ s/-([^-]*)-([^-]*)\z/$1$2/; 

$s = reverse($s); 
$s =~ s/^([^-]*)-([^-]*)-/$1$2/; 
$s = reverse($s); 

$s = reverse(reverse($s) =~ s/^([^-]*)-([^-]*)-/$1$2/r); # 5.14+ 

Все эти работы, даже если есть только один -:

$s =~ s/-([^-]*)(?:-([^-]*))?\z/$1$2/; 

$s =~ s/-([^-]*)\z/$1/ for 1..2; 

$s =~ s/^.*\K-//s for 1..2; 

$s = reverse($s); 
$s =~ s/-// for 1..2; 
$s = reverse($s); 

$s = reverse($s); 
$s =~ s/^([^-]*)-(?:([^-]*)-)?/$1$2/; 
$s = reverse($s); 

$s = reverse(reverse($s) =~ s/^([^-]*)-(?:([^-]*)-)?/$1$2/r); # 5.14+ 

Для длинных строк, то reverse решения должны быть гораздо быстрее. Для коротких строк читайте.