egrep-Zeilen durchmischen

[Daniel Thoma]

Hallo,

Mit grep kannst Du Dateien durchsuchen. Zu mischen ist es ungeeignet.
Weil es Du bist, gibt es heute mal ein fertiges Prog.
Folgendes Perlscript mischt die Zeilen von 2 Dateien und schreibt sie in eine 3.:

#!/usr/bin/perl -w
use strict;
open(IN,$ARGV[0]);
my @liste1 = <IN>;
close(IN);
open(IN,$ARGV[1]);
my @liste2 = <IN>;
close(IN);
my @result = ();
while(@liste1 || @liste2) {
  if(@liste1) {
    push @result, splice @liste1, int rand @liste1, 1;
  }
  if(@liste2) {
    push @result, splice @liste2, int rand @liste2, 1;
  }
}
open(OUT,">$ARGV[2]");
print OUT join('',@result);
close(OUT);

Unter Linux brauchst Du das Script nur in eine Datei speichern. (zb mischen), dann diese ausführbar machen (chmod 755 mischen) und aufrufen ./mischen eingabe1.txt eingabe2.txt ausgabe.txt

Grüße

Daniel