Perl 报告生成模块代码

发布时间：2020-12-16 00:01:58 所属栏目：大数据来源：网络整理

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

之前写的，现在用不上了。这个版本的报告比较不好看。。。所以现在不用了。但是代码上还是挺有价值的。

可以用来学习下，在这放出来，让想了解的人了解下。目前我使用的生成报告方式是一个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,">$output.html"; } print FILE "@report"; close(FILE); }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!