※ 引述《cutekid (KID)》之铭言： : #!/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) 您好 谢谢您的回覆 但是我看不太懂这一串push(@refs,[m#\s+[./\w]+#g]); 我只大概知道是将[m#\s+[./\w]+#g] 丢到@refs中 但是[m#\s+[./\w]+#g]是什麽意思呢 另外因为我是读档案 档案前有 ----DATA Start----的字眼 当我比对到----DATA Start----时我才会进去做排序的动作 但是我跑出来的结果是 ALL 1 A 10834 93.74 P1 ALL 1 A 10834 93.74 P1 ALL 5 B 368 3.18 P2 ALL 1 A 10834 93.74 P1 ALL 5 B 368 3.18 P2 ALL 6 A 21 0.18 F3 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 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 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 会有这样的重复 请问这样要怎麽办呢? 谢谢您的回答~ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 220.132.37.216