是否有任何良好的跨平台(至少是SBCL和CLISP)易于安装的GUI库？
理想情况下适用于Oracle,MS SQL Server,MySQL和Posgress.
我对表有一个简单的查询,它返回如下结果:
id id_type id_ref
2702 5 31
2702 16 14
2702 17 3
2702 40 1
2703 23 4
2703 23 5
2703 34 6
2704 1 14
我想将结果合并为一行,例如:
id concatenation
2702 5,16,17,40:31,14,3,1
2703 23,23,34:4,5,6
2704 1:14
有没有办法在触发器内执行此操作？
注意:我知道我可以使用光标,但我真的不愿意,除非没有更好的方法.
该数据库是Sybase 12.5.4版.
我有两个未排序的列表,我需要生成另一个已排序的列表,其中所有元素都是唯一的.
元素可以在两个列表中多次出现,并且它们最初是未排序的.
我的功能看起来像这样:
(defun merge-lists (list-a list-b sort-fn)
"Merges two lists of (x, y) coordinates sorting them and removing dupes"
(let ((prev nil))
(remove-if
(lambda (point)
(let ((ret-val (equal point prev)))
(setf prev point)
ret-val))
(sort
(merge 'list list-a list-b sort-fn) ;'
sort-fn))))
有没有更好的方法来实现同样的目标？
示例电话:
[CL]> (merge-lists '(9 8 4 8 9 7 2) '(1 7 3 9 2 6) #'>)
==> (9 8 7 6 4 3 2 1)
我今天得到了这个奇怪的代码行,它告诉我'空'或'不空'取决于CWD是否有任何项目(除了.和..).
我想知道它是如何工作的,因为它对我没有意义.
perl -le 'print+(q=not =)[2==(()=<.* *>)].empty'
我感兴趣的是<.* *>.我不明白它如何获取目录中所有文件的名称.
我试图让一个简单的数据库查询工作,但我不能clojure/java.jdbc从一个IN条款中选择.
代码如下所示:
(sql/with-connection db
(sql/with-query-results rows
["select f.name name
, f.id file_id
from FileCategory fc
join File f
on fc.file = f.id
where fc.category in ?
having count(1) >= ?"
[1 2] ; This is the bit which does not work.
; I have tried (to-array) and (set) too
2]
(into [] rows)))
关于如何将集合传递给查询的任何想法？
直接在mysql我下运行查询没有问题:
mysql> select f.name, f.id from FileCategory fc join File f on fc.file = f.id where fc.category in (1, 2) …我正在开发一个RESTful应用程序,我需要将来自http地址的请求重定向到它的https等效项.我似乎无法使用ring/compojure启用https.
任何人都有一些有用的教程和/或链接？我还没找到.
文档也没有任何用处.
我目前正在开发一个使用基本cgi的网站来翻页.我希望将网站更改为具有更好的(读取动态)界面.
你会建议我开始使用哪些技术(如果不是AJAX)和/或教程？
我正在从http://www.perlmonks.org/index.pl?node_id=217166转换linux脚本,具体如下:
#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use File::Find;
@ARGV > 0 and getopts('a:', \my %opt) or die << "USAGE";
# Deletes any old files from the directory tree(s) given and
# removes empty directories en passant.
usage: $0 [-a maxage] directory [directory ...]
-a maximum age in days, default is 120
USAGE
my $max_age_days = $opt{a} || 120;
find({
wanted => sub { unlink if -f $_ and -M _ > $max_age_days },
postprocess => sub { …我在perl中有一个多线程应用程序,我必须依赖几个非线程安全模块,所以我一直使用fork()带有kill()信号的ed进程作为消息传递接口.
问题是信号处理程序有点不稳定(至少可以说)并且经常最终导致在不适当的状态下被杀死的进程.
有一个更好的方法吗？
我有一些代码从循环中收集点(consed integers),看起来像这样:
(loop
for x from 1 to 100
for y from 100 downto 1
collect `(,x . ,y))
我的问题是,`(,x . ,y)在这种情况下使用是否正确？
编辑:此示例不是关于生成100x100项的表,这里的代码只是说明了两个循环变量的使用以及它们的值的消耗.我编辑了循环以使其清楚.我使用的实际循环取决于其他几个函数(并且是其自身的一部分),因此用文字整数替换调用并将循环拉出函数更有意义.