use strict;
use warnings;
use Data::Dumper;
open OUT,">jieguo.txt";
my @file=glob "*.mapstat";
my %hash;
my %title;
foreach my $file(@file){
#$file = ~/(.*).all.mapstat/;
#my $id=$1;
#print $file;
my $n=0;
open IN,$file;
while(<IN>){
#$_=~s/\r//g;
chomp;
#next if(/^$/ || $_ eq "");
my ($name,$type,$info)=split/\s+/,$_;
#print "$type\n";
$title{$type}=$n;
$n++;
#if(!defined $info){print "h" if(/\t/);print $_;die;}
push @{$hash{$file}},$info;
}
close IN;
}
print OUT join("\t",(sort {$title{$a} <=> $title{$b}} keys %title));
print OUT"\n";
#print Dumper %hash;
#die;
for my $key (keys %hash){
# for my $i(0..$#{$hash{$key}}){
print OUT join("\t",@{$hash{$key}})."\n" ;
#}
}
批量处理并转置
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 有些时候，我们不仅要对一张图片进行处理，可能还会对一批图片处理。这时候，我们可以通过循环来执行处理，也可以调用程序...
- (1). 1111111->11,111,111.00 (2). 1111111->11,111,111和11,...
- 先放结论： - (CGRect)convertRect:(CGRect)rect fromView:(nullab...
