#!/usr/bin/perl use strict; use warnings; use Text::FromAny; my $file = '/root/Desktop/test.doc'; my $tfile = '/root/Desktop/text.txt'; open STDOUT, '>', $tfile; my $tFromAny = Text::FromAny->new(file => $file); my $text = $tFromAny->text; print $text, "\n"; system("a2pdf -o /root/Desktop/text_is_pdf.pdf $tfile"); close STDOUT;
In reply to Re: converting doc to pdf
by Khen1950fx
in thread converting doc to pdf
by kcella
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |