我想将我的Java程序作为JAR文件分发.我的程序需要Oracle JDBC驱动程序,它也作为JAR文件提供.但该java -jar命令只接受一个JAR文件.因此,我必须合并两个JAR文件.这可以很容易地完成,但我可以这样做吗？我是否允许将我的程序作为包含Oracle JDBC JAR文件内容的JAR文件分发？
我有一个在不同线程中使用的数据库对象:
import java.sql.Connection;
import oracle.ucp.jdbc.PoolDataSourceFactory;
import oracle.ucp.jdbc.PoolDataSource;
public class Database
{
private final PoolDataSource pool = PoolDataSourceFactory.getPoolDataSource();
protected Connection connect ()
{
synchronized (pool) { return pool.getConnection(); }
}
protected void disconnect (Connection connection)
{
synchronized (pool) { connection.close(); }
}
}
是否有必要同步对pool成员的访问？或者是否足以避免显式同步？
如果需要同步,则代码将被破坏,因为没有必要调用disconnect以关闭连接.类中的某些代码可以connection.close()绕过同步调用.
我有一个cron作业,其中包含以下两行:
LOCK=/var/run/dns-check
...
if [ ! -r "$LOCK" -o "$ADDR_NOW" != "$(cat $LOCK)" ] ; then
它是cat脚本中唯一的用法.今天我收到了来自cron的邮件,出现以下错误:
cat: /var/run/dns-check: No such file or directory
我想知道这里发生了什么.
我正在测试该文件-r以检查它是否可读并否定结果.这意味着,如果文件不可读,则检查成功.评估可以在这里停止,因为表达式已经是真的.cat不会被叫.
否则,-o将评估条件,这意味着,如果文件在那里,cat则执行.
为什么cat报告错误,该文件无法读取,虽然test -r发现它是可读的？
我试图准备一个 pragma 语句：
$sth = $dbh->prepare (q{pragma table_info(?)})
但我收到以下错误：
DBD::SQLite::db prepare failed: near "?"
准备字符串有什么问题？
warn 在以下两种情况下表现不同:
#! /usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
warn "string";
warn Dumper("string");
第一次印刷:
string at dumper.pl line 6.
而第二个打印只是:
$VAR1 = 'string';
没有任何行号.
使用Dumper结果警告时如何获取行号？
这是事实:
address(host1, '10.0.0.1').
address(host2, '10.0.0.2').
我可以查询一个事实:
?- address(host1, X).
X = '10.0.0.1'.
我是Prolog的新手,但我习惯了关系数据库.在SQL数据库中,我对数据进行约束以防止错误.如果我想确保所有地址都在A类网络10.0.0.0/8中,我可以对表列进行约束:
create table hosts (
name text,
address text check (address like '10.%')
);
我如何在Prolog中做同样的事情来防止错误的事实？
这里的文本可能有一些词，每一行都有一个词。我接受它作为命令行参数。例如纺织品a.txt是这样的：
about
catb
west
eastren
而我想要做的是找到字典中没有的单词，如果单词是字典单词，则在文本文件中将其删除。我使用以下命令：
word=$1
grep "$1$" /usr/share/dict/linux.words -q
for word in $(<a.txt)
do
if [ $word -eq 0 ]
then
sed '/$word/d'
fi
done
什么都没有发生。
请更正我的代码，我似乎无法打开文件进行解析。错误是这一行open(my $fh, $file) or die "Cannot open file, $!";
无法打开文件，在 ./sample.pl 第 28 行没有这样的文件或目录。
use strict;
my $dir = $ARGV[0];
my $dp_dpd = $ENV{'DP_DPD'};
my $log_dir = $ENV{'DP_LOG'};
my $xmlFlag = 0;
my @fileList = "";
my @not_proc_dir = `find $dp_dpd -type d -name "NotProcessed"`;
#print "@not_proc_dir\n";
foreach my $dir (@not_proc_dir) {
chomp ($dir);
#print "$dir\n";
opendir (DIR, $dir) or die "Couldn't open directory, $!";
while ( my $file = readdir DIR) {
next if $file =~ /^\.\.?$/;
next …这让我困惑了最后15分钟:
if ('ab' =~ /^a|b$/) { print 't' } else { print 'f' }
print "\n";
我期望在开头之后跟随结尾的'a'或'b'应该只匹配一个字符.所以测试应该失败两个字符'ab'.但它成功了.为什么？