论坛徽章:: 0

电梯直达

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

发表于 2005-08-11 13:56 |只看该作者 |倒序浏览

我的文本里的格式是如下格式：
---------------------------------------------------
PORT    RUNNING TYPE REBOOT TYPE
1-0             FCT          FCT
1-1             FCI          FCI
1-2             FCT          FCT
1-3             FCI          FCI
3-0             FCT          FCT
3-1             FCI          FCI
3-2             FCT          FCT
3-3             FCI          FCI
6-0             FCT          FCT
6-1             FCI          FCI
6-2             FCT          FCT
6-3             FCI          FCI
8-0             FCT          FCT
8-1             FCI          FCI
8-2             FCT          FCT
8-3             FCI          FCI
portcfg command running return value=0

可是到了perl写的网页中就变了形！为什么！又没有解决办法! 多谢!.

PORT RUNNING TYPE REBOOT TYPE
1-0 FCT FCT
1-1 FCI FCI
1-2 FCT FCT
1-3 FCI FCI
3-0 FCT FCT
3-1 FCI FCI
3-2 FCT FCT
3-3 FCI FCI
6-0 FCT FCT
6-1 FCI FCI
6-2 FCT FCT
6-3 FCI FCI
8-0 FCT FCT
8-1 FCI FCI
8-2 FCT FCT
8-3 FCI FCI
portcfg command running return value=0

变成这样!好难看呀! 有劳大家帮忙!多谢！

文库|博客

mq110

荣誉版主

论坛徽章:: 1

2楼 [报告]

发表于 2005-08-11 15:47 |只看该作者

请问perl高手一个问题！一个web网页显示的问题！

加& nbsp;

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

lc1111

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2005-08-11 16:28 |只看该作者

请问perl高手一个问题！一个web网页显示的问题！

老兄能举个例子么？

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

lc1111

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2005-08-11 16:30 |只看该作者

请问perl高手一个问题！一个web网页显示的问题！

下面是我的脚本

#!/usr/bin/perl -w
use strict;
use CGI;
use CGI:

retty qw(:all);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

print header(),start_html("CLI Testing Reports"

;

print "<html>;<body>;";
print "<h1 align=center>;Examax9000 CLI testing result</h1>;";
print hr();
print "</body>;";
my $location = "/testtool/tools/Examax9k-2/cli";

my @list = &list_folders($location);
foreach (@list){
my $lc="<a href=lichao.pl?file_loc=$_ \>;$_";
# print "$lc";
# print" <table>;<tr>;<td>;$lc</td>;</tr>;</table>;";

###################################################
my $Fontcolor="#FFCC99";
print<<EOF;
<table width="220" border="3" cellspacing="1" cellpadding="1">;<tr>;
<td bgcolor="#00ff00" style="font-size"10pt" width="220" height="20">;<div align="left">;$lc<br>;</div>;</td>;</tr>;</table>;
EOF
###################################################
# print "<a href=lichao.pl?file_loc=$_ \>;$_";
print "<br>;";
}
print hr();
#print "====================================\n";
print "<br>;";

my $file_loc = param('file_loc');

#my @logs = <$file_loc/*.*>;;
my @logs = <$file_loc/*.log>;;

foreach(@logs){
# print "<br>;";
# print "<a href=lichao.pl?file_name=$_ \>;$_";
my $lclog="<a href=lichao.pl?file_name=$_ \>;$_";
my $Fontcolor="#FFCC99";
print<<EOF;
<table valign="top" width="370" border="3" cellspacing="1" cellpadding="1">;<tr>;
<td bgcolor="#b0ff00" style="font-size"10pt" width="370" height="10">;<div align="left">;$lclog<br>;</div>;</td>;</tr>;</table>;
EOF

#print "<br>;";
}
print p("$_[$#_]"

;

#print hr();

my $file_name=param('file_name');
open FILE,"$file_name";
while(<FILE>

{
chomp;
print "$_ <br>;";
#my $Fontcolor="#FFCC99";

#my $Fontcolor="#FFCC99";
#print<<EOF;
#<table valign="top" width="400" border="3" cellspacing="1" cellpadding="4">;<tr>;
#<td bgcolor="#a0ff00" style="font-size"12pt" width="200" height="20">;<div align="left">;$_<br>;</div>;</td>;</tr>;</table>;
#EOF
}
print end_form,end_html();

print hr();

sub list_folders{
my ($dir) = @_;
my @folders=();
opendir DH, $dir or die "can't open $dir