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" ;
#}
}
批量處理并轉置
最后編輯于 ：
?著作權歸作者所有,轉載或內容合作請聯(lián)系作者
- 文/潘曉璐 我一進店門，熙熙樓的掌柜王于貴愁眉苦臉地迎上來罕邀，“玉大人畅形，你說我怎么就攤上這事∷咛剑” “怎么了日熬？”我有些...
- 正文 為了忘掉前任毕荐，我火速辦了婚禮，結果婚禮上艳馒，老公的妹妹穿的比我還像新娘憎亚。我一直安慰自己，他們只是感情好弄慰，可當我...
- 文/花漫 我一把揭開白布虽填。 她就那樣靜靜地躺著，像睡著了一般曹动。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上牲览，一...
- 文/蒼蘭香墨 我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼飒赃！你這毒婦竟也來了利花？” 一聲冷哼從身側響起科侈，我...
- 正文 年R本政府宣布韧涨，位于F島的核電站牍戚，受9級特大地震影響，放射性物質發(fā)生泄漏虑粥。R本人自食惡果不足惜如孝，卻給世界環(huán)境...
- 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望娩贷。 院中可真熱鬧第晰，春花似錦、人聲如沸彬祖。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽储笑。三九已至甜熔，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間突倍，已是汗流浹背腔稀。 一陣腳步聲響...
推薦閱讀更多精彩內容
- 有些時候，我們不僅要對一張圖片進行處理疏尿，可能還會對一批圖片處理瘟芝。這時候，我們可以通過循環(huán)來執(zhí)行處理润歉，也可以調用程序...
- 當需要成批插入或者更新記錄時模狭。可以采用Java的批量更新機制踩衩，這一機制允許多條語句一次性提交給數(shù)據(jù)庫批量處理嚼鹉。通常...
- 發(fā)現(xiàn)問題 在使用Unity的物理碰撞時，會用到該方法： void OnCollisionEnter2D(Colli...
- (1). 1111111->11,111,111.00 (2). 1111111->11,111,111和11,...
- 先放結論： - (CGRect)convertRect:(CGRect)rect fromView:(nullab...
