add pdf format, enjoy

PerlChina · Apr 2, 2013 · 394adc8 · 394adc8
1 parent f7f696d
commit 394adc8
Show file tree

Hide file tree

Showing 17 changed files with 54 additions and 0 deletions.
diff --git a/POD/CN_pdf/perl.pdf b/POD/CN_pdf/perl.pdf
diff --git a/POD/CN_pdf/perlbook.pdf b/POD/CN_pdf/perlbook.pdf
diff --git a/POD/CN_pdf/perlcheat.pdf b/POD/CN_pdf/perlcheat.pdf
diff --git a/POD/CN_pdf/perlcn.pdf b/POD/CN_pdf/perlcn.pdf
diff --git a/POD/CN_pdf/perlembed.pdf b/POD/CN_pdf/perlembed.pdf
diff --git a/POD/CN_pdf/perlintro.pdf b/POD/CN_pdf/perlintro.pdf
diff --git a/POD/CN_pdf/perllol.pdf b/POD/CN_pdf/perllol.pdf
diff --git a/POD/CN_pdf/perlobj.pdf b/POD/CN_pdf/perlobj.pdf
diff --git a/POD/CN_pdf/perlootut.pdf b/POD/CN_pdf/perlootut.pdf
diff --git a/POD/CN_pdf/perlopentut.pdf b/POD/CN_pdf/perlopentut.pdf
diff --git a/POD/CN_pdf/perlreftut.pdf b/POD/CN_pdf/perlreftut.pdf
diff --git a/POD/CN_pdf/perlstyle.pdf b/POD/CN_pdf/perlstyle.pdf
diff --git a/POD/CN_pdf/perlunitut.pdf b/POD/CN_pdf/perlunitut.pdf
diff --git a/POD/CN_pdf/perlutil.pdf b/POD/CN_pdf/perlutil.pdf
diff --git a/POD/CN_pdf/perlvar.pdf b/POD/CN_pdf/perlvar.pdf
diff --git a/POD/CN_pdf/perlxstut.pdf b/POD/CN_pdf/perlxstut.pdf
diff --git a/POD/CN_pdf/pod2pdf.pl b/POD/CN_pdf/pod2pdf.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+use v5.14;
+use Pod::LaTeX;
+use Path::Tiny;
+my $parser = Pod::LaTeX->new();
+
+# !!! careful with the font
+# get the font in your computer: 
+#   fc-list :lang=zh
+# then  s/FZKai\-Z03/$font_you_want/
+
+#makeatletter is used to display chinese in verbatim
+#refer: http://www.cnblogs.com/agateriver/archive/2009/03/24/696153.html
+
+my $header = << "__TEX_HEADER__";
+\\documentclass[11pt,a4paper]{article}
+\\usepackage[top=1.2in,bottom=1.2in,left=1.2in,right=1in]{geometry}
+\\usepackage{fontspec}
+\\setmainfont{FZKai-Z03}
+\\setsansfont{FZKai-Z03}
+\\XeTeXlinebreaklocale "zh"
+\\XeTeXlinebreakskip = 0pt plus 1pt minus 0.1pt
+\\begin{document}
+\\makeatletter
+\\def\\verbatim\@font\{\\sffamily\\small\} 
+\\makeatother
+__TEX_HEADER__
+
+$parser->UserPreamble($header);
+$parser->MakeIndex(0);
+
+my $pod_dir = path("../CN");
+my @pod_files = $pod_dir->children;
+
+# you must intall xelatex to run the program
+# I only use it in my linux machine
+# have not tested it in others.
+
+foreach my $filename (@pod_files) {
+    my $file_name_pod = $filename->stringify;
+    my $file_name_tex = $file_name_pod =~ s/pod/tex/r;
+    $parser->parse_from_file ($file_name_pod, $file_name_tex);
+    system("xelatex $file_name_tex");
+    system("rm $file_name_tex");
+}
+
+# clean up
+system("rm *.log *.aux");
+
+#author: Hao Wu <echowuhao@gmail.com>
+#date : 04-01-2012
+
+# it may have bugs in the pdf files and the program itself
+# welcome to tell me if you find any, thanks