perl

ブックオフオンラインごにょごにょ

ブックオフオンラインは検索結果をRSS配信していて嬉しいんだけどかなりおしい。ブックオフ店舗では新品で買うほどではないものやお気に入りの作家さんの作品をまとめて買うんだけど、ブックオフオンラインのRSSでチェックしようとすると私の場合2桁では済…

Google Mapから画像を取得する

Google Mapから次のようなURLで地図画像を取得できる。位置は緯度経度ではなく2次元のメッシュ座標で指定する必要がある。 http://mt.google.com/mt?x=58200&y=25808&zoom=1 メッシュ座標は、緯度、経度、および、表示倍率から求めることができ、計算方法は…

図書館の位置情報を取得する

Google Map APIさんの力を借りて図書館の位置情報をまとめてゲットする。使い捨て。 [lib.pl,UTF8] #!/usr/bin/perl use strict; use warnings; use HTTP::Request::Common; use LWP::UserAgent; use JSON; use Readonly; Readonly my $APIKEY => 'XXXXXXXXX…

はてなグラフに登録する

で、持ち株数分の株価を集計してはてなグラフに登録する。今まで気が向いたときに手で登録してたんだけど、はてなグラフ数値登録APIの存在を知り自動化することにした。あとはこれを16時くらいに動くようにすればよし。 #!/usr/bin/perl -w use strict; use …

株価を取得する

まずは?株価を取得しよう。ネット証券にログインすればリアルタイムな株価が取得できるんだけど、そこまでは必要ないのでYahoo!ファイナンスさんから。 #!/usr/bin/perl -w use strict; use warnings; use HTTP::Request::Common; use LWP::UserAgent; sub …

無線LAN WEBキー更新スクリプト③

WEPキー要件。 128ビットWEP(ASCII 13文字) 毎日変わる 秒レベルで暗算できる それなりにぐちゃぐちゃ? まぁこれくらいでいいや。例によってsyslogに結果を書いとけ。 [root@localhost]# pwd /etc/cron.daily [root@localhost]# cat chwep #!/usr/bin/perl …