On Sun, 07 Aug 2005 01:33:39 +0200, Eduard Bloch <[EMAIL PROTECTED]> wrote:

Moin Tilo!
Tilo Schwarz schrieb am Sonntag, den 07. August 2005:

Oder:

from sys import stdout
from sets import Set
files = ["/tmp/pc1.pkgs", "/tmp/pc2.pkgs"]
sets = [Set(file(f).readlines()) for f in files]
intersection = reduce(lambda x,y: x & y, sets)
stdout.writelines(intersection)

Viel zu lang, und langsamer als

perl -ne 'print $_ if $seen{$_}; $seen{$_}=1' file1 file2

BTW, meine bevorzugte Lösung ist sowieso

sort file*.txt | uniq -c | grep "      5" | cut -c9-

bei 5 Files.

Viele Grüße,

    Tilo


--
Haeufig gestellte Fragen und Antworten (FAQ): http://www.de.debian.org/debian-user-german-FAQ/

Zum AUSTRAGEN schicken Sie eine Mail an [EMAIL PROTECTED]
mit dem Subject "unsubscribe". Probleme? Mail an [EMAIL PROTECTED] (engl)

Antwort per Email an