わたなべです.

GOTO Kentaro <gotoken / math.sci.hokudai.ac.jp> writes:

:# 「perl5 の Time::Zone」ていうのはどうやって
:# 参照するのですか? 

perl5 がインストールされてれば
perl -MCPAN -e 'install Time::Zone'
で CPAN から勝手に取ってきてインストールされます.
さっき実際にやったときは
ftp://ftp.lab.kdd.co.jp/CPAN/authors/id/GBARR/TimeDate-1.08.tar.gz
でした.

:folder.sort{|i,j|
:  9 * ( 1 + (i['From']<=>j['From']) ) +
:  3 * ( 1 + (i['Subject']<=>j['Subject']) ) +
:      ( 1 + (i.time<=>j.time) ) - ((27-1)/2)
:}                             # ^^^^^^^^^^^^

#なるほど. bias の -(9 + 3 + 1) ってことか.
'From' で決定してればしなくてもいい計算をしてしまうとこが
ちょっとなんですね.

そうするとやっぱ nonzero? を使って
  folder.sort{|i,j|
    (i['From']<=>j['From']).nonzero? or
    (i['Subject']<=>j['Subject']).nonzero? or
    i.time<=>j.time
  }
かな.

-- 
わたなべひろふみ