Perl脚本的system()函数可以调用外部函数。
我在E盘新建了一个perl文件,test.pl
内容如下:
#!C:\Perl\bin\perl
print "Hello,World!\n";
system('del \\\\192.168.86.7\\Temp\\rose.txt');
打开DOS窗口,cd到E盘,运行perl test.pl
就可以删除192.168.86.7\Temp下的rose.txt文件
但是同样的我在clear quest 7.0的action的notification中添加
system('del \\\\192.168.86.7\\Temp\\rose.txt');
却不能删除这个rose.txt
我想是不是CQ的API中没有这个函数。还是还是需要添加其他一些代码之类的?
还有我想通过blat工具实现发邮件的功能
Set objShell = CreateObject("Wscript.Shell")
strCmd = "D:\tools\Blat250\full\blat.exe -body hooksubmit -to receiver@aa.com.cn -subject hooksubmit -server mail.aa.com -f sender@aa.com -u sender -pw password"
objShell.Run strCmd
这个是VB脚本的可以发邮件,但是用Perl该怎么写呢?
------解决方案--------------------------------------------------------