※ 引述《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]是什么意思呢
另外因为我是读档案
档案前有