diff --git a/POD/CN_pdf/perl.pdf b/POD/CN_pdf/perl.pdf new file mode 100644 index 0000000..4612f2f Binary files /dev/null and b/POD/CN_pdf/perl.pdf differ diff --git a/POD/CN_pdf/perlbook.pdf b/POD/CN_pdf/perlbook.pdf new file mode 100644 index 0000000..7a2df4a Binary files /dev/null and b/POD/CN_pdf/perlbook.pdf differ diff --git a/POD/CN_pdf/perlcheat.pdf b/POD/CN_pdf/perlcheat.pdf new file mode 100644 index 0000000..3460386 Binary files /dev/null and b/POD/CN_pdf/perlcheat.pdf differ diff --git a/POD/CN_pdf/perlcn.pdf b/POD/CN_pdf/perlcn.pdf new file mode 100644 index 0000000..1d62e1c Binary files /dev/null and b/POD/CN_pdf/perlcn.pdf differ diff --git a/POD/CN_pdf/perlembed.pdf b/POD/CN_pdf/perlembed.pdf new file mode 100644 index 0000000..c2e3ad5 Binary files /dev/null and b/POD/CN_pdf/perlembed.pdf differ diff --git a/POD/CN_pdf/perlintro.pdf b/POD/CN_pdf/perlintro.pdf new file mode 100644 index 0000000..3f5200f Binary files /dev/null and b/POD/CN_pdf/perlintro.pdf differ diff --git a/POD/CN_pdf/perllol.pdf b/POD/CN_pdf/perllol.pdf new file mode 100644 index 0000000..199eb53 Binary files /dev/null and b/POD/CN_pdf/perllol.pdf differ diff --git a/POD/CN_pdf/perlobj.pdf b/POD/CN_pdf/perlobj.pdf new file mode 100644 index 0000000..7d71835 Binary files /dev/null and b/POD/CN_pdf/perlobj.pdf differ diff --git a/POD/CN_pdf/perlootut.pdf b/POD/CN_pdf/perlootut.pdf new file mode 100644 index 0000000..4721946 Binary files /dev/null and b/POD/CN_pdf/perlootut.pdf differ diff --git a/POD/CN_pdf/perlopentut.pdf b/POD/CN_pdf/perlopentut.pdf new file mode 100644 index 0000000..20a4a9c Binary files /dev/null and b/POD/CN_pdf/perlopentut.pdf differ diff --git a/POD/CN_pdf/perlreftut.pdf b/POD/CN_pdf/perlreftut.pdf new file mode 100644 index 0000000..254ade9 Binary files /dev/null and b/POD/CN_pdf/perlreftut.pdf differ diff --git a/POD/CN_pdf/perlstyle.pdf b/POD/CN_pdf/perlstyle.pdf new file mode 100644 index 0000000..e82a43a Binary files /dev/null and b/POD/CN_pdf/perlstyle.pdf differ diff --git a/POD/CN_pdf/perlunitut.pdf b/POD/CN_pdf/perlunitut.pdf new file mode 100644 index 0000000..43115c1 Binary files /dev/null and b/POD/CN_pdf/perlunitut.pdf differ diff --git a/POD/CN_pdf/perlutil.pdf b/POD/CN_pdf/perlutil.pdf new file mode 100644 index 0000000..fe35699 Binary files /dev/null and b/POD/CN_pdf/perlutil.pdf differ diff --git a/POD/CN_pdf/perlvar.pdf b/POD/CN_pdf/perlvar.pdf new file mode 100644 index 0000000..9ab683d Binary files /dev/null and b/POD/CN_pdf/perlvar.pdf differ diff --git a/POD/CN_pdf/perlxstut.pdf b/POD/CN_pdf/perlxstut.pdf new file mode 100644 index 0000000..4433587 Binary files /dev/null and b/POD/CN_pdf/perlxstut.pdf differ diff --git a/POD/CN_pdf/pod2pdf.pl b/POD/CN_pdf/pod2pdf.pl new file mode 100644 index 0000000..27b0a95 --- /dev/null +++ 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 +#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