Как вы удаляете все в строке, которая идет после определенной последовательности символов в Perl?

Question

В Perl, как я могу удалить все в строке, которая идет сразу после определенной последовательности символов?

Например, если у меня была строка TATPASSTERMABSD, я хочу сохранить только TATPASS, потому что я хочу удалить все, что включает и приходит сразу после TERM.

Answer 1

Что вы пробовали?

Есть ли какая-то причина, по которой

    s/TERM.*//s

у вас не работает?

Answer 2

Я бы предложил это: my $var ='TATPASSTERMABSD'; $var =~s /(TATPASS).*/$1/s;

, поэтому вы сохраните TATPASS независимо от того, что будет после