Sehr geehrte Scripting Experten,

Ich habe ein Problem, das kann ich nicht meinen Kopf herum und fragte sich, ob jemand kann mir helfen. Ich habe zwei Dateien "Datei1" und "file2", und ich möchte an die Stelle der Kolonne ein aus einer Datei 1 mit Spalte mit Datei2. (Zwei, wo die Datei hat viele Spalten). siehe Beispiel .. IVE versucht, Ausschneiden und Einfügen, sondern hat myslef in einem Chaos ...

datei1 datei2
1 9 66 8 A
2 8 3 9 B
3 66 4 25 C
4 66 2 6 D
7 4 3 3 E
5 4 5 45 F

Leistung: --
1 66 8 A
2 3 9 B
3 4 25 C
4 2 6 D
7 3 3 E
5 5 45 F

Gibt es einen einfachen Weg Das kann ich in awk? ideal Ich hätte gerne eine Linienkonferenzen, die ich könnte sich mit dem System-Befehl in einer perl Skript.

Danke


Mish

Es tut uns leid, aber ich kann nicht erkennen, welcher Teil von datei1 und datei2 aus. Können Sie sie auf separaten Zeilen und diese Code-Tags bitte ^ ^
Auch sie bereits Gerüche wie "join" wäre eine gute Wahl für das Tool zu verwenden, dass für.

Hi, Osrry für die Hoffnung, dass dies die Klärung von Fragen

File 1
1
2
3
4
5
6

File 2
 9    66 8  a
 8    3  9  b
 66   4  25 c
 66   2  6  d 
 4    3  3  e
 4    5  45 f

output
  1    66 8  a
  2    3  9  b
  3    4  25 c
  4    2  6  d 
  5    3  3  e
  6    5  45 f

Das ist ein Vorsprung:

awk 'NR==FNR{_[NR]=$0;next;}{$1=_[FNR];print}' file1 file2

Ich würde Perl direkt:

$ head file*
==> file1 <==
1
2
3
4
5
6

==> file2 <==
 9    66 8  a
 8    3  9  b
 66   4  25 c
 66   2  6  d 
 4    3  3  e
 4    5  45 f
$ perl -e'
  open F1,"<file1"or die$!;open F2,"<file2"or die$!;
  s/([^\s]+)\s*/<F1>/eand s/\n/\t/and print while<F2>;
  close F1;close F2'         
 1      66 8  a
 2      3  9  b
 3      4  25 c
 4      2  6  d 
 5      3  3  e
 6      5  45 f