Re: Größte Schnittmenge von mehreren Dateien

[Eduard Bloch <edi@gmx.de>]

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

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

Das kostet aber Speicher und die Laufzeit skaliert nicht gut. Und mit
UTF-8-Locale kannst du sort und grep eh vergessen.

Perl-Version:

perl -ne 'print $_ if ++$seen{$_} > $#ARGV' *.txt

... egal wie viele Dateien. Kann man noch mit einmaliger Berechnung der
Anzahl beschleunigen.

MfG,
Eduard.

-- 
** WARNING **: snd_pcm_pause() failed: Die Dateizugriffsnummer ist ein schlechter Verfassung