Awk '! A [$ 0] ++' nasıl çalışır?

Bu tek astar, ön sıralama yapmadan yinelenen satırları metin girişinden kaldırır.

Örneğin:

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

İnternette bulduğum orijinal kod okundu:

awk '!_[$0]++'

_Perl'de olduğu gibi awk'de özel bir anlam kazandığım için bu daha da şaşırtıcıydı , ama sadece bir dizinin adıydı.

Şimdi, bir astarın arkasındaki mantığı anlıyorum: her giriş satırı bir karma dizisinde anahtar olarak kullanılır, böylece tamamlandıktan sonra karma, varış sırasına göre benzersiz çizgiler içerir.

Öğrenmek istediğim şey, bu gösterimin awk tarafından tam olarak nasıl yorumlandığı. Örneğin, bang işareti ( !) ve bu kod snippet'in diğer elemanları.

O nasıl çalışır?

Bakalım,

 !a[$0]++

ilk

 a[$0]

değerine bakarız a[$0]( abütün giriş satırını içeren dizi ( $0) anahtar olarak).

Eğer yoksa ( !testte olumsuzluk doğru olarak değerlendirilecektir)

 !a[$0]

giriş satırını yazdırıyoruz $0(varsayılan eylem).

Ayrıca, bir tane ( ++) ekliyoruz a[$0], böylece bir dahaki sefere !a[$0]false olarak değerlendireceğiz.

Güzel, bul !! Golf koduna bir göz atmalısın!

İşte işleme:

• a[$0]: $0ilişkisel dizideki anahtarın değerine bakınız a. Eğer yoksa, oluşturun.

• a[$0]++: değerini artırır, a[$0]eski değeri ifade değeri olarak döndürür. Eğer a[$0], mevcut geri dönmez 0ve artış a[$0]için 1( ++operatör getiri sayısal değer).

• !a[$0]++: ifadenin değerini olumsuzlar. a[$0]++Dönüş olursa 0, tüm ifade doğru olarak değerlendirilir, awkvarsayılan eylemi gerçekleştirir print $0. Aksi takdirde, tüm ifade yanlış olarak değerlendirilir, nedenler awkhiçbir şey yapmaz.

Referanslar:

• Awk cinsinden ifade
• gawk - Artırma ve Azaltma Operatörleri

İle bir betiği hata ayıklamak gawkiçin dgawk (veya awk --debugdaha yeni bir sürümle) kullanabiliriz gawk. İlk önce, gawkadında bir script oluşturun test.awk:

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

O zaman koş:

dgawk -f test.awk

veya:

gawk --debug -f test.awk

Hata ayıklayıcı konsolunda:

$ 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>

Gördün mü, Op_postincrementdaha önce idam edildi Op_not.

Ayrıca kullanabilir siveya stepiyerine sya stepdaha net görmek için:

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++;