新手求教，perl报表格式化问题

andrew_young

本人是perl新手，刚看了2天书。

perl写了个脚本，里面有两个sub ，都有用到报表格式输出，但是第二个sub输出的报表头不翼而飞。 但是单纯只运行一个sub的输出都是正确的


例如希望输出这样：

表头1     表头2    表头3
------------------------------
ab         12        123
bc          34        23

表头a    表头b
------------------------------
fa         45
aa        46


但结果成这样了：

表头1     表头2    表头3
------------------------------
ab         12        123
bc          34        23

fa         45
aa        46

请教为什么会这样？

cu_little_bird

你要把代码贴出来撒

andrew_young

1. #!/usr/bin/perl
   
2. 
   
3. ($A,$B,$C,$D,$E)=qw (a b c d e);
   
4. ($F,$G,$H)=qw (f g h);
   
5. 
   
6. 
   
7. $^ = 'TB_USAGE_TOP';
   
8. $~ = 'TB_USAGE';
   
9. write;
   
10. 
    
11. print "\n\n";
    
12. 
    
13. $^ = 'INV_IDX_TB_TOP';
    
14. $~ = 'INV_IDX_TB';
    
15. write;
    
16. 
    
17. format TB_USAGE_TOP =
    
18. @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
19. "Page $%"
    
20.                           Tablespace Usage
    
21.                           
    
22. A                   B           C            D            E
    
23. ----------------------------------------------------------------------------
    
24. .
    
25. 
    
26. format TB_USAGE =
    
27. @<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<<<< @<<<<<<<<<<<<<<<<<
    
28. $A,                 $B,         $C,          $D,          $E
    
29. .
    
30. 
    
31. 
    
32. format INV_IDX_TB_TOP =
    
33. @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
34. "Page $%"
    
35.                        INVAILD INDEX LIST
    
36.                        
    
37. F                G                H
    
38. ----------------------------------------------------------------------
    
39. .
    
40. 
    
41. format INV_IDX_TB =
    
42. @<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<
    
43. $F,                       $G,                       $H      
    
44. .

复制代码

大概是这样

andrew_young

1.                        INVAILD INDEX LIST
   
2. 
   
3. F                G                H
   
4. ----------------------------------------------------------------------
   
5. .

复制代码

这段表头会消失

andrew_young

解决了，用 $- = 0;

cu_little_bird

回复 5# andrew_young


    呵呵

zhlong8

高手{:3_186:}

aef25u

回复 1# andrew_young

输出格式化报表建议改用Text::Table