perl

Email::Sender を使う上での罠

Email::Send で使われている Return::Value の最新版が読み込むだけで死ぬようになっていて、Moose から Moo に変わったしいよいよ Email::Sender に移行しなきゃと思い作業したのだけどその際にちょっとはまったのでメモ。 bcc が送信できない 理由と対応策…

Log::Minimal::COLOR の色を変更する

debugf が白地に赤でちょっと見辛かったので。 $Log::Minimal::DEFAULT_COLOR->{debug} = { text => 'blue', background => 'black', }; 色名は Term::ANSIColor で使えるやつ。 The recognized normal foreground color attributes (colors 0 to 7) are: bl…

Furl::S3 を使ってオブジェクトのコピー

Amazon S3 をごにょるモジュールといえば Net::Amazon::S3 とか Amazon::S3 とかがあるのだけれど、LWP::UserAgent 使ってたり Net:: の方は Moose だったりするので、最近は Furl::S3 を使ってる。Furl::S3 には put とか get の基本的なメソッドとバケット…

Test::WWW::Mechanize のテストがこける

入れようとしたのは Test::WWW::Mechanize 1.30。Test::LongString が 0.15 だと t/content_lacks.t がこける。0.14 にするとテストが通ってインストールできる。perl のバージョンは 5.12.2 と 5.12.3 で再現した。 $ cpanm http://search.cpan.org/CPAN/au…

OAuth::Lite::Consumer で access_token 取得時に token とか以外のパラメータを取得

access_token を取ってくるだけなら get_access_token を使えば良い。 my $access_token = $consumer->get_access_token( token => $request_token, verifier => $verifier, ); $access_token は OAuth::Lite::Token オブジェクトになっていて oauth_token, …

HTTP::Engine::Middleware::Static で DirectoryIndex

/ で終わるような URL にアクセスした時に index.html を表示して欲しい。そんな場合は以下のようするといいみたいです。ポイントは二つで、まず directory_index に表示したいファイル名を指定し、regexp を /$ にマッチするようにする。下の例だとグルーピ…

16x16 の履歴を GIFアニメ にする Perl スクリプト

16x16 の履歴画像を GIFアニメにすると面白そうだなぁと思ったので書いてみました。試しにセコンさんのエントリにあるこの画像を変換するとこんな GIFアニメになります。やってることは簡単で、左上から順に 16x16 の画像を切り出して最後に GIFアニメとして…

はてなブックマークのコメントにスターがついたら速攻でお知らせ

スターがつくと嬉しいですし速攻で知りたいですよね。そんな時は スター受け取り通知に対応した はてなブックマーク Web Hook と im.kayac.com を使って IM に通知しましょう。と、ここまで書いてから連打されたりするとひどいことになったり、そもそもはて…

Yet Another Perl Module for Tumblr

追記 2007/12/11 Tumblr v3 になってからメンテナンスしていないので現在このコードは動きません。Tumblrのbotでも作ってみようかと思ったんだけど、APIからはReblogとかできないのでmechを使って書いてみた。モジュール書いたの初めて。名前がTumblr::Botと…

Fast Look up Alc CLI using Web::Scraper

inspired by 英辞郎 - コマンドラインから和英/英和単語翻訳 Fast Look up Alc for Greasemonkey #!/usr/bin/perl use strict; use warnings; use Web::Scraper; use URI; use Term::Encoding; use Encode qw//; my $word = shift or die "Usage: alc.pl WOR…

Twitter のフォロワーのブログをまとめて LDR で購読する(結構手作業) - Higé au lait をPerlで

上記エントリーをみて、そういえばPerlで書いた気がする、と書き捨てディレクトリを見てみたら残ってたので貼り付けてみる。 #!/usr/bin/perl use strict; use warnings; use Net::Twitter; use LWP::Simple; use YAML; use File::Spec; use File::HomeDir; …

スーパーpre記法でこんにちはこんにちは!!

Re: スーパー pre 記法で実行可能な JavaScript を - IT戦記というエントリーのスーパーpre executable記法*1をText::Hatena 0.20を使って実装してみました。ついでにスーパーpre記法で色が付くようにしてみたけど*2失敗。 以下のエントリーを参考にさせても…