NetNewsWireすげー便利。
いわゆるRSSリーダなのだが、ものすごく快適なニュースライフをおくれる。
最近フリーになった元シェアウェアらしい。
強力なスマートフォルダー機能もある。
ここにある日本語リソースを入れると日本語になる。
ただ、残念ながらshift-jisのRSSが文字化けするようだ。
しかしこのソフトのすごいところ、スクリプトからもRSSを取得できる。
なので、shift-jisからutf-8に変換するperlスクリプトを書いてみたぞ。


まず、こんな感じなコードをかく


#!/usr/bin/perl

use strict;

use LWP::UserAgent;

use Encode;

my $lwp;

$lwp->{hdrs}=HTTP::Headers->new();

$lwp->{req}=HTTP::Request->new('GET',$ARGV[0],$lwp->{hdrs});

$lwp->{ua}=LWP::UserAgent->new();

$lwp->{resp}=$lwp->{ua}->request($lwp->{req});

my $content=$lwp->{resp}->content;

$content=~s/encoding="shift-jis"/encoding="utf-8"/i;

Encode::from_to($content,'shift-jis','utf-8');

print $content;

※まだ微調整中

名前をつけて保存して、パーミッションを744に。
NetNewsWireから「File」→「New Special Subscription」→「Script...」で保存したスクリプトを指定。
Argsのところに、shift-jisのRSSフィードを設定。
「Run Script」をおす。

アイコンがターミナルのアレになっちゃうけど、それ以外は完璧。

うーん、すてき。