3

我正在编写一个函数来测试组织模式缓冲区中的断开链接：


    (setq urls '("http://google.com" "http://bing.com" "http://www.yahoo.com"  "http://thisdoesntexist.net"))
    (while (setq nextlink (car urls))
      (if (url-http-file-exists-p nextlink)
          (message "Link works: %s" nextlink)
        (message "Broken Link found: %s" nextlink))
      (setq urls (cdr urls)))

除非遇到不存在的 Web 服务器，否则此方法有效。然后它抛出一个 lisp 错误并打开一个回溯缓冲区。

我想要的是首先测试服务器是否存在，如果存在则使用 url-http-file-exists-p 检查特定文档。

谢谢

  • 编辑添加适合我的解决方案。谢谢多夫！ 
    (while (setq nextlink (car urls))
  (condition-case nil
    (if (url-http-file-exists-p nextlink)
        (message "Link works: %s" nextlink)
      (message "Broken Link found: %s" nextlink))
    ((error) (message "Server not found: %s" nextlink)))
    (setq urls (cdr urls)))
4

1 回答 1

6

为什么不通过异常处理condition-case块捕获错误？

于 2011-05-18T20:58:18.587 回答