scheme是lisp的一种
编辑器可以用emacs,网上有很多教导如何编写的
(begin
(display "hello")
(newline))
编写完以.scm保存,这里保存为test.scm
然后sudo apt-get install racket //也可以安装scm
Racket (原名 PLT Scheme[4][5]) 是个通用、多范型,属于Lisp家族的函数式编程语言,它的设计目的其中之一是为了提供一种语言创造、设计与实作的平台,Racket被广泛应用在脚本程式设计、通用程式设计、计算机科学教育和学术研究等不同领域。
运行mzscheme或者scm,然后输入(load "test.scm"),ok结果就出来了,可以(exit)退出
我这里用的是gimp测试,脚本必须编写在~/.gimp-2.6/scripts(为了运行gimp)
qboxtest@qboxtest-G41D3:~/.gimp-2.6/scripts$ cat ff.scm
(define (batch-resize pattern width height)
(let* ((filelist (cadr (file-glob pattern 1))))
(while (not (null? filelist))
(let* ((filename (car filelist))
(image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
(drawable (car (gimp-image-get-active-layer image))))
(gimp-image-scale-full image width height INTERPOLATION-CUBIC)
(gimp-file-save RUN-NONINTERACTIVE image drawable filename filename)
(gimp-image-delete image))
(set! filelist (cdr filelist)))))
然后到含有JPG的文件夹下
gimp -i -b '(batch-resize "*.JPG" 604 453)' -b '(gimp-quit 0)'
修改尺寸