Mac::Growlで2chの更新スレッドを通知する(続き) (Re::Monologue)

前回の続き。少しいじって更新分のレスもGrowlに表示されるようにしました。
「システム環境設定」-「Growl」-「表示選択」の表示時間を長くし、「ラインを2-5行に制限する」のチェックを外しておくと読みやすいです。

ソースはこんな感じ。適当。

#!/usr/local/bin/perl
use strict;
use URI;
use Web::Scraper;
use Data::Dumper;
use Encode;
use Mac::Growl ':all';
use LWP::Simple;
use vars qw($url $chkwords $interval $threads $last);

$url = 'http://live27.2ch.net/livemarket2/subback.html';
$chkwords = 'ドル';

$interval = 60;

if( $ARGV[0] eq 'init' ){
    RegisterNotifications(
        "2chChecker", # 登録するアプリケーション名
        ['alert', 'note', 'info'], # 登録したアプリケーションで使用する通知の種類。
        ['note'] # デフォルトで使用する通知の種類
    );
}

while(1){
    $threads = get_threads();

for(keys %$threads){
        my $update;
        if( $last and $threads->{$_}->{res} > $last->{$_}->{res} ){
            $update = $threads->{$_}->{res} - $last->{$_}->{res};
            my $title = $threads->{$_}->{title};
            my $entry = get_dats($_,  $update);
            my $msg = "新しいレスがありました。($update)";

# 以下10.4では不要と思われる。
            Encode::from_to($msg, 'MacRoman', 'utf8'); 
            Encode::from_to($title, 'MacRoman', 'utf8');
            Encode::from_to($entry, 'MacRoman', 'utf8');

PostNotification(
                "2chChecker",
                'note',
                $msg,
                "$title\n" . "-" x 25 . "\n$entry",
            );
        };
    }

$last = $threads;
    sleep($interval);
}

sub get_threads{
    my $hash;
    my $details = scraper {
        process 'a','data' => 'TEXT';
        process 'a','href' => '@href';
        result 'data', 'href';
    };
    my $list = scraper {
        process 'small#trad a','lists[]' => $details;
        result 'lists';
    };

my $res = $list->scrape( URI->new( $url ) );
    for( @$res ){
        my $data = encode_utf8( $_->{data} );
        $data =~ m/^(\d+)\:\s{1}(.*)\s{1}$(\d+)$$/;
        my $url = $_->{href};
        my $title = $2;
        my $res = $3;
        next if $chkwords and $2 !~ /$chkwords/i;

$url  =~ s/\/l50$//;
        $hash->{$url} = {
            'title' => $title,
            'res'   => $res,
        };
    }

return $hash;
}

sub get_dats{
    my ($url, $update) = @_;

$url =~ m#^http://([^|]+)/([^|]+)/(\d+)$#;
    my $dat = get("http://$1/$2/dat/$3.dat");

Encode::from_to($dat, 'sjis', 'utf8');

my @dat = split /\n/, $dat;
    my $i = scalar @dat;
    my $minus = "-$update";
    my @recent = splice @dat, $minus, $update;
    $i -=  $update;
    $i++;

my $disp;
    for( @recent ){
        my @entry = split /<>/;
        $entry[3] =~ s/<br>/\n/g;
        $entry[3] =~ s/<.*?>//g;
        $entry[3] =~ s/&quot;/"/g;
        $entry[3] =~ s/&nbsp;/ /g;
        $entry[3] =~ s/&gt;/>/g;
        $entry[3] =~ s/&lt;/</g;
        $entry[0] =~ s/<.*?>//g;
        $disp .= "$i : $entry[2]\n$entry[0]\n$entry[3]\n\n";
        $i++;
    }
    return $disp;
}

こんな感じで表示されます。上記例は、市況2板の「ドル」というキーワードが入っているスレを監視しています。

これで通知はできますが、起動しやすいようについでにAutomatorでアプリ化しておきました。
手順は、アプリケーション→Automator.app→カスタム→ユーティリティ→シェルスクリプトを実行、をダブルクリック。右ウィンドウにスクリプトのパスを記述して保存、と。これでDockに格納することができるようになります。アプリケーションを閉じてもPerlのプロセスが切れないのが問題だけど・・・・。

以上の拡張で、スレッドを見に行く必要がなくなりました。頻繁に更新されるスレを確認するには結構便利なものです。満足満足。

コメント (4)

lin:

すごいですね。
いままでGrowlはAdiumの通知にしか使ってなかったので、いろいろ使えるものなんだなあと初めて知りました。
こういったスクリプトを利用して、2chに限らず普通のサイトの更新をチェックすることとか、できないでしょうか。
そういうソフトないかなあと思ってうろうろしてたんですが、中々これと思うものが見つからず。
もしよろしければご助言いただけたら、と思います。

投稿者: lin | 2009年03月31日 15:52

日時: 2009年03月31日 15:52

匿名:

コマンドラインユーティリティのgrowlnotifyを別途インストールして使えば、わざわざ古いバージョンを入れなくてよさげ。cron使って定期実行すればアプリケーション化も必要なさそう。

私はdatとrssの自動更新チェックしかしてないけど、一般サイトにも応用すれば夢が広がリング。LWPとdiff使えば、もっと幸せになれます。

投稿者: 匿名 | 2010年12月02日 15:25

日時: 2010年12月02日 15:25

#! /usr/bin/perl

use strict;
use warnings;
use LWP::Simple;

my %site = ( 'サイト名' => 'URL' );

while ( my ( $title, $url ) = each %site ) {
my ($file) = ( $url =~ m{/([^/]*)$} );
$file = "$ENV{HOME}/Applications/$file";
if ( mirror( $url, $file ) != RC_NOT_MODIFIED ) { notify($title); }
}

sub notify {
my ($message) = @_;
open my $gn, '|-', '/usr/local/bin/growlnotify';
print {$gn} $message;
close $gn;
}

投稿者: 匿名 | 2010年12月04日 20:29

日時: 2010年12月04日 20:29

と思いましたが、WebPatrolというものがあって、Growlに対応しているそうです。

投稿者: 匿名 | 2010年12月11日 10:27

日時: 2010年12月11日 10:27

コメントを投稿

名前:

メールアドレス:

URL:

この情報を登録しますか?

コメント: (スタイル用のHTMLタグが使えます)

Re::Monologue

Mac::Growlで2chの更新スレッドを通知する(続き)

タグ:

コメント (4)

コメントを投稿

検索

About