论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2008-12-23 18:15 |只看该作者 |倒序浏览

20可用积分

现在在shell下写了一个automation testing script, 会产生一个log文件，格式如下
2008-12-20:18:20 dtx100 sles10.2-64bit collectinv successful
***
***
日期计算机名系统平台运行命令运行结果共五列

怎么样用perl来写cgi, 把这个log文件做成web形式我是cgi新手，以前没写过，现在PM让尽快搞定，所以想请大虾们帮忙。悬赏20分。想手下留情，千万别拍砖

[ 本帖最后由 huanghaojie 于 2008-12-23 18:17 编辑 ]

最佳答案

DQP

查看完整内容

regards

文库|博客

DQP

富足长乐

论坛徽章:: 0

2楼 [报告]

发表于 2008-12-23 18:15 |只看该作者

#!/usr/bin/perl
$| = 1;
my $file_name = "path/to/log/file";
open my $log_file, "<$file_name" or die 'balabala';
print "Content-type: text/plain\n\n";
my @titles = ('DATA', 'OS TYPE', 'IP', 'COMMAND', 'RESULTS');
print "<html><body>\n";
print "<table>\n";
print "<thead>\n<tr>\n";
printf "<td>%s</td>\n", $_ for @titles;
print "</tr>\n";
print "<tbody>\n";
while(<$log_file>){
printf "<td>%s</td>", $_ for (split);
print "\n";
}
print "</tbody>\n";
print "</table>\n";
print "</body></html>\n";
close $log_file;

复制代码

regards

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

dajun

小富即安

论坛徽章:: 0

3楼 [报告]

发表于 2008-12-23 18:36 |只看该作者

#!/usr/bin/perl
my $file = "path/to/log/file";
open FD, "<$file";
my @content = <FD>;
close FD;
print "Content-type: text/plain\n\n";
print @content;

复制代码

这其实还不如直接把日志放在http服务器的web目录里,
如果想以html表格方式显示的话,你可以大致改改,就是print,没什么特殊的

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

DQP

富足长乐

论坛徽章:: 0

4楼 [报告]

发表于 2008-12-23 20:09 |只看该作者

......
不好意思 dajun 。。。
那个臭蛋是我点的。。。手滑了不是故意的。。
有人散分没赶上唉

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

huanghaojie

小富即安

论坛徽章:: 0

5楼 [报告]

发表于 2008-12-23 20:35 |只看该作者

原帖由 dajun 于 2008-12-23 18:36 发表

#!/usr/bin/perl

my $file = "path/to/log/file";

open FD, "

谢谢，我是想做成表格形式样子如下

-----------------------------------------------------------------------------------------------
|                         |                |                |                   |                         |
|       DATE          | OS TYPE  |  IP          | COMMAND|    RESULTS       |
|________ _______| ____________________________________________ ___________|
|                         |                |                |                   |                         |
|                         |                |                |                   |                         |
|                         |                |                |                   |                         |
| ______________ |_________________________________________________________  |
|                         |                |                |                   |                         |
|                         |                |                |                   |                         |
|                         |                |                |                   |                         |
-----------------------------------------------------------------------------------------------

[ 本帖最后由 huanghaojie 于 2008-12-23 20:37 编辑 ]