幻影的聚合程序
以前的聚合是用PHP写的抓取,我PHP能力太差了,因此写得很搓。这两天用Perl改写了一下,感觉还是perl更能让我觉得舒服。有几个朋友要,就贴出来一下。点名BS一下百度,为什么就不愿意遵守RSS标准?
#!/usr/local/bin/perl =pod CREATE TABLE `rss_feeds` ( `id` int(11) NOT NULL AUTO_INCREMENT, `title` varchar(255) NOT NULL, `author` varchar(50) NOT NULL, `link` text NOT NULL, `description` longtext NOT NULL, `pub_date` int(11) DEFAULT NULL, `content_md5` varchar(32) NOT NULL, PRIMARY KEY (`id`), UNIQUE KEY `content_idx` (`content_md5`) ) ENGINE=MyISAM DEFAULT CHARSET=utf8; CREATE TABLE `rss_sites` ( `id` int(11) NOT NULL AUTO_INCREMENT, `username` varchar(255) DEFAULT NULL, `site_url` varchar(255) DEFAULT NULL, `rss_url` varchar(255) DEFAULT NULL, `failed_times` int(11) DEFAULT 0, PRIMARY KEY (`id`) ) ENGINE=MyISAM DEFAULT CHARSET=utf8; =cut use strict; use warnings;上一个:main函数之前究竟发生了什么?
下一个:前端要给力之:代码可以有多烂?