Perl Archive

たまに Perl の話
ハッシュのリファレンスの中身がさらにリファレンスだったりしてコピーしたくてもめんどいよ、って時はどうするべ？　と思ったら Clone とかあった。どっかでなんかの依存関係でみたなぁ、程度にしか知らんかったが、テストとかする時に便利かな

use Clone qw(clone);

my $copy = clone($org_hash);

以上

たまには Perl ネタでも書いてみる

use strict;
use warnings;
use utf8;

use WWW::Mechanize;
{
    my $m = WWW::Mechanize->new();
    $m->agent_alias('Mac Mozilla');

#    warn "start";
    $m->get( 'http://aws-portal.amazon.com/gp/aws/developer/account/index.html?ie=UTF8&action=activity-summary' );

#    warn "login page";
    $m->field('email' => 'email-address');
    $m->field('create' => '0');
    $m->field('password' => 'password');

#    warn "submit";
    $m->click_button( input => $m->current_form()->find_input(undef, 'image') );
    my $report = $m->content();
}

exit;

Amazon の従量課金が気になるあなたは、こんな感じで自動で持ってくるといいよ

まぁ、あれだ
動いているもの、採用されているものを無闇矢鱈と作り直すのは、運用面ではどうかと思うし、自分勝手に色んなライブラリどんどん採用するのもどうかと思うが、これくらいはよかろう

何も考えず超ラクチンでグラフ化
ちょっと何かをしたくなった時どうなのかは知らないが、Perl なのでなんとかなりそうな気はする

。。。ていうようなことは、Google Analytics などにお任せすればよいんだけれども、そうも言ってられない場合もあって、そういう時はこのあたりから最新の情報もってきて、調べたい IP address がどの範囲か計算して。。。。っていうか、Perl なら IP::Country 使え、と

use IP::Country::Fast;

my $r = IP::Country::Fast->new;
print $r->inet_atocc('208.67.222.222'); # US
print $r->inet_atocc('haro.jp'); # JP

今さらだけどね

ちなみに、Leopard だと /Library/Perl/5.8.8/IP/Country/Fast/(cc|ip).gif あたりにあるのが元データなり

ニコニコ動画が外部プレイヤーに対応したので、nicovideo プラグインをそれに合わせて変更

ダウンロードはこちらから
MT::Plugin::HikiDoc の説明はこちら

追記
最初に外部プレイヤー出た時、どこでも使えるようになったら公開する的なことを言うてた FSWiki 用のプラグインはお蔵入り。多分誰かが作ってる

「使ってみた」宣言するほど触ってないけどね
まずは、クリーンインストール状態で

• システム的なこと
  • SQLite はサポート対象外ってことだったが、SQLite でも動くこたぁ動く
  • MT::Plugin::HikiDoc は、動いているようだ
    • むりやり感満載の JavaScript 部分もそのまま動くとは思ってもみなかった
    • 他のテーマとかプラグインとかは試していない
  • デバッグモード ON にすると、あちこちでいろいろ出て便利。mt-config.cgi に「DebugMode 1」と書くだけ。「1」だよ！　true とか on とかじゃないよ！
• 管理画面
  • なんか、全体的な概念が変わった
    • 今までは「ブログ書くためのツール」。なので、インストール直後に決めるのは「ブログの名前」
    • MT5 からは「サイト全体を管理するツール」。なので、インストール直後に決めるのは「サイトの名前」。で、その中で管理する「ブログ」を作っていく感じ

今日はここまで。明日は管理画面一通りさわってみるかね。4.x からのアップデートや、MTOS 4.3 でおかしかった検索機能とかは、その後ということで

方法1: expect いれる

sudo port install expect

• MacPorts 使って expect をいれたらついてくる
• Porticus 使うと楽かもしれない

方法2: perl の String::MkPasswd いれる

sudo cpan String::MkPasswd

• /usr/bin/mkpasswd.pl がインストールされて、mkpasswd と同じように使える

昨日 4.3 にしたばっかりだけど、どうやら検索が死んでたっぽいので、元に戻した。検索結果が面で、ページの上の「Home」「一道に。。。」。。。と並んでいるメニューの <MTPages> あたりでエラーになってた

まぁ、急ぐ道でもなし。いったん元に戻して様子見

Movable Type では、ブログ記事の作成時に「なし」「改行を変換」「リッチテキスト」「Markdown」等のテキストフォーマットを選択できますが、そこに「HikiDoc」形式を追加するプラグインを作ったので、公開します

2009/07/18

公開

2009/10/31

nicovideo プラグインに外部プレイヤー利用オプションを追加

2010/05/31

syntaxhighlighter プラグイン追加

Continue reading

二年以上手をつけてなかったという、なかなかの放置っぷりだったけど、やっと bug fix

そのうち CPAN からダウンロードできるようになると思います

今回は、プラグインの bug fix と MT::Plugin::HikiDoc のためにプラグインに機能追加。。。だったんだけど、追加機能のことドキュメントに書くの忘れた orz