小编Pra*_*een的帖子

使用 perl 将 RTF 转换为文本

有人能告诉我如何使用 perl 编程语言将 rtf 文件转换为包含所有标签、表格和格式化数据的文本吗?

@Ahmad Bilal ,@petersergeant :我一直在使用以下代码进行 RTF 到 TXT 的转换,并且能够转换为文本。但问题是我无法捕获表格或图像格式,甚至输入文件中的所有实体都没有使用该程序捕获。

use 5.8.0;
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use RTF::HTMLConverter;

#-------------------------------------------------------------------
#Variable Declarions
#-------------------------------------------------------------------
my $tempfile = "";
my $Outfile = "";
my $txtfile = "";
my $URL = "";
my $Format = "";
my $TreeBuilder = "";
my $Parsed = "";
my $line = "";


my %opts;
GetOptions(
  "help|h|?"     => \$opts{help},
  "man|m"        => \$opts{man},
  "dom=s"        => \$opts{dom},
  "noimages|n"   => \$opts{noimages},
  "imagedir|d=s" => \$opts{imagedir},
  "imageuri|u=s" …
Run Code Online (Sandbox Code Playgroud)

perl text rtf perl-module

1
推荐指数
1
解决办法
1388
查看次数

标签 统计

perl ×1

perl-module ×1

rtf ×1

text ×1