perl

DBD::Mysqlのインストール時エラーになっちゃう

cpanモジュールのDBD::Mysqlをインストールしようとしたら、mysql_configがないよと怒られた。このサイト記事を参考にさせてもらって、「libmysqlclient15-dev」をインストールして、ことなきを得ましたが。。。 参考:http://tech.maid-san.org/archives/84

Catalystでダンプ情報を見る方法

Catalystをよく使っている方は、知っているだろうけど、クエリに「dump_info=1」を指定するとダンプ情報(stashの情報とか)が見れるようになるって。。。知らなかったわ!!

CPAN::Miniが動かない

半年ぐらい前にThinkpadのHDDを換装してから、VMWareの上にDebian環境を構築していなかったので、してみました。ノートPCなので外で、作業をやっていてインストールしていないCPANモジュールがほしいときもあるかもしれないので、CPAN::Miniをインストールし…

mixiエコーのスクリプトをオブジェクトの書き方にしてみた

オブジェクト指向の勉強のひとつで、以前自分が書いたmixiエコーに投稿できるスクリプトがありますが、それをオブジェクトの形で書き換えてみました。 パッケージ名は、適当に「WWW::Mixi::Echo」にしてみました。 package WWW::Mixi::Echo; use strict; use…

Makefile.PLを作るモジュール

ExtUtils::MakeMaker Module::Install

LWP::UserAgentでmixiにログイン

LWP::UserAgentを使って、mixiにログインしていろいろやるスクリプトを書きたいと思い書いている途中。まぁ、正直Mixi用のモジュールを使ったほうが、楽なんだろうけど、勉強も含めてLWP::UserAgentで。ちょっとログインするときに、おせっかいしすぎてはま…

mixiのエコーにポストするスクリプト書いた

mixiのエコーにコマンドラインから投稿したかったので、perlでスクリプト書きました。 #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; use Encode; my $x = 0; my $y = 0; my $mail = 'hoge@hoge.co.jp'; my $passw…

XML::RSS::LibXML インストールメモ

LibXML2 LibXML2-dev途中

生年月日から年齢を算出

福山雅治さんの年齢が知りたかったので、生年月日から年齢を算出するスクリプトを書いてみた。 まぁ、入力値のチェックとかやってないので。。。適当に。。。 #!/usr/bin/env perl use strict; use warnings; use Date::Calc qw/Delta_YMD Today/; my $birth…

RPC::XMLをインストールしようと思い...

