Quote

Code: (dl )

perl -ne 's/^\w+(.*)\)$/$1/g' test.txt

wenn du wirklich substituieren willst (im Sinne von infile replacement), dann kannst du auch



verwenden. dann allerdings wird 1) test.txt überschrieben 2) enthält (das neue) test.txt auch alle zeilen, die nicht matchen.

und noch eine anmerkung zum g modifier. der ist in deinen beiden codebeispielen überflüssig. zum einen kann ein ausdruck der in ^ und $ eingeschlossen ist sowieso höchstens einmal pro Zeile matchen (wenn man $/ umdefiniert muss man dann zumindest noch zusätzlich den m modifier verwenden), außerdem macht bei "reinem matching" (also ohne substitution) /g auch nur in einer while-schleife sinn.\n\n

<!--EDIT|jubei|1185366104-->