On Tue, Aug 27, 2002 at 03:50:56PM -0400, Robin Norwood wrote:
> Kirby_Sarah <[EMAIL PROTECTED]> writes:
>
> > Hi all,
> >
> > I was wondering, can Perl create and format a Word document using a
I don't think there is any module to convert directly to Word. However,
there might be a module to convert text to Word RTF, which is as good
as a Word.doc. RTF is very complicated, so I don't know if anyone has
tacked this task.
Paul
> > template and can Perl create draft copies of Emails with (or without)
> > attachments? I want to automate a report process so that perl generates the
> > reports (which I do right now into HTML format that I then save as a Word
> > document) and creates the emails so I can send them out. I need drafts
> > because some of the emails need to have additional addresses added on
> > manually.
> >
> > -Sarah Kirby
> > LAN Support
> > BLS
>
>
> The first is probably fairly difficult. Perhaps use search.cpan.org
> to find a perl module which will output word documents. I know
> there's one for Excel, but I've never had a reason to use one for
> Word.
>
> For the second, you can create a template file like so:
>
> template.txt
> '
> Dear {salutation} {first_name} {last_name},
>
> Congratulations! You may have already won {amount}. That's right,
> {first_name}, the lifestyle of your dreams could be at hand!
>
> Blah blah blah.
> '
>
> And open it, replace the tags like so:
>
> '
> #!/usr/bin/perl -wl
>
> use strict;
>
> open TEMPLATE, "template.txt"
> or die "Could not open template.txt: $!";
>
> local $/ = undef;
> my $temp = <TEMPLATE>;
>
> close TEMPLATE;
>
> my %repl = ( first_name => 'Sarah',
> last_name => 'Kirby',
> salutation => 'Ms.',
> amount => '$100,000,000'
> );
>
> foreach my $key (keys %repl) {
> $temp =~ s/\{$key\}/$repl{$key}/gi;
> }
>
> print $temp;
> '
>
> Replacing 'print $temp', with whatever e-mail code you wish to send.
> You could, for instance, loop over an array of user records, do the
> substitution for each on a copy of '$temp', and e-mail them to the
> appropriate user.
>
> -RN
>
> --
>
> Robin Norwood
> Red Hat, Inc.
>
> "The Sage does nothing, yet nothing remains undone."
> -Lao Tzu, Te Tao Ching
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
************************
*Paul Tremblay *
*[EMAIL PROTECTED]*
************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
