工具
青水
高级程序员,系统分析师
展开
-
解码:gzip压缩数据后再base64编码的数据流
(in-package :cl-user);样例数据 (defvar str"H4sIAAAAAAAAAE2STUvDQBCG/0puOdXdpIGkMG7ZJtMabDdhsxU85aBFCtqCgviTPHlQKPhxEEFBLx69+AsELx49iLvdfPSyPO/MO7szw0L/4uTYOZ+dns2Xi23X26KuM1scLA/niyNn23FHg123zyCbKgY7yBOUD...原创 2018-04-05 22:52:53 · 6370 阅读 · 0 评论 -
CLISP 之 创建HTTP GET、POST、HEAD请求
;;;; WHJ.20180504;;;; 创建HTTP GET、POST、HEAD测试 及 cookie 携带,自定义 Header; 注:首行要注意大写(in-package :cl-user)(defun reload nil (load "h:/lisptool/httpcli.lisp"))(defconstant +host-ip+ "localhost")(defconstant ...原创 2018-05-05 16:48:05 · 296 阅读 · 0 评论 -
【lisp】用 defclass 构造类似 defstruct 宏 : define-class 宏
defstruct 宏构造对象比 defclass 构造宏在定义对象时要明显简单,因为 defstruct 实现了常用的构造方法,比较 make-instance ,print-object,字段 reader and writer等等,可以大幅提高编码效率,另一方面 前段时间在构造二叉树时,发现 struct 不能用来方便存储左右支村,因为defstruct 定义的对象在显示(print)时会展...原创 2018-05-23 22:48:34 · 577 阅读 · 0 评论 -
【clisp】实现读取CSV文件
csv文件: 1、每行数据集各元素以逗号间隔 2、若单元素中有逗号,则整个元素以双引号括起来为一个单元素 3、若双引号元素中又有双引号,则需要转义双引号为 \"以clisp为例实现 csv 文件读取,实现如下:read-csv-file: 可以直接读取一个csv文件,并以列表形式返回数据。split-c...原创 2018-08-25 15:41:22 · 663 阅读 · 3 评论 -
【CLisp】JSON解析简单实现
使用说明:(defvar json-string "[a,b,c:{c:1,d:2},e]")(print (json-cvt json-string))解析结果:实现:;;;; json convert;;;; WHJ.20180916(defun define-macro-character-function (char-end) (lambda (st...原创 2018-09-18 21:06:50 · 184 阅读 · 0 评论