DownImgs.pm

これは何?

gm_liteのdownimgs.pl相当をperlモジュール化してみました。pgmapでも使っています。 内部でwget等は使っていません(perlのLWPモジュールでアクセスしています)。

本ドキュメントもまだ殴り書きです。ぼちぼち整えていきます。

ダウンロード

DownImgs.pm

使い方

サンプル1 (標準的な使い方)

use DownImgs;

my $downimgs = DownImgs->new;
$downimgs->fetchver or die "cannot obtain Gmap version\n";  # バージョン取得

$downimgs->down_map1( 13, 50, 25 ); # zoom=13, x=50, y=25の地図を取得

サンプル2 (カスタマイズ例)

use DownImgs;

my $downimgs = DownImgs->new( 
    agent => 'Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 6.0)',
    timeout => 5,
    output => 'return' );
$downimgs->setver( 117 ); # バージョンを固定値で設定

my $image = $downimgs->down_map1( 13, 50, 25, 1 ); # zoom=13, x=50, y=25の地図をサーバ1から取得
open my $out, '>', 'mapimage.png' or die $!; # 指定ファイルに保存
binmode $out;
print $out $image;
close $out;

初期化オプション

Method

その他

コメント等もこちらへどうぞ。 → Go to Blog

掲示板もあります。 → Go to BBS inserted by FC2 system