Kære Scripting eksperter,

Jeg har et problem, som jeg ikke kan få mit hoved rundt og spekulerede på, om nogen kan hjælpe mig. Jeg har to filer "fil1" og "fil2" og jeg ønsker at erstatte en kolonne fra fil 1 med en kolonne med fil2. (Hvor fil to har mange kolonner). se eksempel .. ive forsøgt at bruge klippe og indsætte, men fik myslef i et rod ...

fil1 fil2
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

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

Findes der en nem måde jeg kan gøre dette i awk? Ideelt set ville jeg gerne have en linje, som jeg kunne påberåbe sig at bruge systemet kommando i en perl script.

Tak


Mish

Beklager, men jeg kan ikke gøre ud af, hvilken del er fra fil1, og som fra fil2. Kan du sende dem på separate linjer og bruge dem code tags venligst ^ ^
Også det allerede lugter "join" ville være et godt valg for værktøj til brug for det.

Hej, Osrry til at håbe, det hjælper med afklaring af spørgsmål

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

Det er et forspring:

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

Jeg ville bruge Perl direkte:

$ 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