rr-RSS.perl

[tusooa]

代码： 全选

tlcr: 0 庚寅年七月二十日 11:45:10 ~
● rr-RSS.perl
${color green}骨头的博客:${color yellow}
gentoo下的pppoe拨号
湿地博物馆
${color green}xiooli的博客:${color yellow}
诡异的 gtk 程序启动出错
迁移运行中的 Archlinux 系统至移动硬盘
tlcr: 0 庚寅年七月二十日 11:45:29 ~
● ds rr-RSS.perl
#!/usr/bin/perl
# vim : ft=perl

use 5.010;
use lib "$ENV{HOME}/应用/库/脚本";
use XML::RSS;
use scriptFunctions;
use utf8;
use encoding 'utf8';

sub getXML
{
    my ($uri, $opts);
    $uri  = shift @_;
    $opts = shift @_;

    `curl $opts $uri 2>/dev/null`;
}

open CFG, '<', $scriptFunctions::configDir . 'rr-RSS.perl';

$rss = XML::RSS->new;

while (<CFG>)
{
    # Syntax: name,uri,num,opts
    next if /^#/;
    chomp;
    @cfg = split /,/, $_;
    @cfg == 4 or @cfg == 3 or @cfg == 2 or die "配置文件错误\n";
    
    $text = getXML $cfg[1], $cfg[3];

    $rss->parse ($text);

    say "\${color green}$cfg[0]:\${color yellow}";
    my $num = 0;
    while ($num < $cfg[2])
    {
        $num++;
        $item = shift @{$rss->{'items'}};
        #say "<a href=\"$item->{'link'}\">$item->{'title'}</a>";
        say "$item->{'title'}";
    }
}

tlcr: 0 庚寅年七月二十日 11:46:10 ~
● 

配置文件：

代码： 全选

tlcr: 0 庚寅年七月二十日 11:46:10 ~
● dog ~/应用/配置/rr-RSS.perl
骨头的博客,http://luy.li/feed/,2
xiooli的博客,http://joolix.com/feed/,2
tlcr: 0 庚寅年七月二十日 11:46:49 ~
● 

[leeaman]

ee来点评

[xiooli]

有天书， 前排占座围观

[tusooa]

ls的，不要讽刺吾，行不行
ps:其实楼上俩的抢沙发能力都不大好。只不过吾不怎么喜欢自己占自己的sofa

[leeaman]

没...这不是看不懂纯水啊,

[eexpress]

额。反正不如直接在opera里面用。
多余的事情，我不搞。

脚本，支持多写多练习，可以放到桌面嘛。

[tusooa]

本来就是放到conky里面显示的阿。