Perl 6 Einzeiler zum Drucken von einzigartigen Zeilen einer Datei

Question

Ich habe diese sehr nützliche Einzeiler gefunden, es funktioniert, aber ich kann nicht verstehen, wie es gelingt, durch die Zeilen der Datei zweimal zu durchlaufen.

perl6 -ne 'state %l; .say if ++%l{$_} == 1' input-file.txt 

Answer 1

Es gibt nur einen Zyklus.
Es sammelt alle Zeilen als Schlüssel in %l, mit den Werten wie oft es es gesehen hat.
Wenn dies das erste Mal ist (… == 1), ist es auf eine Kopie der aktuellen Zeile gestoßen, die es druckt.

Es funktioniert im Grunde das gleiche wie:

my %l; 

for $*ARGFILES.lines() { # this is basically what `-n` does 

    ++%l{ $_ };    # update the count 

    .say if %l{ $_ } == 1; # print it if this is the first time it was seen 

} 

Ich denke, der Grund … if ++$… == 1 statt … unless $…++ verwendet wurde, ist, dass &prefix:«++» etwas performanter als &postfix:«++»

---

Eine andere potentiell effizienter (je auf die Implementierung von .unique) Weg, es zu schreiben wäre:

perl6 -e '.put for $*ARGFILES.lines.unique' input-file.txt 

Answer 2

Lassen Sie uns dies ein wenig entpacken. Die -n Option fügt eine for lines() { ... } Schleife um den Code, so haben wir

for lines() { 
    state %l; 
    .say if ++%l{$_} == 1 
} 

Warum ein state var? Es gibt keine einfache Möglichkeit, eine Variable in einem äußeren Bereich der impliziten Schleife dieser einen Zeile zu deklarieren. Andernfalls würden Sie schreiben, dass als

my %l; 
for lines() { 
    .say if ++%l{$_} == 1 
} 

%l Überblick über die Anzahl der Male hält eine Leitung (gespeichert in $_) gesehen wurde. Es verwendet Autovification. Wenn also zum ersten Mal eine Zeile angezeigt wird, fügt der Operator ++ diese automatisch zum Hash hinzu.

.say ist eine Abkürzung für $_.say