Perl 报告生成模块代码

disl

　　之前写的，现在用不上了。这个版本的报告比较不好看。。。所以现在不用了。但是代码上还是挺有价值的。
　　可以用来学习下，在这放出来，让想了解的人了解下。目前我使用的生成报告方式是一个HTML的模板。插入数据到HTML里面。
　　这个相对就有点你懂的。。



#!/usr/bin/perl
use threads;
use threads::shared; #用于线程当中共享变量
use Thread::Semaphore;  #这个是线程信号量控制使用的包

share(@ok_list);
$task_domain='www.sohu.com';


#check_return_array("@tool_url",'163.com');
sub check_return_array{
# 获得数据
local($url)=shift;
local($task_url)=shift;


##-------------------主调用程序(自定义报告输出名字)---------------
sub html_create{
local($url)=shift;
local($output)=shift;
@report=pang_zhan($url);
if($output eq undef)
{
if (-e "$url.html")
{
for my $i(1..10000)
{
if (-e "$url($i).html")
{
next;
open FILE,">$url($i).html";
}
else
{
open FILE,">$url($i).html";
last;
}
}
}
else
{
open FILE,">$url.html";
}
}
else
{
open FILE,">$output.html";
}
print FILE "@report";
close(FILE);
}
##-------------------主调用程序(报告输出根据网站名称)-------------
sub html_create_output{
local($url)=shift;
@report=pang_zhan($url);
if($output eq undef)
{
if (-e "$url.html")
{
for my $i(1..10000)
{
if (-e "$url($i).html")
{
next;
open FILE,">$url($i).html";
}
else
{
open FILE,">$url($i).html";
last;
}
}
}
else
{
open FILE,">$url.html";
}
}
else
{
open FILE,">$output.html";
}
print FILE "@report";
close(FILE);
}