如何删除Perl中特定字符序列之后的字符串中的所有内容？

Question

在Perl中，如何删除特定字符序列后面的字符串中的所有内容？

例如，如果我有字符串TATPASSTERMABSD，我只想保留TATPASS，因为我想删除包含的所有内容，并在TERM之后发布。

Answer 1

你有什么尝试？

是否有某些原因

    s/TERM.*//s

不适合你吗？

Answer 2

我会建议： my $var ='TATPASSTERMABSD'; $var =~s /(TATPASS).*/$1/s;

所以你要保持TATPASS不依赖于

之后的内容