Perl의 키워드를 제외한 모든 문자열을 제거하려면 어떻게해야합니까?

Question

내가 가진이 같은 문자열 :

component.kw1_tap/rt (path/to/file1/kw1) (path/to/file2/kw2) 

내가 원하지 않는 문자를 제거하고 같은 깨끗한 문자열을 생산할 수 있어요 :

component kw1 tap rt path to file1 kw1 path to file2 kw2 

지금 내가 kw1 및 kw2을 제외한 모든 것을 제거 할을, 내 마지막 문자열은 다음과 같아야합니다.

kw1 kw2 

고맙습니다.

EDIT : 문자열이 변경 될 수 있으며 키워드의 위치 (kw)도 변경 될 수 있습니다.

Answer 1

문자열의 나머지 단어에는 적용되지 않는 kw1 및 kw2에 대한 특별한 정보가 없기 때문에 긴 글입니다.

아마도이 기능이 유용할까요?

use 5.12.0; 

my $s = 'component.kw1_tap/rt (path/to/file1/kw1) (path/to/file2/kw2)'; 

my @keywords = $s =~ m|([^/]+?)\s*\)|g; 

say for @keywords; 

출력

kw1 
kw2 

---

EDIT가

는 문자열이 현재 위치에서 수정되어야하는 것이 중요하면,이 코드는 동일한 기술을 사용

use 5.12.0; 

my $s = 'component.kw1_tap/rt (path/to/file1/kw1) (path/to/file2/kw2)'; 

$s = join ' ', $s =~ m|([^/]+?)\s*\)|g; 

say $s; 

출력

kw1 kw2