適当な思いつきで書くブログ

UbuntuやPerlやJavaScriptやVimやZshやShellScriptやMySQLと戯れている中で適当な思いつきでやってみたことを書いています。

perl

Log::Handlerの標準出力を色付きにしたら10倍捗った

最近、ロギングはLog::Handlerを利用している。このモジュールは、例えばplackupしているターミナルの標準出力にもログを吐けるので開発時に重宝している。その標準出力(&標準エラー出力)に色を付けて、さらにそれをログレベルによって色分けするともっと捗…

Mail::IMAPClientで新規メールがあったらim.kayac.comに通知する

IMAP::Client im.kayac.com このあたり参照のこと。IMAP的なメールービスで新着メールを受信したらim.kayac.com経由でiPhone通知したかったので書いた。 #!/usr/bin/env perl use strict; use warnings; use HTTP::Request::Common; use LWP::UserAgent; use…

Yahoo!画像検索APIが表示できない画像も返すからjquery.lightbox.jsがうまいこと動いてくれなくなってしまうのでLWP::UAでcontent-typeを見て画像ではなかったらデフォルト画像にリダイレクトさせるようにしてみました

最近、めっきり寒くなってきましたね。 私ごとですが先週末にこじらせた風邪が週中にひどくなり、会社を一日お休みさせて頂きました。(今はほぼ完治です 皆様もお体には十分お気をつけください。 Yahoo!画像検索APIが直リンで表示できない画像も返しちゃう …

View::JSONで静的JSONファイルを出力・保存してから改めてView::TTでページを出力したときに大幅にハマったので自分メモ

タイトル見返して見て思ったのですが、そうそうないシチュエーションなことをしています。 (自分は変なことするの結構好きかも知れないとちょっと感じています…。 やりたいことは、 /hogeページを表示する際に、 View::JSONを使ってJSONファイルを出力・保…

@tokyo_trainが約5日間に渡って無断でお休みを頂いておりましたお詫びと、彼がPHPからPerlに生まれ変り、ついでに仲間も増えましたのでそのご報告

(おさらい) @tokyo_trainとは、東京および近県のJRおよび私鉄の運行状況をお知らせするTwitter Botです。 http://twitter.com/tokyo_train スクレイピング先のレイアウトが変わっていて遅延情報を取得できておりませんでした 9/1から約5日間、@tokyo_trainの…

Cygwin環境でDBD::mysql使うときは+αでホストのIPアドレスを指定すればおkでした

引き続き、Web+DB Pressのvol.32にあるCatalystの特集でただいま"いろは"を勉強中です。前回記事 Template::Toolkitを使ってみたんだけど生成されたMyApp::View::TT.pmがちょっと変? 今回はこんな感じのことをしてみました myappのDBを作成 テーブルの作成 …

Template::Toolkitを使ってみたんだけど生成されたMyApp::View::TT.pmがちょっと変?

Web+DB Pressのvol.32にあるCatalystの特集でただいま"いろは"を勉強中です。 「Template::Toolkitでビューを描写してみる」の章でちょっとつまづいたのでメモ この章の内容としては hello.ttを作ってlocalhost:3000/helloにアクセスしてテンプレートベース…

Data:Pageset使ってページングをスマートに(Perl:2.5日目)

私用(引越)のため更新が滞っておりました。自宅にネット環境が整うまではもうちょっと滞るかも知れません>< テーマ:前回イマイチだったページングをCPANを使って処理を簡素化する 前回作成した検索結果リスト表示はページングの処理がダラダラと長くなって…

Amazon APIのキーワード検索結果をXML::TreePPとHTML::Template::Compiled使って一覧表示してみた(Perl始めました2日目)

テーマ:検索機能とその結果一覧を表示する 前回はAmazon APIから個別商品情報をXMLで取得して、それをXML:TreePPで配列に変換、情報を抜き取ってHTML::Template::CompiledでHTML出力までやってみました。今回は、ユーザが入力したキーワードをリクエストとし…

めっきり春だし今日からPerlを始めました

いきさつとか理由とかは暇なときに書きます。とりあえず作ったものを晒します。 テーマ:CPANを使ってみよう あちらでもCPAN、こちらでもCPANな感じなのでCPANを使ってみます。 XML::TreePPでAmazonAPIのXMLをparseして、HTML::TwmplateHTML::Template使ってH…