我在做毕业设计，得到了一个perl程序，但web页面是空白的～

joelk

我在做毕业设计，得到了一个perl程序，代码如下：

2. #!/usr/bin/perl
4. print "Content-type: text/html \n\n";
6. open(MyFile, "/var/log/trafic.log") || die ("Can't open file");
7. open(IPMAP, "/etc/ipmap") || die ("Can't open file");
10. %ipmap = {};
12. while(<IPMAP>){
13.         chomp($_);
14.         ($ip, $member) = split(/\s+/, $_);
15.         $ipmap{$ip} = $member;
16. }
18. print qq(<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">);
20. $i = -1;
22. $tll_m = 0;
23. $tll_k = 0;
25. while(<MyFile>)
26. {
27.         chomp($_);
28.         $i++;
29.     if($i == 0 || $i == 1)
30.     {
31.             print "<tr>";
32.                 print $_;
33.                 print "</tr>";
34.                 next;
35.     }
36.    
37.     print "<tr>";
38.     #@colums
39.     ($ip, $f_i_k, $f_i_m, $c_i_k, $c_i_m, $f_o_k, $f_o_m, $c_o_k, $c_o_m)
40.             = split(/\s+/, $_);
41.    
42.     print qq(<td>);
43.     if($ipmap{$ip} ne ""){
44.              print "$ip($ipmap{$ip})&nbsp;&nbsp;";
45.     } else {
46.                print "$ip&nbsp;&nbsp;";
47.     }
48.     print "</td>";
50.     print qq(<td>);
51.            print "$f_i_m&nbsp;&nbsp;";
52.     print "</td>";
54.     print qq(<td>);
55.            print "$f_i_k&nbsp;&nbsp;";
56.     print "</td>";
58.     print qq(<td>);
59.            print "$c_i_m&nbsp;&nbsp;";
60.     print "</td>";
62.     print qq(<td>);
63.            print "$c_i_k&nbsp;&nbsp;";
64.     print "</td>";
65.    
66.     print qq(<td>);
67.            print "$f_o_m&nbsp;&nbsp;";
68.     print "</td>";
70.     print qq(<td>);
71.            print "$f_o_k&nbsp;&nbsp;";
72.     print "</td>";
74.     print qq(<td>);
75.            print "$c_o_m&nbsp;&nbsp;";
76.     print "</td>";
78.     print qq(<td>);
79.            print "$c_o_k&nbsp;&nbsp;";
80.     print "</td>";
82.         if($i == 2){
83.             print qq(<td>);
84.                    print "收费流量(M)&nbsp;&nbsp;";
85.             print "</td>";
86.                
87.                 print qq(<td>);
88.                    print "收费流量(K)&nbsp;&nbsp;";
89.             print "</td>";
90.     } else {
91.             print qq(<td>);
92.             $mil = $c_i_m + $c_o_m + int(($c_i_k + $c_o_k) / 1024);
93.             $kil = int($c_i_k + $c_o_k) % 1024;
94.                    print $mil . "&nbsp;&nbsp;";
95.             print "</td>";
96.                
97.                 print qq(<td>);
98.                    print $kil . "&nbsp;&nbsp;";
99.             print "</td>";
100.             $tll_m += $mil;
101.             $tll_k += $kil;
102.         }
104.     #foreach (@colums){
105.     #    print qq(<td>);
106.     #    if($ipmap{$_} ne ""){
107.     #            print "$_($ipmap{$_})&nbsp;&nbsp;";
108.     #    } else {
109.     #            print "$_&nbsp;&nbsp;";
110.     #        }
111.     #    print "</td>";
112.     #}
113.     print "</tr>\n";
114. }
115. print "<tr>";
117. print "<td>";
118. print "<b>总收费流量:</b>";
119. print "</td>";
121. print "<td><b>";
122. print $tll_m + int($tll_k / 1024) . "(M)</b>";
123. print "</td>";
125. print "</tr>\n";
126. print "</table>";
127. close(IPMAP);
128. close(MyFile);

复制代码

可是我在用web服务器进行查看的时候发现网页是空白的，什么都没有显示，按理来说应该将traffic.log文件中的数据以表格形式输出才对，因为我也是刚开始接触perl,对这方面的东西也不是很懂，不果程序是没有问题的，请教一下各位高手，给点意见啦~~~

拜谢~！

剑心

/var/log/trafic.log
/etc/ipmap

都存在么？

joelk

谢谢剑心的回帖！
那两个文件都在呢，我编了另一个简单的显示“hello perl"的程序再试的时候就出现了INTERNAL SERVER ERROR错误的提示，是什么原因呢？

剑心

Perl CGI环境没配置好吧
Apache的配置文件贴一下看看

joelk

我的系统的HTTPD文件发到你的邮箱EMail:freebsd13@163.com 里去了 ,麻烦你帮我看看吧,还有 我忘说了一件事,其实我用的是虚拟机的LINUX不过我想应该不是跟这个有关系,谢谢了~~!

剑心

我看了一下
输出如下抓图:
你的输出空白页,
估计是你的文件权限的问题

joelk

那请问应该怎么设置这个文件的权限呢？
能否说详细一些，我上网找了一下这方面的资料，讲的不是很明白，是不是要设置ACL呢？
谢谢剑心！

joelk

我试过将文件的权限设为剑心所说的那样，但是还是没有显示，下附件里的那样，请问各位大虾，还有哪里的设置可能出问题了呢？

joelk

今天我将程序中的ipmap文件换了一个路径，居然显示就正常了，有没有人知道是什么原因呢？
原来ipmap放在/root/joe/c路径下，后来改道了/etc下，难道程序中打不开root目录下打开文件吗？

剑心

/var/log/trafic.log
/etc/ipmap

这是你自己说得，怎么会跑到root下面了呢？哈哈
我是按照你说得做的，然后赋予所有人可读的权限。

ps:普通用户是无权访问root目录的。