Perl在主机内容过滤应用中的实践李兰柱(llz2008) 2006.031议 程n项目背景n程序功能n系统架构说明n用到的关键Perl模块n代码示例n结束语2项目背景n互联网飞速发展，进入寻常百姓家n为我们搭起了前所未有的信息沟通平台n不法份子利用网络进行欺诈和恶意宣传n作为主机提供商我们有义务维护一个良好的氛围3程序功能n完成所有用户网页内容的过滤（保存在几百多台服务器上）n支持增量扫描（按文件修改时间）n能够生成可视化的扫描结果报告4系统架构说明Scan_groupScan_HostScan_Dirget_dir_infoScan_HostScan_HostScan_DirDirectoryText FleContent_Checker主机群组级主机级目录级文件级主机内容过滤程序逻辑图5用到的关键Perl模块nNet:FTP函数列表： $ftp = Net:FTP-new 创建ftp对象$ftp-login()登录服务器 $ftp-dir显示文件和目录列表 $ftp-get()下载文件 $ftp-close() 关闭连接6代码示例#创建FTP对象 $ftp = Net:FTP-new( “$SERVER“ ) or die “Cannot connect to host.name: $“;#登录服务器 $ftp-login(“$FTP_USER“,“$FTP_PASSWD“) or die “Cannot login “, $ftp-message;#显示文件和目录列表 my dirlist = $ftp-dir(“$DIR“);#下载文件 my $ret = $ftp-get( $remote_file, $local_file );#关闭连接 $ftp-close(); 7结束语nPerl是一种功能强大的语言nPerl是一种快速开发的语言nPerl是一种无处不在的语言谢谢大家！8