[原创] CQ(clear quest)自动查询并将查询结果通过email发送的实现

最新推荐文章于 2025-08-21 23:21:52 发布

转载最新推荐文章于 2025-08-21 23:21:52 发布 · 333 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/easylifesoso/p/4240471.html

文章标签：

#数据库

本博客介绍了一个简单的脚本，该脚本能够自动登录CQ进行查询，并将查询结果通过邮件发送。实现了自动化处理流程，提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

负责的项目有时候会被项目经理找来催，原来又没有及时的去搜索CQ。。。

于是这两天自己实现了一下能自动执行CQ查询的脚本，同时还能降查询结果发送到我的邮箱。分享一下吧：

简单说明一下：

1）其实是两个比较独立的的功能拼凑到一块实现的，一个功能是CQ的登陆和查询，看函数logonDMS（）和DoQuery（）；一个功能是发送email，看函数sendmail（）。

2）是用CQ的perl接口实现的，执行的时候不能用原生的perl执行，必须用CQ安装目录下的CQPerl.exe 来执行。

好了，直接上code吧，为了“保密”，所有个人信息的地方都更换了，理解的吧哈。

###basic version
use CQPerlExt;
use Net::SMTP;
use LWP::Simple qw(get);
use File::Path;
use Net::SMTP;

our $sessionObj;
our $querydef;
our $dms_summary;
our $dms_query1 = "Personal Queries/projectA"; #替换了我的实际的query文件名称和位置哈
our $dms_query2 = "Personal Queries/projectB"; #替换了我的实际的query文件名称和位置哈

#usage: CQPerl.exe this_script.pl
#precondition: define queries such as $dms_query1, $dms_query2, then call them by DoQuery($dms_query1); and DoQuery($dms_query2);

sub logonDMS{
print "DMS login begin.\n";
$sessionObj = CQSession::Build();
$sessionObj->UserLogon( "name", "pass", 'database1', ""); #替换了实际的用户名（name）密码（pass）和实际的数据库名称（database1）,请根据环境自行更正
print "DMS login successfully.\n";
}

sub DoQuery{ #arg = dms_query
my ($query) = @_;
print "do query begin for $query \n";

my $workspace = $sessionObj->GetWorkSpace();
my $querydef = $workspace->GetQueryDef($query);

my $resultset = $sessionObj->BuildResultSet($querydef);
$resultset->EnableRecordCount();
$resultset->Execute();
$num_rows = $resultset->GetRecordCount();
print "number of DMSs: $num_rows \n";

if ($num_rows <=0) #这里是返回了，因为没有查询到任何结果
{
$dms_summary .= '<br/><br/><H1 style="color:red">'.'You have no DMS need handle under query:<br/>'.$query.'<br/><H1/>';
return;
}

$status = $resultset->MoveNext();
$dms_summary .= '<table border="1">';

while($status == $CQPerlExt::CQ_SUCCESS){
print $resultset->GetColumnValue(2); print "\t";# '1' often means internal id, so identify your desired columns from '2'
$dms_summary .= '<tr><td>'.$resultset->GetColumnValue(2).'<td/>';
print $resultset->GetColumnValue(4); print "\n";
$dms_summary .= '<td>'.$resultset->GetColumnValue(4).'<td/></tr>';
$status = $resultset->MoveNext();
}

print "do query finish.\n";
$dms_summary .= '</table>';
print $dms_summary;
}

sub sendmail{
my $smtp = Net::SMTP->new('smtpserverxx.company.com') or die "Cannot connect to server"; #哈哈，替换了我的smtp的服务器
$smtp->mail('myname@xxx.com'); #替换了我的邮箱地址哦
$smtp->to('myname@xxx.com');
$smtp->data();
$smtp->datasend("To: myname\@xxx.com\n"); #测试用，还是发到自己邮箱
$smtp->datasend("From: myname\@xxx.com\n");
$smtp->datasend("Content-Type: text/html \n");
$smtp->datasend("Subject: CQ test\n");
$smtp->datasend("\n");
$smtp->datasend($dms_summary);
$smtp->dataend();
$smtp->quit;
}
##################body ######
logonDMS();

DoQuery($dms_query1);
DoQuery($dms_query2);
CQSession::Unbuild($sessionObj);
sendmail();

easylifesoso@163.com at 20150121 night

转载于:https://www.cnblogs.com/easylifesoso/p/4240471.html