贴出我写Perl脚本仅供参考:
#!perl
use CQPerlExt;
eval("use Win32; Win32::MsgBox(¡¯called from Perl¡¯)");
$Session= CQPerlExt::CQSession_Build();
#$Session->OutputDebugString("This is a message");
$databases = $Session->GetAccessibleDatabases("MASTR", "admin", "myconnection");
$Session->OutputDebugString("$databases \n");
$count = $databases->Count();
for($x=0;$x<$count;$x++){
$db = $databases->Item($x);
$dbName = $db->GetDatabaseName();
$Session->UserLogon( "admin", "", $dbName, "" );
$Session->OutputDebugString("$dbName \n");
}
$entityobj = $Session->BuildEntity("defect");
$entityobj->SetFieldValue("Headline","EE");
$entityobj->SetFieldValue("Severity","2-Major");
$entityobj->Validate();
$entityobj->Commit();
CQSession::Unbuild($Session);