作者krist99 (只爱Calvin Klein)
看板perl
标题比对中文出不来??
时间Fri Oct 22 16:18:23 2004
use File::Find; # 指挥 perl 至 perl 的主要目录下寻找 File/Find.pm 这个
# 模组，引入使用! 其中 :: 相当於 / 这个符号。
# 路径设定
my $dir=shift || '../www';
# 抓取使用者欲比对的字串
print"请输入您欲比对的字串:";
chomp($string=<STDIN>);
# 走访该目录
find(\&doit, $dir);
# 动作区
sub doit
{
open(FIN, $File::Find::name);
#foreach $tmp (<FIN>){
if(/\w+/)
{
if(grep{/\b$string\b/i} <FIN>)
{
print"
http://$_\n";
}
}elsif(grep{/$string/} <FIN>)
{
print"
http://$_\n";
print"$File::Find::name";
}
# $tmp =~ s/<[^>]*>//g;
# print"$tmp\n";
#print(grep{/$string/} <FIN>."\n";
}
这段程式比对英文成功可以印出网址~~
但是中文怎麽没东西??
谢谢^^
--
http://www.wretch.twbbs.org/album/krist ^^"
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.162.212.82