#!/usr/bin/perl
use WWW::Mechanize;
use MIME::Lite;
use Encode;
use Encode::HanConvert qw(simple); $a = WWW::Mechanize ->new();
eval { $m = MIME::Lite ->new(To => q(joejiang@securities.com), Subject => q(HYT), Type => q(multipart/related)); $m->attach(Type => q(text/html), Data => $_); $m->send()} for grep {$_ = encode(q(utf8),simple(decode(q(utf8),$a->get($_)->content())));
s{著}{着}sg; s{豫}{预}sg; s{狺}{窑}sg; s{馀}{余}sg; s{辊}{滚}sg; s{甚么}{什么}sg; s{藉}{借}sg; s{�}{链}sg; s{�}{诧}sg; s{�}{谨}sg; s{�}{着}sg; s{�}{渎}sg; s{�}{周}sg; s{锁炼}{锁链}sg; s{�}{洼}sg; s{彀}{够}sg; s{夥}{伙}sg; s{�}{浮}sg; s{�}{藜}sg;
s{<a href="http://m.youversion.com/bible/more/[\w\d.]+">\[more\]</a>}{}sg; s{.*(<h2 class="reader_location top"><span class="reference">[\w ]+</span></h2>).*<div id="reader" class="content">(.*)<div class="link" style="border-bottom:1px solid #ccc">.*}{<body>\1\2</div></body>}s; $_} grep { $_ = qq(http://m.youversion.com/bible/cuv/$_) } @ARGV
use WWW::Mechanize;
use MIME::Lite;
use Encode;
use Encode::HanConvert qw(simple); $a = WWW::Mechanize ->new();
eval { $m = MIME::Lite ->new(To => q(joejiang@securities.com), Subject => q(HYT), Type => q(multipart/related)); $m->attach(Type => q(text/html), Data => $_); $m->send()} for grep {$_ = encode(q(utf8),simple(decode(q(utf8),$a->get($_)->content())));
s{著}{着}sg; s{豫}{预}sg; s{狺}{窑}sg; s{馀}{余}sg; s{辊}{滚}sg; s{甚么}{什么}sg; s{藉}{借}sg; s{�}{链}sg; s{�}{诧}sg; s{�}{谨}sg; s{�}{着}sg; s{�}{渎}sg; s{�}{周}sg; s{锁炼}{锁链}sg; s{�}{洼}sg; s{彀}{够}sg; s{夥}{伙}sg; s{�}{浮}sg; s{�}{藜}sg;
s{<a href="http://m.youversion.com/bible/more/[\w\d.]+">\[more\]</a>}{}sg; s{.*(<h2 class="reader_location top"><span class="reference">[\w ]+</span></h2>).*<div id="reader" class="content">(.*)<div class="link" style="border-bottom:1px solid #ccc">.*}{<body>\1\2</div></body>}s; $_} grep { $_ = qq(http://m.youversion.com/bible/cuv/$_) } @ARGV
没有评论:
发表评论