Perl : RTF::Writer 生成rtf文件

 

参考：

RTF::Writer

rtf pocket guide

use RTF::Writer;
use utf8;

my $rtf = RTF::Writer->new_to_file("test.rtf");
$rtf->prolog( 'title' => "test", 'author' => "mmm" );

$rtf->paragraph(
    \'\fi480\fs20\b\i',    # 缩进，字号，粗体，斜体

"测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试\n"
);

$rtf->paragraph(

    # \sl300\slmult1 行间距, \sb 行前，\sa 行后

    \'\fs25\fi480\sl360\slmult1\sb180\sa280',
"测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试\n"
);

#表格

my $decl = RTF::Writer::TableRowDecl->new( 'widths' => [ 900, 1300 ] );
$rtf->row( $decl, '测试', '测试xxxxxxx' );
$rtf->row( $decl, '取值', '取值yyyyyyyyy' );

$rtf->paragraph(
    \'\qc',    #居中

    $rtf->image( 'filename' => "test.png", scalex => 35, scaley => 35 ), #插图

);

$rtf->close;

use RTF::Writer;
use utf8;

my $rtf = RTF::Writer->new_to_file('test.rtf');

$rtf->print(
    #首页页眉、页脚

    \"\\titlepg {\\headerf\\pard\\plain\\qc\\f1 ", "首页荣耀", \"\\par}", 
   \"{\\footerf {\\pard \\brdrb \\brdrs\\brdrw10\\brsp20 {\\fs4\\~}\\par \\pard} \\pard\\plain\\qc\\fs23", "一寸灰", \"\\par}", 

    #正文页眉、页脚

    \"\n{\\header \\pard\\qc\\plain\\f1", "我是叶修", \"\\par}\n\n", 
    \"{\\footer {\\pard \\brdrb \\brdrs\\brdrw10\\brsp20 {\\fs4\\~}\\par \\pard} \\pard\\plain\\qc\\fs23 ", "我是蓝河",  \"\\chpgn of {\\field{\\*\\fldinst NUMPAGES }}\\par}",
);

$rtf->paragraph( "首页内容blabla\n");
$rtf->paragraph( \'\pagebb' ); #分页

$rtf->paragraph( "正文内容blabla\n");

$rtf->close;