Acme::Hakomonos::JPを公開しました
日本の箱物データベースを作りたかったので Acme::Hakomonos::JPを公開しました。 でも、オリジナリティはなく、 Acme::CPANAuthorsのソースを流用しているだけですが・・・
つかい方は簡単 exampleディレクトリに書いてありまして、 箱ものの名前と、総工費と床面積のデータにアクセスできるのです。 この例だと、坪単価の降順に一覧表示してくれます。
use strict; use Acme::Hakomonos::JP; use utf8; use Encode qw(encode); my %hash = Acme::Hakomonos::JP->hakomonos; my @sorted_keys = sort { $hash{$b}{cost} / $hash{$b}{size} <=> $hash{$a}{cost} / $hash{$a}{size} } keys %hash; print encode ("utf8", "名前,坪単価(万円)\n"); for my $key (@sorted_keys){ print encode("utf8" , sprintf ("%s,%d\n", $hash{$key}{name} , $hash{$key}{cost} * 10000 / $hash{$key}{size} * 3.3 )); }
このソースどこかで見たという人は、するどい。 [帰ってきたネコブログ-書籍代の入力データを用意してみました]を参考にしています。 (http://www.nekonotechno.com/nekopress/?p=4515)
$ perl -Ilib expamle/tsubotanka.pl 名前,坪単価(万円) グランシップ,385 富士市文化会館ロゼシアター ,234 静岡県東部地域コンベンションビューロー,165
でも、静岡の3箱ものしか登録されていなくて、 データが充実していないので、今一です。
全国各地の箱ものを(プルリクエスト)絶賛受付ています。