ぽっぺん日記@karashi.org
2010-01-01(Fri) 元日 [長年日記]
_ [github][Flickr][Perl]flic.krのショートURLを作るPerlモジュール、WWW::Shorten::Flickrを書いた
今年の初Perl。
flic.krからFlickr形式のユーザIDを取得する方法、またはユーザIDなしのFlickr形式アドレスが分かりませんでしたので、useridを指定するというダサい仕様になっています。さらに、他のユーザのflic.kr形式のアドレスがあったとしても、問答無用に、指定ユーザのFlickr形式アドレスに変換してしまうという超絶仕様でもあります。
ここらへんの解決方法がお分かりなる方がいらっしゃいましたら、教えていただければ幸いです。これさえなんとかなれば、WWW::Shorten::Flickrなんてものが書けると思うのですが。
なんてことを書いたのだが、yappoさんのWWW::Shorten::Googleをソースを参考にして、自分でFlic.kr版を書いてみた。
APIを使うために、ユーザがわざわざAPI keyを取得しなければいけないというのが好きではないので、makealongerlinkで、とてもダサい処理をしている。
時間がかかったのが、モジュール本体よりもCPAN形式にすることと、テスト。 下記のサイトを参考にさせていただきました。
今年はCPAN Author目指してみるのも面白いかなー。
追記
pmsetupは古くて、今はModule::Setupを使うのがモダンみたいです。
poppen
http://topsy.com/tb/d.karashi.org/20100101.html#p02<br>http://d.karashi.org/20100101.html#p02
こんにちは、WWW::Shorten::Flickrを使わせていただいてます。ありがとうございます。<br>一点気が付いたので報告です。makeashorterlinkのURLの正規表現で/photos/の後ろが \w+ になっていますが、ここにはハイフンも使えるのと、自分でURLを決めていない場合は@が入るので [\w@-]+ にする必要があるようです。<br><br>ピリオド等の他の記号が使えるかどうかはわかりませんでした（URLは再設定できないから、アカウントを新しく作らないと確認できなくて…）。
ご利用およびご連絡ありがとうございます。修正をしたバージョン 0.03をGitHubとCPANにアップしておきました。<br><br>ググってみたのですが、URLにどの文字が使えるかの条件を見つけることができませんでした。どこかにあるばいいのですが。