文字列比較間違い

Question

私は、ドメイン名の有効期限を確認する関数のセットを書き込もうとしました：

(ql:quickload 'inferior-shell) 

(defun whois-lookup (site) 
    (let ((request (format nil "whois ~a" site))) 
    (inferior-shell:run/ss request))) 

(defun match-expiration-string (input) 
    (let ((test-string "Registrar Registration Expiration Date:")) 
    (string> input test-string))) 

(defun domain-expiration-date (site) 
    (with-input-from-string (input (whois-lookup site)) 
    (loop for line = (read-line input nil nil) 
      while line do 
      (when (match-expiration-string line) 
       (format t "~A~%~t~A ~%" site line))))) 

私はこのようにそれを呼び出すと思います：(domain-expiration-date "startpage.com")。

残念ながら、関連する行を表示するだけではなく、すべての行を表示します。

match-expiration-stringは正しく動作しているようですので、問題は何か分かりません。

CL-USER> (match-expiration-string "Registrar Registration Expiration Date: 2016-05") 
39 (6 bits, #x27, #o47, #b100111) 
CL-USER> (match-expiration-string "Registrar Registration Expiration ") 
NIL 

Answer 1

jkiiskiによって示唆されるように、それは正規表現で動作します：ジョシュア・テイラーはあなたが正規表現を必要としない、と言うのように

(defun match-expiration-string (input) 
    (let ((test-string "Registrar Registration Expiration Date:")) 
    (ppcre:scan test-string input))) 

==>

CL-USER> (domain-expiration-date "startpage.com") 
startpage.com 
Registrar Registration Expiration Date: 2018-10-10T04:00:00Z 
NIL 

---

、searchのみ。

(defun match-expiration-string (input) 
    (let ((inclusion-strings '("Expiration Date:")) 
     (exclusion-strings '("Registrar Registration Expiration Date:"))) 
    (when (some #'(lambda (s) (search s input)) 
       inclusion-strings) 
     (notany #'(lambda (s) (search s input)) 
       exclusion-strings))))