Jak działa awk '! A [0 $] ++'?

Ten jednowarstwowy usuwa zduplikowane linie z wprowadzania tekstu bez wstępnego sortowania.

Na przykład:

$ cat >f
q
w
e
w
r
$ awk '!a[$0]++' <f
q
w
e
r
$ 

Oryginalny kod znaleziony w Internecie brzmiał:

awk '!_[$0]++'

Było to dla mnie jeszcze bardziej kłopotliwe, ponieważ wziąłem _specjalne znaczenie w awk, podobnie jak w Perlu, ale okazało się, że to tylko nazwa tablicy.

Teraz rozumiem logikę stojącą za linią jednokreskową: każda linia wejściowa jest używana jako klucz w tablicy mieszającej, dlatego po zakończeniu skrót zawiera unikalne wiersze w kolejności nadejścia.

Chciałbym się dowiedzieć, jak dokładnie interpretacja tego zapisu jest interpretowana przez awk. Np. Co oznacza znak huku ( !) i inne elementy tego fragmentu kodu.

Jak to działa?

Zobaczmy,

 !a[$0]++

pierwszy

 a[$0]

patrzymy na wartość a[$0](tablica az całą linią wejściową ( $0) jako kluczem).

Jeśli nie istnieje ( !czy negacja w teście stanie się prawdą)

 !a[$0]

wypisujemy wiersz wejściowy $0(akcja domyślna).

Dodajemy również jeden ( ++) a[$0], więc następnym razem !a[$0]zostanie ustawiona wartość false.

Fajnie, znajdź !! Powinieneś rzucić okiem na kod golfa!

Oto przetwarzanie:

• a[$0]: spójrz na wartość klucza $0w tablicy asocjacyjnej a. Jeśli nie istnieje, utwórz go.

• a[$0]++: zwiększ wartość a[$0], zwróć starą wartość jako wartość wyrażenia. Jeżeli a[$0]nie istnieje, powrót 0i przyrost a[$0]do 1( ++wraca operatora wartości numeryczne).

• !a[$0]++: zaneguj wartość wyrażenia. Jeśli a[$0]++return 0, całe wyrażenie jest oceniane na true, należy wykonać awkdomyślną akcję print $0. W przeciwnym razie całe wyrażenie zostanie ocenione na false, awkponieważ nic nie robi.

Referencje:

• Wyrażenie w awk
• gawk - Operatory inkrementacji i dekrementacji

Za pomocą gawkmożemy użyć dgawk (lub awk --debugnowszej wersji) do debugowania gawkskryptu. Najpierw utwórz gawkskrypt o nazwie test.awk:

BEGIN {                                                                         
    a = 0;                                                                      
    !a++;                                                                       
}

Następnie uruchomić:

dgawk -f test.awk

lub:

gawk --debug -f test.awk

W konsoli debuggera:

$ dgawk -f test.awk
dgawk> trace on
dgawk> watch a
Watchpoint 1: a
dgawk> run
Starting program: 
[     1:0x7fe59154cfe0] Op_rule             : [in_rule = BEGIN] [source_file = test.awk]
[     2:0x7fe59154bf80] Op_push_i           : 0 [PERM|NUMCUR|NUMBER]
[     2:0x7fe59154bf20] Op_store_var        : a [do_reference = FALSE]
[     3:0x7fe59154bf60] Op_push_lhs         : a [do_reference = TRUE]
Stopping in BEGIN ...
Watchpoint 1: a
  Old value: untyped variable
  New value: 0
main() at `test.awk':3
3           !a++;
dgawk> step
[     3:0x7fe59154bfc0] Op_postincrement    : 
[     3:0x7fe59154bf40] Op_not              : 
Watchpoint 1: a
  Old value: 0
  New value: 1
main() at `test.awk':3
3           !a++;
dgawk>

Widać, Op_postincrementzostał stracony wcześniej Op_not.

Możesz także użyć silub stepizamiast slub, stepaby lepiej widzieć:

dgawk> si
[     3:0x7ff061ac1fc0] Op_postincrement    : 
3           !a++;
dgawk> si
[     3:0x7ff061ac1f40] Op_not              : 
Watchpoint 1: a
  Old value: 0
  New value: 1
main() at `test.awk':3
3           !a++;