5 lines
253 B
Common Lisp
5 lines
253 B
Common Lisp
CL-USER> (cl-ppcre:do-matches-as-strings
|
|
(m ".*<BR>(.*)UTC.*"
|
|
(drakma:http-request "http://tycho.usno.navy.mil/cgi-bin/timer.pl"))
|
|
(print (cl-ppcre:regex-replace "<BR>(.*UTC).*" m "\\1")))
|
|
"Jul. 13, 06:32:01 UTC"
|