2010-04-01から1ヶ月間の記事一覧

@INCにコードリファレンスを入れる

cpanminusのソースコードを見ているとそんなコードがあった。 どういう目的でこういうことになっているのかは全然わかっていない ですが、@INCにコードリファレンスを入れるとそれが実行される ようである。引数は第一引数が自分自身のコードリファレンス、 …

Pod::Usageのpod2usage関数

とあるモジュールのソースコードを見ていたらヘルプの 表示でpod2usageという関数があったので調べてみた。 ヘルプオプションなんかでヘルプを表示するのってわざわざ 関数書いてしていたりしていたけど、これだと PODで書いた ことがそのまま出せるので手間…

Imager::QRCodeを使ってみた

PODにあるコードそのまま実行してもエラーになるな〜って思って しばらく悩んでいましたけど、Imagerは errstrというメソッドで エラーメッセージが見れるので、それを見たら問題があっという間に 解決されました。 gifで出力できなかったのは私の環境で対応…

LWP::UserAgentのrequestメソッド

requestメソッドを使うとGETで取得した内容をそのままファイルに 落とすことができるんですね。それだけですが。 #!/usr/bin/env perl use strict; use warnings; use File::Basename; use LWP::UserAgent; use HTTP::Response; use Time::HiRes; my $url = …

リハビリその2

ニコニコ動画で動画のタグを取得するコードを書いてみた。 ニコニコAPIなんてものがあったんですね。 #!/usr/bin/env/perl use strict; use warnings; use LWP::UserAgent; use Getopt::Long; use XML::XPath; binmode STDOUT, ":utf8"; my %opt; GetOptions…

リハビリでコードを書いてみた。

病のため全然やる気になれなかったが久しぶりにコードを 書いた。まいどまいど同じようなコードだが、DMMの週刊ランキングを 取得してみた。 #!/usr/bin/env perl use strict; use warnings; use Web::Scraper; use URI; binmode STDOUT, ":utf8"; my $rank_…