IDL伪爬虫实时监测研招网站

为了尽快获取招生网站发布的新消息，写了一个IDL的脚本，每分钟获取网站消息，判断今天有没有发布新消息，没想到第二天就派上用场了。
以下是代码（变量名过于简陋）：

DLM_LOAD, 'URL'
o=IDLnetURL()
while 1 do begin & $
c=o.Get(url='http://www.sitp.cas.cn/yjsjy/zsxx/ssszs/', /STRING_ARRAY) & $
t=STRTOK(SYSTIME(0), /EXTRACT) & $
d=STRJOIN([STRMID(t[4], 2, 2), STRING(1 + WHERE(STRUPCASE(t[1]) eq ['JAN','FEB','MAR','APR', 'MAY', 'JUN', 'JUL', 'AUG','SEP','OCT','NOV','DEC']), format = '(I02)'), STRING(t[2], format = '(I02)')], '-') & $
foreach e, c do begin & $
  if STRPOS(e, d) ne -1 then begin & $
    PRINT, t[3] + ' New Message Found!' & $
    exit & $
  endif & $
endforeach & $
PRINT, t[3] + ' No New Message!' & $
WAIT, 60 & $
endwhile

然后把文本保存为filename，在控制台直接输入idl filename就可以了。
下图是今天下午技物所研招办在下午发布的消息，成功捕获。