下面的程序会检测灵山的最新内容 两点需要注意： use utf8; 这句使得这个程序中的字符编码为utf8 $doc = Encode::decode(“gbk”, $doc); 这句的作用是把gbk的字符转换为utf8 #! /usr/bin/env perl use warnings; use LWP::Simple; use Encode; use utf8; $doc = get ‘http://www.birdsee.com/files/article/info/88/88291.htm’; $doc = Encode::decode(“gbk”, $doc); #print $doc; if ($doc =~ /.*回、(.*)<\/a>.*/) { print $1.”\n”; }