有将文本转换为pod的模块吗？

kk861123

RT... tks~

再详细说明一下情况：
我有一个模板文件类似Template模块的语法，但因为可视性不好，所以想解析成pod格式便于观看和检查。
现在的做法是，由于模板的解析程序已经很成熟了，所以就直接拿来解析成对应perl数据结构，然后使用

1. Pod::Parser

复制代码

模块对数据结构重新解析成pod模式，解析的还不是很好效果也不怎么样，所以上来请教！


个人解析过程举例：
1. 模板文件如下：

1. Dear <t:var "first_name"/> <t:var "last_name"/>,
   
2. 
   
3. This is paragraph ONE,this is a<t:if "$*->{PIP}"> PIP</t:if> card.
   
4. 
   
5. <t:if "$*->{COND1}">
   
6. 
   
7. This is paragraph TWO
   
8.     blabla...
   
9. <t:elsif "$*->{COND1}">
   
10. 
    
11. This is paragraph THREE
    
12.     blabla...
    
13. <t:elsif "$*->{COND1}">
    
14. 
    
15. This is paragraph THREE
    
16.     blabla...
    
17. </t:if>
    
18. 
    
19. Thanks!
    

复制代码

2. 解析模板文件为：

1. $VAR1 = [
   
2.           {
   
3.             'content' => 'Dear ',
   
4.             'type' => 'const'
   
5.           },
   
6.           {
   
7.             'content' => ' ',
   
8.             'type' => 'var',
   
9.             'attr' => 'first_name'
   
10.           },
    
11.           {
    
12.             'content' => ',
    
13. 
    
14. This is paragraph ONE,this is a',
    
15.             'type' => 'var',
    
16.             'attr' => 'last_name'
    
17.           },
    
18.           {
    
19.             'conds' => [
    
20.                          '$root->{PIP}'
    
21.                        ],
    
22.             'type' => 'cond',
    
23.             'queues' => [
    
24.                           [
    
25.                             {
    
26.                               'content' => ' PIP',
    
27.                               'type' => 'const'
    
28.                             }
    
29.                           ]
    
30.                         ]
    
31.           },
    
32.           {
    
33.             'content' => ' card.
    
34. 
    
35. ',
    
36.             'type' => 'const'
    
37.           },
    
38.           {
    
39.             'conds' => [
    
40.                          '$root->{COND1}',
    
41.                          '$root->{COND1}',
    
42.                          '$root->{COND1}'
    
43.                        ],
    
44.             'type' => 'cond',
    
45.             'queues' => [
    
46.                           [
    
47.                             {
    
48.                               'content' => '
    
49. 
    
50. This is paragraph TWO
    
51.     blabla...
    
52. ',
    
53.                               'type' => 'const'
    
54.                             }
    
55.                           ],
    
56.                           [
    
57.                             {
    
58.                               'content' => '
    
59. 
    
60. This is paragraph THREE
    
61.     blabla...
    
62. ',
    
63.                               'type' => 'const'
    
64.                             }
    
65.                           ],
    
66.                           [
    
67.                             {
    
68.                               'content' => '
    
69. 
    
70. This is paragraph THREE
    
71.     blabla...
    
72. ',
    
73.                               'type' => 'const'
    
74.                             }
    
75.                           ]
    
76.                         ]
    
77.           },
    
78.           {
    
79.             'content' => '
    
80. 
    
81. Thanks!
    
82. 
    
83. ',
    
84.             'type' => 'const'
    
85.           }
    
86.         ];

复制代码

3. 使用pod:arser 解析上面的数据结构成pod格式，然后输出pod文本，使用perldoc查看这个文本格式如下：


如图暂时指进行了分行和加粗操作。由于文本中含有的一些不可控的空格，所以解析的不完善，还要继续改进。

当然我提供的文本只是一小部分，文件大的情况下是很杂乱的，我只想让格式更清晰显示更明了，便于查看模板逻辑等。因为只对perl这面比较熟就想到了pod，大家有什么其他的建议请不吝赐教！

kk861123

回复 2# sjdy521


    我想将一段文本转换成pod的格式，使用perldoc来显示其效果

kk861123

回复 5# sjdy521


    谢谢回复，我整理一下例子！

kk861123

sjdy521 发表于 2012-09-20 11:34
去了解了下Pod:arser这个模块，怎么感觉是用来分析pod的，也能够把一个hash转成pod吗？求指导下怎么用

是的,这个模块确实是用于解析pod文本的，然后一般用来转换成其他格式信息。我主要用了

1. Pod::InputObjects

复制代码

里的物件进行我想要的组装，然后输出。