perl selenium操控浏览器填写表单完成自动化测试

   
   

#!/usr/bin/perl;?
    
    
use?strict;?
    
    
use?warnings;?
    
    
use?Data::Dumper;?
    
    
use?Time::HiRes?qw(sleep);?
    
    
use?Test::WWW::Selenium;?
    
    
use?Test::More?"no_plan";?
    
    
use?Test::Exception;?
    
    
use??encoding?"utf-8";?
    
    
use??Image::Magick;?
    
    
use?warnings;?
    
    
my?$verify?;?
    
    
my?$f1;?
    
    
sub?Magick{???#裁切图片?
    
    
????my?($x,$y)=@_;??
    
    
????my($image,?$p);?
    
    
????$image?=?Image::Magick->new;?
    
    
????$p?=?$image->Read('c.png');?
    
    
????$p?=?$image->Crop(geometry=>"60x30+$x+$y");?#裁切大小，以右上为起点开始裁切?
    
    
????warn?"$p"?if?"$p";?
    
    
????$p?=?$image->Write('x.png');?
    
    
????warn?"$p"?if?"$p";?
    
    
????my?$tesseract_soft_path?=?'c:/Program?Files/Tesseract-OCR/tesseract.exe';??#这里是调用ocr解析图片?
    
    
????my?$png_path?=?'f:/perl/cu';?
    
    
????my?$tesseract=system?("$tesseract_soft_path"?,"$png_path/x.png","$png_path/x","-l");?#处理图片，默认处理为txt文件?
    
    
unless($tesseract){?
    
    
????open?FH,"$png_path/x.txt"?or?die?"$!";?
    
    
????while(<FH>){?
    
    
????????/(d{4})(?{$verify=$1})/;?
    
    
????}?
    
    
????close?FH;?
    
    
}?
    
    
return?1;?
    
    
}?
    
    
my?$sel?=?Test::WWW::Selenium->new(?host?=>?"localhost",???#实例化浏览器?
    
    
????????????????????????????????????port?=>?4444,??
    
    
????????????????????????????????????browser?=>?"*chrome",??
    
    
????????????????????????????????????browser_url?=>?"http://www.mchina.cn/searchkeyword.html"?
    
    
????????????????????????????????????);?
    
    
open?FA,"uid.txt"?or?die?"$!";?
    
    
while(<FA>){?
    
    
????chomp;?
    
    
????my?$uid?=$_;?
    
    
while(1?and?sleep?4){?
    
    
????$sel->open_ok("/searchkeyword.html");?
    
    
$sel->wait_for_page_to_load_ok("30000");?
    
    
$sel->capture_entire_page_screenshot('f:perlcuc.png','background=#CCFFDD');??#将页面制作成png图片?
    
    
Magick("660","400");?#裁切图片?
    
    
$f1=$sel->get_html_source;?
    
    
?if($f1?=~?/<div[^>]+center">s*<font[^>]+red">[sS]+?<li><span>.*?</span></li>/){??#如果验证码不配对，用正则判断，需要裁切的地方需要变换?
    
    
??????Magick("654","420");????
    
    
?}?
    
    
$sel->wait_for_page_to_load_ok("30000");?
    
    
if?(defined?$verify){?
    
    
$sel->type_ok("id=keyword",?"$uid");?
    
    
$sel->type_ok("id=confirmcodekeyword",?"$verify");?
    
    
$sel->click_ok("css=input.btn");?
    
    
$sel->wait_for_page_to_load_ok("60000");?
    
    
undef($verify);?
    
    
my?$err?=?$sel->get_html_source();?
    
    
last?unless?$err?=~?/<div[^>]+center">s*<font[^>]+red">[sS]+?<li><span>.*?</span></li>/;?
    
    
}?
    
    
$sel->open_ok("/searchkeyword.html");?
    
    
$sel->wait_for_page_to_load_ok("30000");?
    
    
$sel->refresh()?;?
    
    
}?
    
    
?my?$frame?=?$sel->select_frame('//iframe');?
    
    
if(defined?$frame){????????????????#由于是frame构架的，返回的源码中是看不到所需信息的，需要用?select_frame定位????
    
    
my?$route=?$sel->get_html_source();?
    
    
my?@info;?
    
    
if($route?=~?/<div[^>]+searchkey">.*?n.*?([^s]+)[sS]+??
    
    
???<div[^>]+keystatus">s*<font[^>]+>([^<]+)[sS]+??????????
    
    
???<div[^>]+regtime">(S+)[sS]+??
    
    
???<div[^>]+registerNOforkey">s*([^s]*)/x){?
    
    
????my($name,$status,$regtime,$idnum);?
    
    
????$name?=?$1;$status?=?$2;$regtime?=?$3?;$idnum?=$4||0;?
    
    
????push?@info?,$uid,$name,$idnum;?
    
    
}else{?
    
    
????if($route?=~?/<font[^>]+red">s*([^s]+)/){??
    
    
????????push?@info,$1};?
    
    
}?
    
    
open?FH,">>output.txt"?or?die?"$!";?
    
    
print?FH?join("t",@info);?
    
    
print?FH?"n";?
    
    
close?FH;?
    
    
}?
    
    
}?
    
    
close?FA;?
    
    
sleep?500;?
    
    
$sel->stop();?