4

我有以下代码：

(defn post
  [title content timestamp]
    (let [[innholdet tajm]
       [(str "<html>
              <head>
              <title>" title " :: " blog_title "</title></head>
              <body><h1>" title "</h1>
              <br/>" content "<br/><i>posted " (Date. timestamp) "</i>
              <br/><a href=\"" (str blog_url) "\">[main]</a> | 
              <a href=\"" (str blog_url) "/" timestamp ".html\">[permalink]</a>
              </body></html>") (str timestamp".html")]]
                 (spit tajm innholdet)
   )
 )

我有另一个函数将标题、内容和 UNIX 时间戳传递给上面的函数“post”。blog_title 和 blog_url 是在代码顶部定义的 var。为了美观，我对 HTML 进行了排序，在“真实代码”中并非如此。我也在做

(import 'java.util.Date)
(use 'clojure.string)

如果我尝试执行代码，我会收到错误

java.lang.IllegalArgumentException

如果我删除（日期。时间戳）代码执行完美，但我需要有那个（日期。）功能。

现在，如果我在 REPL

(import 'java.util.Date)

然后定义一个带有时间戳的var

(def timestamp 1278854531000) ;; Just for pushing a var into (Date.) than just the number

然后我只是将 (let) 复制到 REPL 并调整原始代码中的 var 以仅表示不同的函数名称而不是值（因为这是 REPL 以及原始代码中的 var、函数和值不存在），是这样的：

(let [[innholdet tajm] 
  [(str "<html>
         <head>
         <title>" (str "title") " :: " (str "blog_title") "</title>
         </head>
         <body><h1>" (str "title") "</h1><br/>" (str "content") "<br/>
         <i>posted " (Date. timestamp) "</i><br/>
         <a href=\"" (str "blog_url") "\">[main]</a> | 
         <a href=\"" (str "blog_url") "/" (str "1278854531000") ".html\">[permalink]</a></body></html>") 
         (str "1278854531000.html")]] 
           (println innholdet tajm))

现在 REPL 给了我：

<html>
<head>
<title>title :: blog_title</title>
</head>
<body>
<h1>title</h1><br/>content<br/>
<i>posted Sun Jul 11 15:22:11 CEST 2010</i><br/>
<a href="blog_url">[main]</a> | 
<a href="blog_url/1278854531000.html">[permalink]</a>
</body></html> 
1278854531000.html
nil

再一次，所有的东西都被转移了，这样阅读起来会更友好，在 REPL 中，所有的东西都以一个大字符串的形式出现。

这里的问题是我可以在 REPL 中执行代码并获取 (Date.timestamp) 的值并且一切正常，但是当我在程序中的函数内部执行它时，我得到了上述错误。如果有人能告诉我我在这里缺少什么，将不胜感激。

4

1 回答 1

2

只需稍作改动：

(defn post
  [title content timestamp]
    (let [[innholdet tajm]
       [(str "<html>
              <head>
              <title>" title " :: " blog_title "</title></head>
              <body><h1>" title "</h1>
              <br/>" content "<br/><i>posted " (Date. **(Long/parseLong timestamp)**) "</i>
              <br/><a href=\"" (str blog_url) "\">[main]</a> | 
              <a href=\"" (str blog_url) "/" timestamp ".html\">[permalink]</a>
              </body></html>") (str timestamp".html")]]
                 (spit tajm innholdet)
   )
 )

但是，我仍然建议您想办法将时间戳作为长而不是字符串传递。

于 2010-07-13T00:42:03.803 回答