Perl을 사용하여 조건에 따라 문자열의 마지막 두 문자를 수정하는 방법

Question

마지막 두 문자를 확인해야하는 문자열이 있습니다. 마지막 두 문자가 내 요구 사항과 일치하는 것으로 확인되면 문자열을 자르거나 그렇지 않으면 문자열을 그대로 두어야합니다. 제어 조건을 사용하여 수행 할 수 있다는 것을 알고 있지만 펄을 실제로 구현할 수있는 단일 명령문이 있는지 알고 싶습니다. 또한 이것을하는 더 좋은 방법을 제안하십시오.

예 :

$str = "Hello"; 

그래서 마지막 두 문자가 "TR"을 말할 경우, 내가 문자열을 절단하기를 원하지만 마지막 문자가 아니기 때문에이 경우 우리는 원본과 문자열을 떠날 필요 "tr"

Answer 1

Perl의 대체 연산자 s///이 이상적입니다. \z은 문자열의 끝과 일치하지만 줄의 끝은 일치하지 않습니다.

$str =~ s/tr\z//;