标签：c   class   blog   code   a   com   

构建一个list

注意要标记不要求值，比如用‘ 或者list

> (list "a" "b" "c")
("a" "b" "c")

> ‘("a" "b" "c")
("a" "b" "c")

处理string list

在一个string list中用正则表达式查找

查找第一个匹配到的元素：

> (set ‘l ‘("WARNING: org.apache.hadoop.metrics.jvm.EventCounter is deprecated. Please use org.apache.hadoop.log.metrics.EventCounter in all the log4j.properties files." "recommend" "search" "test"))
("WARNING: org.apache.hadoop.metrics.jvm.EventCounter is deprecated. Please use org.apache.hadoop.log.metrics.EventCounter in all the log4j.properties files." 
 "recommend" "search" "test")
> (find "WARN" l 1)
0
> (find "WARN3" l 1)

用正则表达式查找并删除string list中的string

;; @param case-insensitive 1 for case-insensitive search or 0 for no special options                                                              
(define (remove str-list str-regex case-insensitive)
  (set ‘i (find str-regex str-list case-insensitive))
  (pop str-list i)
  str-list
  )

;; @syntax (HIVE:show-dbs)                                                                                                                        
(define (show-dbs)
  (set ‘r (exec (format "hive -e ‘show databases‘ 2>&1")))
  (set ‘r (STRING_LIST:remove r "^WARNING.+" 1))
  (set ‘r (STRING_LIST:remove r "^Logging.+" 1))
  (set ‘r (STRING_LIST:remove r "^Hive.+" 1))
  (set ‘r (STRING_LIST:remove r "OK" 1))
  (STRING_LIST:remove r "^Time taken.+" 1)
  )

newLISP list操作,布布扣,bubuko.com

newLISP list操作

标签：c   class   blog   code   a   com   

原文地址：http://blog.csdn.net/csfreebird/article/details/28878593