我想写一个perl脚本,询问用户输入一个字符串,并在google(Google-Search)中搜索该字符串。 我能够编写一个适用于一次搜索($ i = 1)的脚本。 但是,如果我想要那个,同样的perl sript,我可以不止一次地搜索如何做到这一点。 下面的代码适用于$ i = 1,但不能超过1。
use strict;
use warnings;
use Win32::SAM;
my $i=3;
while($i)
{
StartIE();
Navigate("https://www.google.co.in//");
print "Enter whatever you want to search on google: ";
$a=<STDIN>;
SetEditBox("q","$a");
ClickFormButtonByLabel("Google Search");
$i--;
}
如何进行多次搜索? 我尝试使用“维基百科”相同的代码,它工作..为什么它不与谷歌合作:( 谢谢,