RSSプラグインの改造
RSSプラグインの改造 # 「ひとことどうぞ 」で、下記の質問を頂いた お世話になってます．ちとお聞きしますが，RSS フィードで “日記2007-3-12” とかでなく，" [Perl] 何か作らないと" と表示させるには，どのような細工をしているでしょうか？ ...
Perl
[ Perl ]
HTML::TreeBuilder::Select を使ってみる
HTML::TreeBuilder::Select を使ってみる # use strict; use warnings; use LWP::Simple; use HTML::TreeBuilder::Select; use Encode; use Encode::JP; use Encode::Guess qw(euc-jp shiftjis 7bit-jis); my $text = LWP::Simple::get(shift); my $enc = Encode::Guess::guess_encoding($text); if ( ref $enc ) { $text = $enc->decode($text); } else { $text = Encode::decode('euc-jp', $text); } my $tree = HTML::TreeBuilder::Select->new; $tree->parse_content($text); my @sections = $tree->select('div.section'); for my $sect (@sections) { print Encode::encode('euc-jp', $sect->as_text),"\n\n"; } $tree->delete; こんな感じ ...
CPAN Author になってみた
CPAN Author になってみた # デビューしてみました これを機に、ヤルキガンガンデルトイイナ、とヒトゴトのように思いましたよ
いきなり FAIL
いきなり FAIL # あーぁ なんだか Module::Build も inc::Module::Install も操れてない。
Text-HikiDoc-1.018
Text-HikiDoc-1.018 # 「なんだか Module::Build も inc::Module::Install も操れてない 」とか言うててもしゃぁないので、 Build.PL やめて Makefile.PL に ついでに POD の間違い修正 をやって 1.018 リリース
何か作らないと・その 2
何か作らないと・その 2 # AquesTalk がおもしろいので、それを利用して作ってみたいもの 指定した URL を自動で読みあげる 指定した URL を HTML::TreeBuilder::Select でテキスト化し Text::MeCab で漢字→カタカナ→ひらがな AquesTalk で読みあげる そのままだと棒読みになるので、Text::MeCab での解析結果を蓄積して、頻出語は予めアクセント表記した代替テキストを準備 とかいうものを作りたいと思ったので、書き留めておく。役に立つかどうかは置いといて、興味があるので。
オライリー学校
オライリー学校 # http://www.oreillyschool.com/ ちなみに、Learn Perl for CGI Programming だと $398 らしい 今日はいつもより目に止まったサイトが多かったので、列挙してみた
サイトの全ページのスクリーンショットを自動で撮影
サイトの全ページのスクリーンショットを自動で撮影 # 仕事で横着したかったので作ってみたが、これ以上改良する気もないので、忘れないうちに貼付けておく。とりあえず Windows 版。Mac 版は、自宅で使う気になった時に作る ...
WebService::PhotoZou に photo_info を追加
WebService::PhotoZou に photo_info を追加 # 「フォト蔵API 」を使うために WebService::PhotoZou を覗いてみたんだが、唯一使いたいメソッド「photo_info 」に対応していないので、パッチ --- PhotoZou.pm.org 2006-09-30 01:59:58.000000000 +0900 +++ PhotoZou.pm 2007-07-02 11:21:54.000000000 +0900 @@ -122,6 +122,13 @@ $res->{info}->{user_group} || []; } +sub photo_info { + my ($self, %param) = @_; + my $content = $self->_request('photo_info', %param); + my $res = $self->_to_result($content) or return; + $res->{info}->{photo}; +} + sub errormsg { my $self = shift; my $msg; いちおう作者さんにお知らせしておこうと思ったら、フォト蔵関連エントリ 1 個 。ご本人は photo_info いらないのかも ...
WebService::PhotoZou::Exif をでっちあげる
WebService::PhotoZou::Exif をでっちあげる # で、さっそくもろもろ情報取得しようとしてみたが、あんまし欲しい情報がはいってない 「Exif情報が表示されるようになりました 」というのは、表示されてるだけで、API からは取得できないのね ...