如何在RTF文件中操纵边距的大小

Question

我制作了一个程序，它接收一个RTF文档，对其进行排序，然后输出另一个RTF文档。我有这个印刷声明，我需要操纵marigins使它们变小。我尝试了一些没有成功的事情。

Output directory

我读到命令是marglN和margrN但我没有成功使用它们。有什么想法吗？

Answer 1

在docs：

my ( $type, $argument, $param ) = get_token();

$ type是text，control，group，escape或eof之一。 我猜测你对文本标记感兴趣。

文本条目说：$ argument包含实际文本。

所以我建议尝试：

for my $token ( @tokens ){
    my ( $type, $arg ) = @$token;
    next unless $type eq 'text';
    print "$arg\n";
}

此代码未经测试。