use strict;
open IN,"<1.Book";
open OUT,">final.txt";
my $i=0;
my @data;
while(<IN>){
chomp;
my @line=split/\t/,$_;
for my $k(0 .. $#line){
$data[$k][$i]=$line[$k];
}
$i++;
}
close IN;
for (@data){
print OUT join("\t",@{$_}),"\n";
}
perl进行行列转置
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- HTML 学习笔记 May 10，2017 js函数调用过程内存分析、js函数细节、js一维数组细节、二维数组转置...
- 本篇着重解决用MYSQL数据库将数据行与列相互转换进行查询，我将直接用实际的例子来讲解。 第一 将某列的分类数据转...
