一个小程序[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"; 

#解码
]{})/))/seg;
print "$url";