perl写的一个转换pod文件成wordpress格式的html脚本

斯文牛氓

烂博客发文章不喜欢在线编辑，于是自己动手，丰衣足食,本菜鸟写了个pod2html的脚本，代码如下:

1. use strict;
   
2. use warnings;
   
3. use Data::Dumper;
   
4. use Pod::Html;
   
5. use FileHandle;
   
6. use Getopt::Long;
   
7. use Carp;
   
8. use HTML::Entities;
   
9. use File::Basename;
   
10. use File::Spec;
    
11. use Cwd qw(abs_path);
    
12. use open ':std', ':encoding(UTF-8)';
    
13. use open ':encoding(utf8)';
    
14. 
    
15. my $module_list;
    
16. my $is_raw_zh;
    
17. 
    
18. GetOptions( "m:s" => \$module_list, 'c:s' => \$is_raw_zh );
    
19. 
    
20. if ( !$module_list ) {
    
21.     Carp::croak(
    
22.         "you must defined a module list like \n",
    
23.         "$0 -m File::Spec,File::Basename\n"
    
24.     );
    
25. }
    
26. 
    
27. #my $changed_pre = q{<pre class="brush: perl; gutter: true">};
    
28. # wp-code-highlight prettyprint
    
29. my $changed_pre = q{<pre class="wp-code-highlight prettyprint">};
    
30. my $pod_path    = abs_path( dirname(__FILE__) ) . "/../pod";
    
31. my $html_path   = abs_path( dirname(__FILE__) ) . "/../html";
    
32. 
    
33. for my $module_name ( split( ",", $module_list ) ) {
    
34.     $module_name =~ s{::}{-}g;
    
35.     my $per_pod_file = File::Spec->catfile( $pod_path, $module_name );
    
36. 
    
37.     if ( !-e $per_pod_file ) {
    
38.         Carp::croak("this module ${module_name}'s pod is not exists\n");
    
39.     }
    
40. 
    
41.     # init file handle
    
42.     #    my $readpod_r = new FileHandle($per_pod_file);
    
43.     open( my $readpod_r, "<", $per_pod_file );
    
44.     my $cpan_html_file =
    
45.       File::Spec->catfile( $html_path, $module_name . ".html" );
    
46.     my $zh_pod_file =
    
47.       File::Spec->catfile( $pod_path, $module_name . ".zh.pod" );
    
48.     my $wp_html_file = $cpan_html_file . "_wp.html";
    
49. 
    
50.     #    my $zh_pod_w     = new FileHandle( ">" . $zh_pod_file )
    
51.     #      or Carp::croak("creat zh pod file failed");
    
52.     open( my $zh_pod_w, ">", $cpan_html_file );
    
53.     goto RAW_ZH_POD if $is_raw_zh;
    
54. 
    
55.   READ_TRANSFERED_FILE: {
    
56.         while ( my $line = <$readpod_r> ) {
    
57. 
    
58.             #chomp($line);
    
59.             if ( $line =~ m/^=head1/xis ) {
    
60.                 while ( $line = <$readpod_r> ) {
    
61.                     if ( $line =~ m/^zh:(.*) # match zh line/xis ) {
    
62.                         print $zh_pod_w $1;
    
63.                     }
    
64.                     elsif ( $line =~ m{^(?:\t|\s) # match code block}xis ) {
    
65.                         print $zh_pod_w $line;
    
66.                     }
    
67.                 }
    
68.             }
    
69.         }
    
70.     }
    
71. 
    
72.   RAW_ZH_POD: {
    
73.         last unless $is_raw_zh;
    
74.         my $raw_pod = do { local $/; <$readpod_r> };
    
75.         print $zh_pod_w $raw_pod;
    
76.     }
    
77. 
    
78.   CONVERT: {
    
79.         if ( -s $zh_pod_file > 0 ) {
    
80.             pod2html(
    
81.                 "--infile=" . $zh_pod_file,
    
82.                 "--outfile=" . $cpan_html_file,
    
83.                 "--title=" . $module_name,
    
84.             );
    
85. 
    
86.             # substitute for wp format html document
    
87.             my $wp_pre = q{<pre class="brush: perl; gutter: true">};
    
88.             open( my $cpan_html_r, "<", $cpan_html_file )
    
89.               or Carp::croak("open file failed $@");
    
90.             open( my $wp_html_w, ">", $wp_html_file )
    
91.               or Carp::croak("open wp html failed\n");
    
92. 
    
93.             do {
    
94.                 local $/ = undef;
    
95.                 my $content = <$cpan_html_r>;
    
96.                 $content =~ s{<span.*?>}{}sg;
    
97.                 $content =~ s{</span>}{}sg;
    
98.                 $content =~ s{</pre>[^<]*<pre>}{}sg;
    
99.                 $content =~ s{<pre>}{$changed_pre}sg;
    
100. #                $content =~ s{&lt;}{<}g;
     
101. #                $content =~ s{&gt;}{>}g;
     
102.                 $content=~ s{&amp;gt;}{>}g;
     
103.                 print $wp_html_w $content, "\n";
     
104.             };
     
105.             close($wp_html_w);
     
106.             close($cpan_html_r);
     
107. 
     
108.             print "-------------------------", "\n";
     
109.             print "All Convert are finished\n";
     
110.             print "Convert Output File are:",        "\n";
     
111.             print "cpan_html_file: $cpan_html_file", "\n";
     
112.             print "wp_html_file  : $wp_html_file",   "\n";
     
113.             print "zh_pod_file   : $zh_pod_file",    "\n";
     
114.         }
     
115.     }
     
116.     close($readpod_r);
     
117.     close($zh_pod_w);
     
118. }
     
119. 
     
120. =pod
     
121. my $changed_pre = q{<pre class="brush: perl; gutter: true">};  
     
122. my $content =do { open FH,$file;local $/;<FH> };
     
123. $content =~ s{<span.*?>}{}sg;
     
124. $content =~ s{</span>}{}sg;
     
125. $content =~ s{</pre>[^<]*<pre>}{}sg;
     
126. $content =~ s{<pre>}{$changed_pre}sg;
     
127. 
     
128. print $content;
     
129. =cut
     

复制代码

代码很糙，但是基本可以把pod转成的html发到wp博客了，适合懒人写wp博客，前提是文章是pod格式，效果可以参照：
http://perlfan.com/index.php/test-code/

关于自动post文章就没搞了.！
完整的脚本可以到git clone https://github.com/king-ming/POD_CN.git

sjdy521

perl的发行版不都自带了pod2html这个程序么

斯文牛氓

回复 2# sjdy521


    仔细看看....

rubyish

代码写de很斯文

py

看标题我以为不是pod2html。。。
楼主竟然不知道pod2html...这个好像有了N年了。而且像pod这样的开源东西能被CPAN显示在网页上，想也能知道会有这样的工具。

楼主还可以看看pod2*

斯文牛氓

回复 5# py


    只是针对wordpress的高亮插件改了下，pod2html我是很早就知道了