hen coping with the rtf thing, I encountered a problem.
I used the script that comes in the module, but as I didn't understand I
modified it to:
#!/usr/bin/perl
require RTF::TEXT::Converter;
my $inputfile="document.rtf";
my $outputfile="document.txt";
open(IN,"<$inputfile") or die;
open(OUT,">$outputfile") or die;
my $self = new RTF::TEXT::Converter(Output => \*OUT);
foreach my $inputfile (@ARGV) {
$self->parse_stream($outputfile);
}
close(IN);
close(OUT);
What is wrong whith this script?
=========
my script is and it works :
require RTF::TEXT::Converter;
my $inputfile="c:/TMP/ex1.rtf";
my $outputfile="c:/tmp/out.2";
open(OUT,">$outputfile") or die "err open output";
my $self = new RTF::TEXT::Converter(Output => \*OUT);
$self->parse_stream($inputfile);
close(OUT);
print "end!";
----- Original Message -----
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
