簡単な書き込みのインタフェースが、リアルタイムだったり、友達の輪を広げてくれそうで、 ちょいと注目中。かといって、Twitterを使わない人にもそこでのネタが広まることを期待して、 サマリ記事などの実験をしている。

しかし問題なのは、Twitterの過負荷状態。ともかく妙なタイミングで重い時があり、 スタイルシートが読み損ねたり、過負荷でギブアップのクジラページがでたり。 ということで、少しでもWebとしての負荷を下げるために、Firefox アドオンの "TwitterFox"を入れてみた。んで….そんだけ…(^_^;

MacにはTwitter Board

同様にということで、Macには Twitter Board なるウィジェットを入れてみた。 どちらも、 TwitterFoxも含め「フォントがちいせぇなぁ…」と思うのはジサマの視力のせいである。

• 07/28 @tab2_takayoshi tab2さんも、猫好きでしたっけ？
• 07/28 電車移動の相談中、ママ曰く「京都で電車間隔1時間くらい？」、パパ「どこの京都やねん…」
• 07/28 週末のお出かけの計画中。
• 07/28 京都パークアンドライド / →http://www.city.kyoto.jp/tokei/trafficpolicy/kankochi/
• 07/28 ポケモンスタンプラリー / →http://bit.ly/Zxlo5
• 07/28 家電Watchの記事なのに… / →http://bit.ly/10wYM3

この記事は、 の tohrusaitohに掲載したものを、まとめたものです。

追記: Twitterで返信した場合、返信した相手へのリンクを埋め込む様に、 まとめ記事処理を追加した。

Twitterにまとめ記事を上げる処理は、以下のとおり。

#!/usr/bin/perl
require "mimew.pl" ;
use Jcode ;
use XML::TreePP ;
use XML::FeedPP ;
use POSIX qw( strftime ) ;
use HTML::Entities ;
# Twitterの設定
my $twitter_rss = "http://twitter.com/statuses/user_timeline/<フィードの番号>.rss" ;
my $twitter_url = "http://twitter.com/" ;
# サマリ記事の最終日付保存も兼ねた一時保存
my $twitter_summary = "/var/run/.twitter.html" ;
# 記事をMovableTypeに書き込むためのメールの設定
my $prog_sendmail   = "/usr/sbin/qmail-inject" ;
my $mail2entry      = 'MTに投稿するためのメールアドレス' ;
my $mail2entry_from = 'MT投稿のFROMアドレス' ;
my $tw_last = 0 ;
if ( -r "$twitter_summary" ) {
@tw_stat = stat( "$twitter_summary" ) ;
$tw_last = $tw_stat[ 9 ] ;
}
# twitterフィードを読み込む
my $twitter = XML::FeedPP->new( $twitter_rss ) ;
my $count = 0 ;
my $subject = "" ;
my $text  = "
\n" ;
my $max_time = 0 ;
my $auther = "" ;
# 各記事をリストアップ
foreach $item ( $twitter->get_item() ) {
my $ptime  = XML::FeedPP::Util::get_epoch(
$item->pubDate() ) ;
if ( $ptime > $tw_last ) {
$max_time = $ptime if ( $ptime > $max_time ) ;
my $pstime = strftime( "%m/%d" ,
localtime( $ptime ) ) ;
my $title  = Jcode->new(
HTML::Entities::decode( $item->title() ) )->euc ;
my $link   = $item->link() ;
my $url    = "" ;
$title =~ s//>/g ;
$title =~ s/&/&/g ;
if ( $title =~ s/^(\w+):\s+// ) {
$auther = $1 ;
}
if ( $title =~ /^(.*)\s+((http|https):\/\/\S+)$/ ) {
($title,$url) = ($1,$2) ;
$title = "[メモ]" if ( $title eq "" ) ;
$url = " / → <a href=\"$url\">$url</a>" ;
}
$text .= "<li&gt;$pstime <a href=\"$url\">$title</a&"
."\gt;$url</li>\n" ;
$count++ ;
}
}
$text .= "
\n" ;
$subject = "$auther のつぶやき"
."(".strftime( "%m/%d" , localtime( $max_time ) ).")" ;
# 一応ファイルに保存
open( FH , ">$twitter_summary" ) or die( "Can't open file $twitter_summary\n" ) ;
if ( $count > 0 ) {
print FH "

$subject

\n" ; print FH $text ; } close( FH ) ; # メールで送る if ( $count > 0 ) { open( MAIL , "| $prog_sendmail" ) or die( "Can't open program $prog_sendmail\n" ) ; $subject = mimeencode( Jcode->new( $subject )->jis ) ; $text = Jcode->new( $text )->jis ; print MAIL "From: $mail2entry_from\n" ."To: $mail2entry\n" ."Subject: $subject\n" ."Content-Type: text/html; charset=ISO-2022-JP\n" ."Content-Transfer-Encoding: 7bit\n\n" ."$text" ; close( MAIL ) ; }

テスト問題づくりと採点の現実逃避で、Macの保護用の袋を作ってみた。 目的は、アタッシュケースにMacを入れると、ケースの内金具でアルミボディに傷を付けてしまったので、その予防。 材料は、古いズボンの太ももの部分。

• 07/28 BS夜話で30周年記念もありガンダムが毎度ながら熱く語られている
• 07/27 サマリ記事の中では、ショートURLはリダイレクトを辿っておきたいなぁ…
• 07/27 twitter のショートURL変換って、自動でやってくれるのね…
• 07/27 ウォシュレットで細菌繁殖 → http://bit.ly/1vSXlM
• 07/27 昔からだが、ゲームカセットの電極に息吹きかけても変わらんだろ…

tohrusaitoh

• 07/26 飢えてるなぁ… http://www.nicovideo.jp/watch/sm7666991
• 07/26 ちょいと目が冴えてAM5時より採点中。でも冴えない採点結果の度に現実逃避中…

Twitterに、メモ的にリンクをつぶやいた記事を、それなりに張り込む様に処理を追加。 このおかげで、Twitterをメモとして活用できる。

• 07/26 昨日、ポケモン超克の時空を映画館に見に行く。みつあゆは、ちょっぴり大きめに「すすり泣いていた」

• 07/25 つぶやきのサマリをmtに上げる実験

追記： Twitterで沢山つぶやいた時のすべてのつぶやきが、 サマリに上がるとウザいので、記事をまとめてMovableTypeに上げる。

tohrusaitoh の Twitter ページ