Wie würde ich alles außer String in Perl entfernen?

Question

Ich habe eine Zeichenfolge wie folgt:

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

Ich bin in der Lage, die unerwünschten Zeichen zu entfernen und eine saubere Zeichenfolge wie folgt erzeugen:

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

jetzt habe ich alles, aber kw1 und kw2 entfernen möchten, so sollte meine letzte Zeichenfolge sein:

kw1 kw2 

Vielen Dank.

EDIT: die Zeichenfolgen können ändern und die Position der Schlüsselwörter (KW) kann sich auch ändern.

Answer 1

Dies ist eine lange Geschichte, da Sie keine Ahnung haben, was das Besondere an kw1 und kw2 ist, das nicht auf die restlichen Wörter in Ihrer Zeichenfolge zutrifft.

Vielleicht funktioniert das für Sie?

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; 

Ausgang

kw1 
kw2 

---

EDIT

Wenn es wichtig ist, dass die Zeichenfolge sollte an Ort und Stelle bearbeitet werden, dieser Code verwendet die gleiche Technik

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; 

Ausgang

kw1 kw2