[Mew-dist 2213] Re: sort

[Takashi P.KATOH]

かとぺ です。
# あまり深く考えない方がいいのかも...

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 2206] Re: sort
>> で、mode が num のときに s/\D+/ /g とでもするパッチをつくろ
>> うかと思ったのですが、
>> | X-Sequence: No.1-ml 1233
>> とかだと困ることに気付きました。
>> うまい方法はないものでしょうか？
> それならば、後ろから数字を探すようにすればいいのではないでしょうか？
> 具体的には、
>   m/(\d+)\D*$/;
> でマッチを取って、$1 を使えばいいと思います。

X-Sequence: などに限っていえばそうでしょうが、最初に出てくる
数字を使いたい場合などはないのでしょうか。
まぁ、私自身そんな場面に出会ったことはないので、ないのかもし
れません :-p)

「num mode は最後の数字を使うのが仕様である」と言い切ってし
まうなら (たぶんそれで良いのでしょう)、こんな感じでしょうか。
# わざわざ作るほどのこともないパッチですが...


--- imsort.in,p2	Mon Sep 22 16:39:48 1997
+++ imsort.in	Mon Sep 22 16:31:19 1997
@@ -174,6 +174,10 @@
 	    s/^(re:\s*)(.*)$/$2$1/i;
 	}
     }
+    if ($smode eq 'num') {
+	m/(\d+)\D*$/;
+	$_ = $1;
+    }
     if ($smode eq 'date'){
 	if (/(\d+)\s+($m_rxp)\s+(\d+)\s+(\d+):(\d+)(:(\d+))?\s+($z_rxp)/io){
 	    return sec_from_epoc($3<100?$3+1900:$3, $MONTH{$2}, $1,


-- 
  東北大学大学院 情報科学研究科 白鳥研究室    加藤 貴司
  p-katoh at example.com / Takashi P.KATOH
  http://www.shiratori.riec.tohoku.ac.jp/~p-katoh/MAIL/