CPANモジュールのRPC::XMLをインストールしようとしたけど、うまくいかず、Debianのパッケージでうまくインストールできた。 % install librpc-xml-perlん〜、なんでcpanシェルからだと、うまくいかないんだろうか?原因不明だわ。 [>パッケージ: librpc-xml…

すぐわかる オブジェクト指向Perlを買っちゃった

最近、読書がとまっているのにまた本を買ってしまった。すぐわかる オブジェクト指向 Perlposted with amazlet at 08.10.22深沢 千尋 技術評論社 売り上げランキング: 44616おすすめ度の平均: WEBの海での救命道具のような本 マスターコースを読む前にAmazon…

LWP::UserAgentでHttpsのサイトにアクセスするときは

久々にニコニコ動画でもダウンロードするかと思い、昔Yusukebeさんが作成したスクリプト(弾さんが添削したやつ)を使ってダウンロードをしたら、うまくダウンロードできなかった。あれ?と思い、ログイン先のurlとhttpのヘッダー部を見たら、両方とも変わって…

モジュール書くとき

モジュールを書くときは、このサイトを参考にしようかな。⇒Part1 正しいPerl/CGIの書き方 Module::Starter::PBPモジュールで雛形を作る。

twitterとwassrにコマンドラインから同時投稿

どっかにありそうなネタだけどこんな暑いなか自分で書いてみた。 use strict; use warnings; use Encode; use YAML::Syck; use Net::Twitter; use lib ".../WWW-Wassr/trunk/lib"; use WWW::Wassr; my $username = "username"; my $pwd = "password"; my $te…

Catalystでセッション管理するには何がいいのか?

Catalystにてセッション管理する場合(ログインして、その後hogehoge)は、何のモジュールがいいのだろうか。あとで調べてみよう。

ひさびさにCatalyst触ってみたら、Args(0)というのを発見した

久々にCatalystをインストールして、ロジックを書くときのアトリビュートでArgs(0)というのが増えていることに気づきました。このArgs()で自分が今分かっている事を下記にまとめます。 Args()を設定したメソッド名プラス設定した数値の引数の数のURLにアクセ…

UNIVERSAL::requireについてなんとなく...

UNIVERSAL::requireって、つまり変数にモジュールの名前の文字列をつっこんどいて、そのモジュールをrequireしたいときに使うってことかな。参考にさせていただいたサイト しかし動的なrequireの場合に、evalを使わなくてはならない意味が今ひとつわからない…

UNIVERSAL::requireってなんだろう???

今日は体調悪いから、もう寝るとして。明日仕事から帰ってきたら、UNIVERSAL::requireモジュールについて、さらに調べてみよう。おやすみ

xmlパースしてからだと、うまくマッチできない

よくあるサービスのAPIを利用して、xmlをパースして文字列を取得したの後、正規表現を使ってマッチを行ったが、うまくマッチしてくれなかったので、ちょっとググってました。調べるとxmlパーサーなどで解析した場合、utf8フラグが立つようで、これが原因でマ…

cpan make test Can't test without successful makeとか

Debianをインストールして、emacsを入れて、cpanモジュールをいろいろインストールしようと思い、cpanシェルの初期設定が終わり、 install Bundle::CPANとしたら、なぜか「cpan make test Can't test without successful make」とかエラーメッセージが出てき…

FlickrのAPIについて自分が少々はまったことのまとめ

FlickrのAPIを弄っていて、少々はまったことがあったのでまとめます。 今回CPANモジュールのWebService::Simpleを使って、APIから自分が望むデータを取得しました。取得したいデータは、任意のユーザの最新のフォトデータです。使ったmethodは、flickr.photo…

Flickrのapiを使って、作ってみた

Flickrとか眺めるのが結構好きで、よく見る人のFlickrの最新の写真だけを一覧にしたいなと思い、作ってみました。 ちなみにFlickrのapiまわりは、WebService::Simpleを使ってマフ。 [>私がよく見るFlickrの一覧 [>Flickrチェッカー

Perl界隈の方々

Perl界隈の方々は、とても暖かい人が多いと勝手に思ってます。最近だとid:fbisさんとかyusukebeさんとかid:otsuneさんとかからブクマ経由などで助言をいただける。こんな私に嬉しいことです。ってなわけで、WebService::Simpleモジュールを調査してみようか…

Flickr::AIP見てた

今日はFlickr::APIのソースとか見てたり、調べたりしました。Flickr::APIのメソッドのexecute_requestを使って、たとえばテキスト検索して戻ってきた結果を取得する場合、$response->{tree}とやって、XML::Parser::Lite::Tree::XPathで解析してやらないとダ…

Params::Validateのperldocとか読んでみた

いまだにCPANモジュールの活用方法がよくわかっていない自分です。やはり、英語のperldocとかモジュールのソースとか読んで判断していくしかなさそうかな。。。英語勉強しなきゃだなぁ。 で今日は仕事から帰ってきて、家でParams::Validateのperldocを読んで…

useとrequire自分用メモ

たまにわからなくなるのでメモ。 useはコンパイル時にrequireする。 requireは実行時にrequireする。

作ってみました

twitterとHatenaKeywordを結んでみました。 不完全な部分はかなりありますが、お許しください。 [>twitter::HatenaKeywordメーカー

JSONの文字コードとかで泣いた

はまった。JSONの文字コード。Perlのutf8フラグとかその辺は、まだ全然理解していないせいかもしれない。最終的には、JSON::Syck::LoadからJSON::jsonToObjにしたら解決した。5時間ぐらい泣いてた。

forwardで引数のメモ

forwardを使った場合に引数を渡す方法。 #呼び側 $c->forward('test',[qw/test/]) #呼ばれ側 sub test : Local { my ($self, $c) = @_; my $args = $c->req->args->[0]; } なんか他のサイト見てると、$c->req->args[0]とか書いてあるけど、これで書くと文法…

オブジェクト指向Perlマスターコース―オブジェクト指向の概念とPerlによる実装方法ってこんなに高いんだ〜

Perlのオブジェクト指向をもっと勉強したいなと思うと、「オブジェクト指向Perlマスターコース―オブジェクト指向の概念とPerlによる実装方法 」という本がいいみたい。ってなわけで、アマゾンで探すと。。。!!六千円以上する!! 凡人には、高い。 しかし…