http://shokai.org/cgi-bin/okhb/
またXML::FeedPPとXML::TreePPを使わせてもらった。
FirefoxのsageというRSSリーダーから見たところ。ここ最近で、2人以上がブックマークした記事がオンテナ2に出るようにした。
本当はコメントを出したかったんだけど、HASH(0x～～)とかになってしまうのでタグにした。なんかみんな無表情に一言コメントしてるみたいでうける。
これで俺のperlは3作目（2かも？）。配列とハッシュとかがなんとなくわかった。
perlのクラスがなんかpackageとかなっててややこしくてめんどくさかったので、適当にやってしまった。
次からはオブジェクト指向で書く。
ソースをまるごと貼っておきますね。@okmembersをいじれば巡回するID変えれます。改造などご自由に。
一昨昨日、町田のタリーズで点検読書した。
AVRマイコンには日本語の書籍がほとんどないわけですが、普通に入門してくるのならBascomAVRで『マイコン搭載ロボット製作入門』で勉強するか、本がいらない人はWinAVRでC言語で2chのAVR-Wikiやればいいと思う。
で、この本も少なくとも初心者向けではない。データシートの内容をより詳しく解説した感じ。
コードもCで書かれてるけど、gccではなくICCのコンパイラなのでちょっと違う。
まあ俺にとっては、TWI(I2C)やSPIが詳しく書かれてるから持ってて損は無いし買って良かったと思っている。
あとCPUが28ピンのatmega8系統なのが良かった。俺も色々試した結果、サイズと機能からmega8系に落ち着いたから。
あー、『オブジェクト開発の真髄』も点検したけど、本が手元にないからちょっとパス。
クリップボードの中身をHTMLエンコードに変換する「clip2HtmlEncode」を作った。ウィンドウが無い、コピペを支援するツールです。
bluewindとかのランチャに登録するとステキ。
重要な用事に寝過ごして出れなくてむしゃくしゃして30分ぐらいで作った。
実行ファイル(exe)、ソースコード(VisualStudio2003 C#)、アーカイブディレクトリ
blogにソースコードを貼り付ける時、＞や＆のような特殊記号は＆lt;とか書かないと化けてしまうので、それを変換するアプリです。preタグ使うのが正道だけど、MovableTypeの設定で改行を＜br＞にするようにしてると行間がこんな事になってしまうので。
Readme.txt より
————–
■実行手順
１．HTML変換したいテキストを、「Ctrl+C」などでコピーしてから
２．clip2HtmlEncode.exe から起動
３．一瞬黒い画面が出ます
４．「Ctrl+V」でメモ帳などに貼り付けてみると
既に変換されています
■タブ幅
デフォルトでタブ幅4です。個人のこだわりがあると思うので
clip2HtmlEncode-tab2.exe（タブ幅2）
clip2HtmlEncode-tab8.exe（タブ幅8）
を用意しました
■動作環境
Windows2000,XPでの動作を確認しています。
Microsoft .NET Framework1.1が必要です。
起動しない場合は[スタート]→[Windows Update]をしてみてください。
それでも駄目なら、
.NET Framework1.1
http://www.microsoft.com/downloads/details.aspx?FamilyID=262d25e3-f589-4842-8157-034d1e7cf3a3&DisplayLang=ja
をインストールしてみてください。
————–
サンプルとして、ソースコードを貼り付けておく。こんな感じになりますよ↓↓
なんだ、flickrって他人の写真からも”blog this”できるのか。
畑山さんがArduino+Bluetoothしてた。うける。
で、動いてるんですか？
（arduinoってのは、AVRマイコンのATmega8をラピッドプロト用にラッピングした感じのブートローダ&独自プログラミング環境なんですよ）
昨日の夜、酒呑んでる間に先を越されたので俺もやった。
これでがいさんとまっつんさんのblogがオンテナ2に追加された。（RNAはAtom対応してない）
XML::FeedPPをCPANからインストールして
cpan> install Bundle::LWP
cpan> install XML::FeedPP
cpan> install XML::TreePP
こんなコードで動いた。
#!/usr/bin/perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;
use XML::FeedPP;my $source = “http://hogehoge.com/atom.xml”;
my $feed;
$feed = XML::FeedPP::RSS->new(); # RSSで出力指定
$feed->merge($source); # 他のfeedsと混ぜれるprint $cgi->header(-type => “application/xml”);
print $feed->to_string(“UTF-8”); # 実際にRSS書き出し
俺はCPANモジュール使って華麗に、15分ぐらいで実現した。
このXML::FeedPPはmerge()で複数のfeedを合成できるのもいい。
コードより、どっちかというとapache1.3の設定の方でつまづいてた。