#
#  ARC/INFO ASCII grid ファイルを扱う ArcInfoAscii モジュールの使用例
#
#  2011-09-16  by TAKENAKA, Akio

use ArcInfoAscii;  # モジュールの組み込み
use strict;

my $file = "test.asc";   # テストデータ

my $grid = new ArcInfoAscii($file);  # オブジェクトの生成
exit unless($grid);                  # 生成に失敗（ファイル不在など）

print "Resolution ", $grid->get_resolution(), "\n";

print "X range ", join (" - ", $grid->get_x_range()), "\n";
print "Y range ", join (" - ", $grid->get_y_range()), "\n";

print "X  Y  > ";  # 入力を促す

while (my $input = <>) {  # x と y の値を入力
    chomp ($input); 
    my ($x, $y) = split(/\s+/, $input); 

    #   最近傍の点の値
    my $val = $grid->get_value_at_nearest($x, $y);

    print " Value at nearest point  $val\n";  # 得た値を表示
    print "X  Y > ";  # 入力を促す
}