以前のエントリのUnicode::Japanese版です。
ついでに、コミュニティ名でソートするようにしました。
#!/usr/bin/perl -w
use strict;
use lib qw(/path/to/perl/lib);
use Unicode::Japanese;
use WWW::Mixi;
my $mixi = WWW::Mixi->new('your_mixi_account', 'your_mixi_password');
$mixi->login;
my $res = $mixi->get('/list_community.pl?id=your_id');
print "Content-Type: text/javascript\n\n";
for my $item (sort {$a->{subject} cmp $b->{subject}} $mixi->parse_list_community()) {
my $link = $item->{link};
my $subject = Unicode::Japanese->new($item->{subject}, 'euc')->get;
$subject =~ s/'/\\'/g;
print "document.write('<a href=\"$link\" target=\"_blank\">$subject</a><br />')\n";
}
2005/05/22 追記：
小粋空間さんのとこで【TB企画】あなたのサイトのお気に入りカスタマイズという企画が開かれているので、このカスタマイズをTBします。
こんにちは。
この度はTB企画にご参加くださりありがとうございました！
mixiのコミュニティ表示、素晴らしいですね（Perlがバリバリ書ける方は尊敬します）。
別途試してみたいと思います。
ご紹介くださりありがとうございました。
それでは今後ともどうぞよろしくお願い致します。
ぉ、yujiroさん来てる♪
やっぱTB企画にはあたしがエントリするべきだったか…（ﾏﾃ
ってことで、親愛なる相棒ｻﾏへ。
あたしのようにコミュたくさん入っちゃってる人向けの改変スクリプトも、よろしくです♪
あー、なんならあたしのＭＴ直接いぢってもらってもｗ
＞琴
うはは、OKOKｗ
じゃぁ直接いぢる方向で…ｗ
スクロールバー付ければOKだよな？
yujiroさんところのを参考に…(ふふり
すいません。 この場を借りて質問させていただきます。
こちらの「サイドバーにコミュニティ一覧表示」を当ブログに導入したいと思うのですが、お恥ずかしながらMTの設定方法がわからず……。
もしよろしければ、アドバイスをいただけないでしょうか？
＞Seacolorさん
小粋空間さん経由でしょうか。初めまして、PIAです。
設定方法がわからないとのことですが、現在どのような状態ですか？
Perlの「WWW::Mixi」モジュールを使用していますので、まずそのモジュール単体がきちんと動作しているかどうかがまず第一歩かと思います。
それと、「Unicode::Japanese」という割とマイナーなモジュールを文字コード変換用に使用していますので、そちらも併せて確認ください。
こんばんわ、PIAさん。
お返事ありがとうございます。
モジュールはextlibフォルダに入れれば良いと認識しておりましたが、相違ないでしょうか？
それと設置方法についてなのですが、こちらの「サイドバーにコミュニティ一覧表示」はどうもプラグインとは違うように見受けられるのですがどのように設置するのでしょう？
＞Seacolorさん
お返事遅くなりました。
Unicode::Japaneseモジュールは、コピーするだけではダメで、makeが必要だったと思います。
makeが必要、という言葉にピンと来ないようであれば、「以前のエントリ」(リンク切れてたので直しました)のJcode版をどうぞ。
また、このPerlスクリプトはMTプラグインではないです。
適当なテンプレートから、<script>タグで呼び出して利用してください。
無事設置できました！
丁寧な説明、ほんとうにどうもありがとうございました。