我將如何從除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 

謝謝。

編輯：字符串可以改變，關鍵字（千瓦）的位置也可以改變。

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 

---

編輯

如果是重要的字符串應就地進行編輯，該代碼使用相同的技術

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