还是关于module的问题

joseyu

我现在创建有一个module,代码如下

1. 
   
2. package about.pm;
   
3. 
   
4. use 5.005;
   
5. 
   
6. require Exporter;
   
7. @ISA = qw(Exporter);
   
8. %EXPORT_TAGS = ( 'all' =>; [ qw() ] );
   
9. @EXPORT_OK = qw( @{ $EXPORT_TAGS{'all'} } );
   
10. @EXPORT = qw(
    
11.                 PrintHead
    
12.                 PrintEnd
    
13.                 ShowAboutForm
    
14.                 );
    
15. 
    
16. $VERSION = '0.01';
    
17. 
    
18. sub PrintEnd {
    
19.         print qq~
    
20.                 </body>;
    
21.                 </html>;
    
22.         ~;
    
23. }
    
24. 
    
25. sub ShowAboutForm{
    
26.         print qq~
    
27.         <form name="form1" method="post" action="">;
    
28.           <table width="100%" border="0" cellpadding="2" cellspacing="2" class="text-x">;
    
29.     <tr>;
    
30.       <td colspan="2">;<hr>;</td>;
    
31.     </tr>;
    
32.     <tr >;
    
33.       <td colspan="2" class="text" background="../image/bgs.jpg">;&</td>;
    
34.     </tr>;
    
35.     <tr bgcolor="#FFFFFF">;
    
36.       <td colspan="2">; <div align="center">;
    
37.           <table width="100%" border="0" cellpadding="2" cellspacing="2" class="gen-text-9pt">;
    
38.             <tr class="text-x">;
    
39.               <td width="14%">;&</td>;
    
40.               <td width="86%">;<img src="../image/logo.jpg" width="269" height="94">;</td>;
    
41.             </tr>;
    
42.             <tr class="text-x">;
    
43.               <td>;&</td>;
    
44.               <td>;<strong>;版本：3.0.0</strong>;</td>;
    
45.             </tr>;
    
46.             <tr class="text-x">;
    
47.               <td>;&</td>;
    
48.               <td>;&</td>;
    
49.             </tr>;
    
50.             <tr class="text-x">;
    
51.               <td>;&</td>;
    
52.               <td>;
    
53.                 <textarea name="textarea" cols="100" rows="6" readonly="true" class="form-text-d">;本软件受国际版权法保护，版权所有！请尊重所有人的权益，否则将受到最严厉的法律制裁。并将因此受到最大限度的民事赔偿追究。</textarea>;</td>;
    
54.             </tr>;
    
55.             <tr class="text-x">;
    
56.               <td>;&</td>;
    
57.               <td>;&</td>;
    
58.             </tr>;
    
59.             <tr class="text-x">;
    
60.               <td>;&</td>;
    
61.               <td>;版权所有 ( C ) 2003-2004， XXXXXX有限公司</td>;
    
62.             </tr>;
    
63.             <tr class="text-x">;
    
64.               <td>;&</td>;
    
65.               <td>;<a href="http://www.company.com">;http://www.company.com</a>;</td>;
    
66.             </tr>;
    
67.             <tr>;
    
68.               <td>;&</td>;
    
69.               <td>;&</td>;
    
70.             </tr>;
    
71.             <tr>;
    
72.               <td>;&</td>;
    
73.               <td>;&</td>;
    
74.             </tr>;
    
75.           </table>;
    
76.         </div>;</td>;
    
77.     </tr>;
    
78.     <tr>;
    
79.       <td colspan="2">;&</td>;
    
80.     </tr>;
    
81.     <tr>;
    
82.       <td colspan="2">;&</td>;
    
83.     </tr>;
    
84.   </table>;
    
85. </form>;
    
86.         ~;
    
87. }
    
88. 1;
    

复制代码

调用该module的代码如下
about.pl

1. 
   
2. #!/usr/bin/perl
   
3. use about;
   
4. 
   
5. PrintHead;
   
6. ShowAboutForm;
   
7. PrintEnd;
   
8. 
   

复制代码

在后台可以正常把那些内容打印到屏幕，但是就不显示不了正常的
网页，web服务器保证配置没有问题

但是如果不是用module,直接把代码
copy到about.pl中就可以显示页面
请问是什么问题，谢谢

joseyu

补充一下，该环境是在perl的/usr/lib/perl5下的很多module没有的情况下
发生的，但是如果在perl5下都齐全的情况下可以正常显示
请问为了能用perl在通过module正常显示页面需要那些基本的module

发现另一问，如果我没有用module的方式来现实页面，即把about.pm中
的sub copy到about.pl中的情况，但是只要用到module就不能正常显示
在about.pl里也没有任何地方调用module里面的sub呢，请问这又是
怎么回事呢，由于初学perl，请各位多多指教，谢谢

deathcult

你没写print "Content-type: text/html; charset=gb2312\n\n";吧。

deathcult

如果显示到web上不正常，出什么错误提示？


由于现在我没有权限，所以没法测试你的代码。

apile

sub PrintHead {
}

代碼中少了這個subroutine....

如果你是寫CGI..看起來你的module沒用到什麼特殊的東西..
應該有安裝perl就OK了...
另外deathcult提到的content-type一定要給..否則CGI不可能成功
印出來..有可能default印出plain text..應該不是你要的才對..

另外perl版本要在5.6以上..因為5.6以上才支援qq,qx之類的function..
5.5好像也有.但不完全..不是很清楚..qx確定在5.6以上才支援..