当前位置:编程学习 > 网站相关 >>

幻影的聚合程序

以前的聚合是用PHP写的抓取,我PHP能力太差了,因此写得很搓。这两天用Perl改写了一下,感觉还是perl更能让我觉得舒服。有几个朋友要,就贴出来一下。点名BS一下百度,为什么就不愿意遵守RSS标准?

  1. #!/usr/local/bin/perl
  2.  
  3. =pod
  4. CREATE TABLE `rss_feeds` (
  5.   `id` int(11) NOT NULL AUTO_INCREMENT,
  6.   `title` varchar(255) NOT NULL,
  7.   `author` varchar(50) NOT NULL,
  8.   `link` text NOT NULL,
  9.   `description` longtext NOT NULL,
  10.   `pub_date` int(11) DEFAULT NULL,
  11.   `content_md5` varchar(32) NOT NULL,
  12.   PRIMARY KEY (`id`),
  13.   UNIQUE KEY `content_idx` (`content_md5`)
  14. ) ENGINE=MyISAM DEFAULT CHARSET=utf8;
  15.  
  16. CREATE TABLE `rss_sites` (
  17.   `id` int(11) NOT NULL AUTO_INCREMENT,
  18.   `username` varchar(255) DEFAULT NULL,
  19.   `site_url` varchar(255) DEFAULT NULL,
  20.   `rss_url` varchar(255) DEFAULT NULL,
  21.   `failed_times` int(11) DEFAULT 0,
  22.   PRIMARY KEY (`id`)
  23. ) ENGINE=MyISAM DEFAULT CHARSET=utf8;
  24. =cut
  25.  
  26. use strict;
  27. use warnings;
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,