如何在Common Lisp程序中执行shell(bash)命令并将输出分配给变量?
说我有一个java bean /一个有100个字段的实体(在这种情况下继承或不相关).更新操作后 - 在事务中,我想确定修改哪些字段以跟踪CVS等更新.最简单的方法是什么?任何框架建议?我应该制作这个对象的两个实例并迭代所有字段并匹配字段的值吗?在这种情况下,最好的等于方法怎么样呢?以下equals()似乎很尴尬:
return (field1.equals(o.field1)) &&
(field2.equals(o.field2)) &&
(field3.equals(o.field3)) &&
...
(field100.equals(o.field100));
Run Code Online (Sandbox Code Playgroud) 如何@Pattern在非强制表单字段上使用约束?
@Pattern(regexp="...")
private String something;
Run Code Online (Sandbox Code Playgroud)
一旦我提交表单,我就会得到预期的验证错误,但是用户可能会将该字段留空,因为这不是必填字段.
PS:我可以编写自己的约束注释.但是,我只想问一种更简单的方法来组合注释或添加注释属性.JSR303实现是hibernate-validator.
我们最近对生产系统的观察告诉我们Java容器的驻留内存使用量增长了.关于这个问题,我们已经做了一些调查,以了解为什么java进程使用像pmap这样的本机工具消耗比Heap + Thread Stacks + Shared Objects + Code Cache +等更多的内存.结果,我们发现了一些由本机进程分配的64M内存块(成对)(可能使用malloc/mmap):
0000000000400000 4K r-x-- /usr/java/jdk1.7.0_17/bin/java
0000000000600000 4K rw--- /usr/java/jdk1.7.0_17/bin/java
0000000001d39000 4108K rw--- [ anon ]
0000000710000000 96000K rw--- [ anon ]
0000000715dc0000 39104K ----- [ anon ]
00000007183f0000 127040K rw--- [ anon ]
0000000720000000 3670016K rw--- [ anon ]
00007fe930000000 62876K rw--- [ anon ]
00007fe933d67000 2660K ----- [ anon ]
00007fe934000000 20232K rw--- [ anon ]
00007fe9353c2000 45304K ----- [ anon ]
00007fe938000000 65512K rw--- [ anon ]
00007fe93bffa000 …Run Code Online (Sandbox Code Playgroud) 我是Lisp的新手,我想学习Lisp编程.我想对从文本文件中读取的一些列表进行排序,如下面的形式:
(a 120 135 124 124)
(b 120 135 124 124)
(c 120 135 124 124)
Run Code Online (Sandbox Code Playgroud)
根据第一个整数元素或者第二个或第三个元素对它们进行排序的最佳方法是什么?
我有以下想法:
是否有更合适的数据结构来实现这一目标,可能就像Java中的Collections一样,它采用包含排序逻辑和自动填充排序的可比对象?
非常感谢你.
如何在JBoss AS 6上将QuartzScheduler服务注入我的无状态bean?Quartz服务确实在JBoss AS 6启动期间启动
00:58:38,025 INFO [QuartzScheduler] Scheduler meta-data: Quartz Scheduler (v1.8.3) 'JBossQuartzScheduler' with instanceId 'NON_CLUSTERED'
Scheduler class: 'org.quartz.core.QuartzScheduler' - running locally.
NOT STARTED.
Currently in standby mode.
Number of jobs executed: 0
Using thread pool 'org.quartz.simpl.SimpleThreadPool' - with 10 threads.
Using job-store 'org.quartz.simpl.RAMJobStore' - which does not support persistence. and is not clustered.
00:58:38,026 INFO [StdSchedulerFactory] Quartz scheduler 'JBossQuartzScheduler' initialized from an externally opened InputStream.
00:58:38,026 INFO [StdSchedulerFactory] Quartz scheduler version: 1.8.3
Run Code Online (Sandbox Code Playgroud)
我试过这个:
@Stateless(name="myEnterpriseScheduler")
public class MyEnterpriseScheduler { …Run Code Online (Sandbox Code Playgroud) 有没有办法在运行http-kit服务器时注册多个处理程序:
(defroutes rest-main-app
(GET "/" "Welcome"))
(defroutes rest-events-app
(GET "/events" "Event API"))
(defn -main []
(run-server rest-main-app {:port 5000}))
Run Code Online (Sandbox Code Playgroud)
如何将两个路由都传递给运行服务器,例如rest-main-app和rest-events-app?
几年后我再次与IDEA合作,到目前为止我很开心.问题只是奇怪的内存使用行为和GC操作,而我正在处理的项目导致我的IDE冻结几秒钟,而GC正在完成它的工作.无论项目有多大,我都在努力,几天之后内存使用量增加到500 MB(我的堆空间最大512 MB,实际上,我认为,它必须足够用于拥有大约100个java的Web项目文件).在GC完成它的工作之后,我得到了400 MB的使用 - 没有收集 - 并且只有大约100 MB的堆免费,并且在几分钟内内存使用量增加了堆再次满了.
JVM version is 19.0-b09
using thread-local object allocation.
Parallel GC with 2 thread(s)
Heap Configuration:
MinHeapFreeRatio = 40
MaxHeapFreeRatio = 70
MaxHeapSize = 536870912 (512.0MB)
NewSize = 178257920 (170.0MB)
MaxNewSize = 178257920 (170.0MB)
OldSize = 4194304 (4.0MB)
NewRatio = 2
SurvivorRatio = 8
PermSize = 16777216 (16.0MB)
MaxPermSize = 314572800 (300.0MB)
Heap Usage:
PS Young Generation
Eden Space:
capacity = 145489920 (138.75MB)
used = 81242600 (77.4789810180664MB)
free = 64247320 (61.271018981933594MB)
55.84070704004786% …Run Code Online (Sandbox Code Playgroud) 从地图的键和值创建数组的最短(和惯用)方法是什么,不会过多地影响时间复杂度?
例如,从以下地图:
map[string]string { "1":"a", "2":"b" }
Run Code Online (Sandbox Code Playgroud)
我需要创建以下数组:
[]string{"1","a", "2","b"}
Run Code Online (Sandbox Code Playgroud)
我可以在Scala中执行以下操作:
val myMap = Map("1" -> "a", "2" -> "b")
myMap.keySet ++ myMap.values
Run Code Online (Sandbox Code Playgroud)
谢谢.
我目前正在编写一个LISP程序,它以下列列表的形式分析CR结果:("I"0 10 0 20)<<(单词X0 X1 Y0 Y1)
它必须使用单词的位置来构建整个文本.我的代码有一个集群分析器,可以找到集群布局,例如左对齐或右对齐甚至两者的段落.群集数据结构如下所示:("群集名称"xline y0 y1'(群集词))
当我迭代字符串列表并将它们连接到结果字符串以从这些字符串创建格式化文本时,如何添加新行?例:
"Hi,\n
\n
here is my entry\n
\n
Good bye"
Run Code Online (Sandbox Code Playgroud)
我的代码如下:
(defun print-formatted-text(txt)
(let
((size (array-total-size txt))
(sorted (sort (sort txt #'compare-mix) #'compare-generic2))
(result ""))
(loop for i from 0 to (1- size) do
(let ((el (aref sorted i)))
(if (word? el)
(setf result (concatenate 'string result (first el) " "))
(if (null (nth 7 el))
nil
(progn
(setf result (concatenate 'string result " "))
(dolist (curr (nth 7 el)) …Run Code Online (Sandbox Code Playgroud)