Caro Scripting peritos,

Eu tenho um problema que não posso ficar em torno de minha cabeça e perguntou se alguém pode me ajudar. Tenho dois arquivos "ficheiro1" e "ficheiro2" e quero substituir uma coluna a partir do arquivo 1, com uma coluna com ficheiro2. (Onde tem muitos arquivos duas colunas). veja o exemplo .. ive tentou usar cortar e colar, mas tenho myslef em uma bagunça ...

ficheiro1 ficheiro2
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

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

Existe uma maneira mais fácil que eu posso fazer isso no awk? Idealmente, gostaria de ter uma uma camisa que eu poderia invocar utilizando o sistema de comando em uma perl script.

Obrigado


Mish

Desculpe, mas eu não posso fazer para fora, que é parte de ficheiro1 e que a partir de ficheiro2. Você pode publicá-las em linhas separadas e utilizar esses códigos tags por favor ^ ^
Também já cheira a "aderir" seria uma boa escolha para a ferramenta a ser usada para isso.

Oi, Osrry espero que isto contribui para esclarecer questões

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

Isso é um avanço:

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

Gostaria de usar Perl directamente:

$ 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