しゃある通信

---

#23-03 perl
QUX と CSV(comma separated value) の field sort の話。

sub FieldSort {
    @a = split(/,/, $a);
    @b = split(/,/, $b);
    
    return $b[2] cmp $a[2];
}

だねー、とか。もっとスマートな方法があるんだろう、きっと。

---

---

© 2001 Kazuya 'Sharl' Masuda