一个小程序[Socrates]中学到的Perl点滴
1. 抓取网页源文件，只要三行代码
use LWP::Simple;
$url='http://music.baidu.com/top/dayhot';
$page=get($url) or die "couldn't get $usr\n";
2. 搜索引擎URL的反编译
my ($url) = "http://www.baidu.com/s?wd=%E4%B8%AD%E5%9B%BD%E9%93%B6%E8%A1%8C&rsv_bp=0";
#编码
# $url =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
# print "$url";
#解码
$url =~ s/\%({2})/pack('C', hex($1))/seg;
print "$url";
页:
[1]