Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
Don't ask to ask, just ask
 
PerlMonks  

Re: How to process html script with perl

by Anonymous Monk
on Oct 30, 2012 at 02:59 UTC ( #1001447=note: print w/ replies, xml ) Need Help??


in reply to How to process html script with perl

Maybe use read and open?


Comment on Re: How to process html script with perl
Re^2: How to process html script with perl
by bh_perl (Monk) on Oct 30, 2012 at 03:41 UTC

    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" );

    is it correct ?

      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" );

      ...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..."

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1001447]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (10)
As of 2014-04-18 12:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (466 votes), past polls