Dotaz: awk gsub

[ZdenekT]

V AWK potřebuji v textu nahradit vše, co neodpovídá danému vzoru. Konkrétně, vzor je vždy zobáček následovaný písmenem, např "^x". Čili např. z textu "^aXXXXX^bYY^cZZZZZZ" má zůstat "^a^b^c". Nahradit skupinu znaků pomocí gsub umím, použít negaci na jeden znak také, ale s negací na skupinu znaků si poradit neumím. Díky za případné rady.

Odpovědi

[Tarmaq]

nejsem uplne expert pres awk, ale tohle mi funguje:

$ echo echo '^aXXXXX^bYY^cZZZZZZ' | awk '{ $0=gensub(/(\^\w)[^^]*/, "\\1", "g"); print $0}'
^a^b^c

Pokud by nebylo nutne pouzit awk, tak sedem takto

echo '^aXXXXX^bYY^cZZZZZZ' | sed 's/\(\^[a-z]\)[^^]*/\1/gi'
^a^b^c

[NN]

echo ^aXXXXX^bYY^cZZZZZZ | awk 'gsub(/[^ \^a-z]/,"",$0) {print}'

[Tarmaq]

proc je tam ta mezera? Pro retezec ^abcd^efgh^ijkl nevrati nic, a pro retezec ^aXbX^cYdY^eZfZ to vrati ^ab^cd^ef presto ze by to melo vratit jen ^a^c^e

[potato]

Asi proto, že je problém zadán pouze příkladem, takže to ponechává malá písmena a maže velká, stejně jako v tom příkladu...

[NN]

Aby zvyraznila tu negaci, jinak tam byt nemusi. Jelikoz !// nefunguje, da se to take udelat obracene:

echo ^aXXXXX^bxfYY^cDdZZZZZZ | awk 'gsub(/[A-Z]|[A-Z]+[a-z]+[A-Z]+/,"") {print}'