Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: How to process html script with perl

by bh_perl (Monk)
on Oct 30, 2012 at 03:41 UTC ( #1001451=note: print w/replies, xml ) Need Help??


in reply to Re: How to process html script with perl
in thread How to process html script with perl


Hi..

I have use MIME::Lite package to sent email

Based on your reply the code will be as below
$msg = MIME::Lite->new(
                To      =>$ToEmail,
                From    =>$FromName,
                Subject =>$Subject,
                Type    =>'multipart/related'
        );

        $msg->attach(
                ##############################
                # Called HTML script here... #
                ##############################
                 {open (my $fh,"<","sample.html" ) or die $!; local $/
+=undef; <$fh>}

        );

        $msg->attach(
                Type => 'image/gif',
                Id   => "$Attachment",
                Path => "$Attachment"
        );

[download]

is it correct ?

Replies are listed 'Best First'.
Re^3: How to process html script with perl
by thomas895 (Deacon) on Oct 30, 2012 at 06:51 UTC

    is it correct ?
    Not quite.

    First of all, I feel it needs to be said that HTML is not a scripting language. It is a markup language.

    Next, your open() statement will never work. Why? Because you can't put it in a hashref like that, and still get your expected result. You may also want to see the documentation for MIME::Lite.
    Instead, use something like the following: 

    $msg->attach(
    Type => "text/html",
    Id => "sample.html",
    Path => "/path/to/sample.html"
);

    [download]

    ...which should save you some hassle with the files.

    I hope that solves(or at least helps) your question, although I do highly advise you to read perlintro, among others. 

    ~Thomas~ 
    
"Excuse me for butting in, but I'm interrupt-driven..."
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1001451]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (9)
As of 2023-02-02 13:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (19 votes). Check out past polls.
    Notices?