Re: [shell-script] Trocar linhas por colunas

[Tiago Barcellos Peczenyj]

Ola

Isto é uma ideia, vc precisa refinar mais:

awk '{ MAX=NR;  A[NR]=$3; B[NR]=$4; C[NR]=$5; D[NR]=$6 }
END{
      for(i=1;i<=MAX;i+=4){
           print A[i],A[i+1],A[i+2],A[i+3]
      }
      for(i=1;i<=MAX;i+=4){
           print B[i],B[i+1],B[i+2],B[i+3]
      }
      # por ai vai...
}' arq1 > arq2


A ideia é criar vetores com os dados que vc quer e manipula-los da forma
como vc quiser ;-)

On 12/20/06, merthobu <address@hidden> wrote:
>
>   Olá pessoal,
> Estou em apuros ...alguém pode dar um help? ...lembrei de que só
> oramos quando santa Bárbara manda uns trovões...
>
> Tenho vários arquivos no seguinte formato:
>
> orbital 1 orbital 2 orbital 3 orbital 4
> orbital 5
> N 1s 0.0001059 0.9952636 -0.1239903 -0.1576026
> -0.0933333
> N 2s 0.0003291 0.0235741 0.2691059 0.3762469
> 0.1973574
> N 2px 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> N 2py 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> N 2pz 0.0001459 -0.0028692 -0.1966343 0.0437243
> 0.4744341
> N 3s -0.0008002 0.0016235 0.0990623 0.3847572
> 0.4666182
> N 3px 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> N 3py 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> N 3pz 0.0006671 -0.0004888 -0.0086384 0.0278872
> 0.1727728
> N 3dxx 0.0000916 -0.0035963 -0.0129366 -0.0000562
> 0.0097609
> N 3dyy 0.0000916 -0.0035963 -0.0129366 -0.0000562
> 0.0097609
> N 3dzz -0.0008716 -0.0020006 0.0379962 -0.0021703
> -0.0438364
> N 3dxz 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> N 3dyz 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> N 3dxy 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> O 1s 0.9947426 -0.0003089 -0.1808577 0.1358836
> -0.0249040
> O 2s 0.0209103 0.0003798 0.4136791 -0.3222243
> 0.0484837
> O 2px 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> O 2py 0.0000000 0.0000000 0.0000000 0.0000000
> 0.0000000
> O 2pz 0.0018215 -0.0002304 0.1711557 0.3223566
> -0.4110206
> O 3s 0.0047029 -0.0019485 0.3102427 -0.4456531
> 0.1324773
>
> Gostaria de extrair as colunas chamadas de orbital 1, orbital 2,
> etc... para outro arquivo, porém com outro formato. Gostaria de trocar
> as colunas por linhas contendo no máximo 4 campos. Estou tentando
> fazer isso com o "awk" mas tah meio enrolado a parte de colocar no
> formato linhas com 4 campos.
>
> Para extrair os campos eu faço:
>
> awk '{print $3, $4, $5, $6}' arq1 > arq2
>
> Mas isso só gera as colunas...alguém poderia dar uma luz ao problema
> se possível em awk?
>
> Valeu qq ajuda...falow.
>
> Humberto
>
>  
>



-- 
Tiago B Peczenyj
Linux User #405772

# cd /pub
# more beer


[As partes desta mensagem que não continham texto foram removidas]