split-string

[OHASHI, Akira (=?ISO-2022-JP?B?GyRCQmc2NhsoQiAbJEI+NBsoQg==?=)]

大橋です。

From: Katsumi Yamaoka <yamaoka ＠ jpl.org>
Subject: Re: split-string
Date: Mon, 09 Jul 2001 16:36:36 +0900
Message-Id: <yosu66d2blko.fsf ＠ jpl.org>

> (delete "" (split-string "/hoge/fuga" "/"))

これだと (split-string "/hoge//fuga" "/") の間の "" も消えちゃいます。
無い知識を振り絞ってこんなコードを書いてみました。
(Elserv へのパッチ用に考えたコードです)

(setq path-list (split-string path "/"))
(if (equal "" (car path-list))
    (if (equal '("") (cdr path-list))
	nil
      (cdr path-list))
  path-list)

もっとスマートな方法を Heavy Lisper の皆さんに教えて頂きたいです。

-- 
OHASHI Akira (大橋 彰)
bg66 ＠ koka-in.org bg66 ＠ luck.gr.jp
Share what you know. Learn what you don't.