perl 用參數傳遞URL地址進行HTML解析

  #!C:/perl64/bin/perl
 require LWP::UserAgent;
 
 my $ua = LWP::UserAgent->new;
 $ua->timeout(10);
 $ua->env_proxy;
 
 my ($url_new,$url_old) = @ARGV;
 my $response = $ua->get($url_new);
 die $response->status_line unless ($response->is_success);
# print $response->decoded_content;  # or whatever whole file
my @contents_new = split (/<\/tr>/,$response->decoded_content);
my $eachline = undef;
#$response->decoded_content just one line
#so if dealing with the line ,us split

foreach $eachline (@contents_new){
chomp $eachline;
         
next unless ($eachline =~ /<tr><td align="left">/); #sometime be not so strict
 
if($eachline =~ /html">(.*?)< .*? ">\s?([0-9]+\.[0-9])<\/td> 
.*? >([0-9]+\.[0-9]|n\/a)+< 
.*? >([0-9]+\.[0-9]|n\/a)+<
                     .*? html">(.*?)<
.*? ">(.*?)<\/td> /x)
    {
        printf ("%-145s\t:%-3.1f\t%-3.1f\t%-3.1f\n",$1,$2,$5,$6);
}

}
  print "*********************************\n";
  
=comment  
# my @contents = $response->decoded_content;
# foreach my $content (@contents){
# print $content;
#}
 $response = $ua->get($url_old);
 die $response->status_line unless ($response->is_success);
 print $response->decoded_content;  # or whatever whole file
 #my @contents_new = $response->decoded_content;
 my @contents_old = $response->decoded_content;
 my $eachline1 = undef;
foreach $eachline1 (@contents_old){
print $eachline1."###";
}
 

#use LWP::UserAgent;
#$browser=LWP::UserAgent->new;
#$TARGET_URL="http://search.cpan.org";
#$response=$browser->post($TARGET_URL);
#$htmlcontent=$response->content; 
#print $htmlcontent."\n";

=cut

發郵件功能，發送的郵件用HTML顯示

use Net::SMTP;

my $smtp = Net::SMTP->new($email_server);
$smtp->mail($email_sender);
my @receivers = split (";",$email_receivers);


$smtp->recipient(@receivers);
$smtp->data();
$smtp->datasend("MIME-Version: 1.0\n");
$smtp->datasend("Content-Type: text/html; charset=us-ascii\n");
$smtp->datasend("To: $email_receivers\n");
$smtp->datasend("Subject: STF Change\n");
$smtp->datasend("$result_content\n");
$smtp->quit;