我写的总是不对.perl像google首页一样去掉html多余代码的正则怎么写?
$msg = <html文件>
$msg =~ s/~>\s+<~//g;
$msg =~ s/~>\s+\r?\n~//g;
$msg =~ s/<!--{2,}.*?-{2,}>//g;
$msg =~ s/<!--\[/!\]*?\[^<>\]*?>//g;
总是不对,不知道是哪不对?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖，请发电子邮件到 [email protected]
要退订此论坛，请发邮件至 [email protected]
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
