perl 用参数传递URL地址进行HTML解析

发布时间：2020-12-16 00:14:04 所属栏目：大数据来源：网络整理

导读：? #!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

? #!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 ("%-145st:%-3.1ft%-3.1ft%-3.1fn",$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.0n");
$smtp->datasend("Content-Type: text/html; charset=us-asciin");
$smtp->datasend("To: $email_receiversn");
$smtp->datasend("Subject: STF Changen");
$smtp->datasend("$result_contentn");
$smtp->quit;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!