hi
This is sample HTML file which is called as sample.html
<html>
<body>
<table width="531" border="0" align="center" cellpadding="0"
cellspacing="0">
<tbody>
<tr>
<td width="512" valign="top">
<table width="805" cellspacing="0" cellpadding="0" border="0">
<tbody>
<tr>
</tr>
<tr>
<td width="4" valign="top" rowspan="3"> </td>
<td width="948">
<div align="right">
<blockquote>
<h2 align="right"><b>Online e-Statement </b></h2>
</blockquote>
</div></td>
<td width="1" valign="top" rowspan="3"></td></tr>
<tr>
<td>
<table width="800" cellspacing="0" cellpadding="20" border="0">
<tbody>
<tr>
<td width="564" valign="top">
<p align="left"><b>Dear BH_PERL,<br>
<br>
</b>Thank you for subscribing to Online E-Statement. As our valued cus
+tomer, your satisfaction is our utmost
priority. To view or open your statement, please key-in the predefined
password as xxxx. <br>
<br>
<br>
Thank you </br>
<br></p><p align="left">Sincerely,
<br>
</p> </td>
<td width="304" valign="top">
<p align="left"><span><strong>Bill Date</strong></span><br>10 Septembe
+r
2012</p>
<p align="left"><strong>PAYMENT DUE DATE</strong><br>30 September
2012</p> </td>
</tr>
</tbody>
</table></td></tr>
<tr>
</tr>
<tr>
<td valign="top" colspan="3"></td></tr></tbody></table></td>
</tr>
</tbody>
</table>
</body>
</html>
This is sample of my readHTML.pl script. It is not completed yet due to this problem. But i attached here for your reference.
#!/usr/bin/perl
use Getopt::Long;
my ($inputfile, $logfile);
GetOptions (
"h|help"=> \$help,
"f=s" => \$inputfile,
"l=s" => \$logfile
) or usage();
sub usage {
print ("Invalid Command!! \n");
print ("USAGE: $0 -l <log_file> -f <csv_input_file> \n");
exit;
}
open (CONFIG, "$inputfile");
while ($line = <CONFIG>) {
chomp($line);
$line =~ s/"//g;
next if $line =~ /^FromName/;
@data = split(/\,/, $line);
$FromName = $data[0];
$FromMail = $data[1];
$ToName = $data[2];
$ToMail = $data[3];
$CCName = $data[4];
$CCMail = $data[5];
$BCCName = $data[6];
$BCCMail = $data[7];
$ReplyName = $data[8];
$ReplyMail = $data[9];
$Subject = $data[10];
$ReplyMail = $data[9];
$Subject = $data[10];
$TextFile = $data[11];
$HtmlFile = $data[12];
$ReturnName = $data[13];
$ReturnMail = $data[14];
$ReturnReceipt = $data[15];
$ReadReceipt = $data[16];
$Attachment = $data[17];
$blank1 = $data[18];
$blank2 = $data[19];
$AddPdfFile = $data[20];
open (LOG,">> $logfile");
print (LOG localtime(time) . ",$email_id,$attach,$cust_name,$s
+date,$ddate\n");
$msg = MIME::Lite->new(
To =>$ToEmail,
From =>$FromName,
Subject =>$Subject,
Type =>'multipart/related'
);
$msg->attach(
##############################
# Called HTML script here... #
##############################
);
$msg->attach(
Type => 'image/gif',
Id => "$Attachment",
Path => "$Attachment"
);
$msg->send();
close(LOG);
}
close(CONFIG);
My question is how could i read and open the HTML script file (sample.html) from readHTML.pl script.
Thank you,
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.