※ 引述《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]是什麼意思呢
另外因為我是讀檔案
檔案前有