作者cutekid (KID)
看板Perl
标题Re: [问题] 杂凑取值的问题
时间Fri Jan 18 03:01:01 2013
※ 引述《yalent ( 心只有你 )》之铭言：
: 有个问题想跟大家请教
: 我有一个档案里面有一串资料是这样
: Data for all :
: No. A/B Count Percent Name
: ---- ---------- --- ------------ ------- -----------------
: ALL 1 A 10834 93.74 P1
: ALL 5 B 368 3.18 P2
: ALL 8 B 218 1.89 N/A
: ALL 7 B 93 0.80 F1
: ALL 10 B 23 0.20 F2
: ALL 6 A 21 0.18 F3
: 但是我想转换档案成下面这样
: Data for all :
: No. A/B Count Percent Name
: ---- ---------- --- ------------ ------- -----------------
: ALL 1 A 10834 93.74 P1
: ALL 5 B 368 3.18 P2
: ALL 6 A 21 0.18 F3
: ALL 7 B 93 0.80 F1
: ALL 8 B 218 1.89 N/A
: ALL 10 B 23 0.20 F2
: 大概有初步的想法是用杂凑取值
: 但是杂凑里面要将No.做大小排列这部分不晓得怎麽用
: 有大大可以帮忙的吗?
: 感谢
#!/usr/bin/perl -w
while(<DATA>){
push(@refs,[m#\s+[./\w]+#g]);
}
foreach $ref (sort {$a->[1] <=> $b->[1]} @refs){
print @$ref,$/;
}
__END__
ALL 1 A 10834 93.74 P1
ALL 5 B 368 3.18 P2
ALL 8 B 218 1.89 N/A
ALL 7 B 93 0.80 F1
ALL 10 B 23 0.20 F2
ALL 6 A 21 0.18 F3
※ 编辑: cutekid 来自: 36.225.160.245 (01/18 03:01)