perlでRSSを読み込む方法

スポンサーリンク
perlでRSSから情報をトライ出す方法には、色々なやり方がありますが、今回は、perlモジュールのXML::RSSモジュールを利用しました。

FreeBSDのportsからperlモジュール XML::RSS をインストールするには、
cd /usr/ports/textproc/p5-XML-RSS
sudo make install clean
とするだけです。

RSSから情報を読み出すPerlスクリプトは、下記の通りになります。
リンク、タイトル、本文を表示します。

#!/usr/local/bin/perl
use LWP::Simple;
use XML::RSS;

binmode(STDOUT, ":utf8");

my $url = 'http://paranoid.dip.jp/kaworu/cl.rdf';
my $xml = get($url);

my $rss = new XML::RSS;
$rss->parse($xml);
foreach my $item (@{$rss->{'items'}}){
	print
		$item->{'link'},
		" ",
		$item->{'title'},
		" ",
		$item->{'description'},
		"\n",
}

ターミナルの文字コードに合わせて、nkfコマンドなどで文字コードを修正してくだい。

RSS読み込みスクリプトの使い方。

perl rss.pl

#ターミナルがeuc-jp
perl rss.pl | nkf -e
スポンサーリンク
スポンサーリンク
 
いつもシェア、ありがとうございます！
Twitter
Facebook
LINE
Pocket
はてぶ
RSS

もっと情報を探しませんか？

関連記事

最近の記事

人気のページ

スポンサーリンク
 

過去ログ

2020 : 01 02 03 04 05 06 07 08 09 10 11 12
2019 : 01 02 03 04 05 06 07 08 09 10 11 12
2018 : 01 02 03 04 05 06 07 08 09 10 11 12
2017 : 01 02 03 04 05 06 07 08 09 10 11 12
2016 : 01 02 03 04 05 06 07 08 09 10 11 12
2015 : 01 02 03 04 05 06 07 08 09 10 11 12
2014 : 01 02 03 04 05 06 07 08 09 10 11 12
2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12

サイト

Vim入門

C言語入門

C++入門

JavaScript/Node.js入門

Python入門

FreeBSD入門

Ubuntu入門

セキュリティ入門

パソコン自作入門

ブログ

トップ

プライバシーポリシー