Привет.

Я эти данные ниже: --
v1 28 14 1,72414 1,72414 1,72414 1,72414 1,72414
v2 77 7 7,47126 6,89655 6,89655 6,89655 6,89655
v3 156 3 21,2644 21,2644 20,6897 21,2644 20,6897
v4 39 3 1,72414 1,72414 1,72414 1,72414 1,72414
V5 155 1 21,2644 23,5632 24,1379 23,5632 24,1379
V6 62 2 2,87356 4,02299 4,02299 2,87356 4,02299
v7 152 4 20,6897 20,6897 20,6897 20,6897 20,6897
V8 154 1 22,4138 22,4138 22,4138 22,4138 22,4138

и я хотел бы перенести их в следующем: --

v1 v2 .......... V8
28 77
14 .7
1,72414 7,47126
1,72414 6,89655
1,72414 6,89655
1,72414 6,89655

Пожалуйста, сообщите. Спасибо

Взятые из GNU AWK справочник:

(
если (max_nf <NF)
max_nf \u003d Н.Ф.
max_nr \u003d NR
для (X \u003d 1; X <\u003d Н.Ф.; X + +)
вектор [X, NR] \u003d $ X
)

END (
для (X \u003d 1; X <\u003d max_nf; X + +) (
для (Y \u003d max_nr; Y> \u003d 1; - Y)
printf ( "% S", вектор [X, Y])
printf ( "\ N")
)
)

Копирование, что в файл, а затем ссылаться на это так:

AWK-F scriptfile datafile | AWK '(печати $ 8 "\ T" $ 7 "\ T" $ 6 "\ T" $ 5 "\ T" $ 4 "\ T" $ 3 "\ T" $ 2 "\ T" $ 1 "\ T" ) '

Неопределенный артикль Perl Сценарий перенести на Metrix, надеюсь, что он может решить Вашу проблему.

$file=shift;
open(FH,"<$file") or die "can not open file";
while(<FH>){
        $_=~ tr/\n//d;
        @arr=split(",",$_);
        $col=$#arr;
        for($i=0;$i<=$#arr;$i++){
                $index=sprintf("%s%s",$.,$i);
                $hash{$index}=$arr[$i];
        }
        $row=$.;
}
close(FH);
for($a=0;$a<=$col;$a++){
        for($b=1;$b<=$row;$b++){
                $t=sprintf("%s%s",$b,$a);
                print $hash{$t},",";
        }
        print "\n";
}