RTFファイルの余白のサイズを操作する方法

Question

RTFドキュメントを取り込んでソートし、別のRTFドキュメントを出力するプログラムを作成しました。私はこのプリントステートメントを持っており、マリガンを操作してそれらを小さくする必要があります。私は成功しないでいくつかのことを試しました。

   if ($_ =~ "ERROR"){ 
       $rtf->prolog(
       'title' => "Color Test", 
       'colors' => [ 
       undef,  
       [0,0,0],  # 1 - black 
       [255,0,0], # 2-red 
       [0,255,0], # 3-green 
       [0,0,255], # 4-blue 
       [255,128,0], # 5-orange 
       [255,255,0], # 6-yellow 
       ], 
       ); 
     #PRINT ERRORS IN RED   
       $rtf->printf(\'{\fs20\lang1036\noproof\cf2\highlight1 %s} \par ', "$_"); 

     } 

私はこのコマンドがmarglNとmargrNですが、これらの使用には成功していません。何か案は？ docsで

Answer 1

：

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

$型はtext、control、group、escapeまたはeofの一つです。 私はあなたがテキストトークンに興味があると思っています。

テキストの入力は次のようになります。$ argumentには実際のテキストが含まれています。

だから私はしようと示唆している：

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

このコードはテストされていません。