perlの最近のブログ記事

@titon で行っている方法なのですが、芸能人の出演番組に関する情報を perl でスクレイピングする方法について説明したいと思います。

@titon ではYahoo!テレビで「伊集院光」で検索した結果のページを Web::Scraper モジュールでスクレイピングして取得しています。スクレイピングの部分だけを抜粋すると次のような感じです。

本日、徹子の部屋 twitter bot "tetsuko_room"をリリースしました。朝 9 時にその日の徹子の部屋のゲストを紹介してくれるというただそれだけのボットです。

徹子の部屋に旬の人が出るのを見逃したくない方、若手芸人が潰される様子を見逃したくない方、小沢昭一とのコスプレの会を見逃したくない方、年末のタモリの会を見逃したくない方、どうぞ follow してご利用くださいませ。

拙作の姉妹ボットとして伊集院光 bot "titon"もあります。こちらは伊集院がラジオで喋ったキャラクターが毎時 0 分を知らせしてくれるのと、毎朝6時にその日に伊集院が出演する番組について教えてくれるボットです。併せてご愛顧のほどお願いいたします。

不具合を見つけた場合は @mtsuyugu まで d をお願いします。ソース一式は github で公開しています。

./lib においた自作 .pm ファイルを読むような perl スクリプトを書くとなると

とかって書くわけですが、cron から起動したりするとカレントが $HOME になるために、上記では旨く ./lib/*.pm を読んでくれません。かといって直に、絶対パスを直にプログラム中に書くと、今度はテスト用のディレクトリからから本番用のディレクトリに切り替えるときにそのパスを変更しなくてはいけなくてちょっとややこしいことになってきます。余計な心労は負いたくありません。

で、そこで解決策をググっていたところ FindBin というモジュールがあることを知りました。FindBin を使ってこの問題をクリアするには、上記のコードを

のように変更すれば、万事 OK。 $FindBin::RealBin がスクリプトのあるディレクトリへの絶対パスを示します。

便利ですね。