推 ncukcm:謝謝你的幫忙 :-) 10/20 14:53
※ 引述《ncukcm (test)》之銘言：
: 我有一筆資料每一行的格式為
: S(字串) X Y Z A B C (以上皆為數字)
: 需要將這些資料重新排序然後再印出資料
: 先依 Z 大小再依 X 大小再依 Y 大小
: 想請教該如何寫比較好呢 ?
好久沒寫perl了...練習一下:p 應該沒寫錯（吧？）
在這裡假設你的資料檔名是test.txt...
#!/usr/bin/perl
sub by_order {
(split /\s+/, $a)[3] <=> (split /\s+/, $b)[3] or
(split /\s+/, $a)[1] <=> (split /\s+/, $b)[1] or
(split /\s+/, $a)[2] <=> (split /\s+/, $b)[2];
}
open TXT, "< test.txt";
@content = <TXT>;
close TXT;
foreach ( sort by_order @content ) {
print;
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.127.72.16
※ 編輯: wawawa 來自: 140.127.72.16 (10/19 21:11)
※ 編輯: wawawa 來自: 140.127.72.16 (10/19 21:12)