🚀 go-pugleaf

In article <8ea_9603052100@thing.in-berlin.de> koka@thing.in-berlin.de (Konrad H. Knauer) writes:

>Kennt sich hier jemand gut mit AWK aus ? GNU AWK 3.0 (Dos oder OS/2)
>
>Problem ist ich will zwei oder mehr Listen abgleichen, nur falls ein Feld
>auch in der zweiten existiert, soll der Record in die Output Liste. Geht
>das ?

Sowas l�st man besser mit perl(1).

Beispiel:

#!/usr/bin/perl
open(A, "$ARGV[0]") || die "$ARGV[0]: $!\n";
open(B, "$ARGV[1]") || die "$ARGV[1]: $!\n";
while(<A>) { $a{$_}++ }
while(<B>) { print if $a{$_} }
close A; close B;