前日の年月日を得る

Perl

当日の年月日は、localtimeとtimeを使えば、すぐに解決。 my @arr = localtime(time); my $y = $arr[5] + 1900; my $m = $arr[4] + 1; my $d = $arr[3]; printf "%d %d %d\n", $y, $m, $d; 前日というのは実にやっかいで、前述の$dから引き算をすると、2013…

2009-05-19

MapScriptをためした

GIS Perl

mapfileはこんなかんじ MAP NAME MAPTEST EXTENT 122 22 149 46 UNITS DD FONTSET ./fonts.txt WEB IMAGEPATH "tmp/" IMAGEURL "tmp/" END PROJECTION "init=epsg:4612" # JGD2000 END #-------- レイヤー -------- #---- 背景=海=DEF IMAGECOLOR 221 238 25…

2009-05-19

MapScriptをためす

GIS Perl

UMN MapServer には MapScript といううれしいかどうかは知らないけれども、おまけといっていいかどうかは知らないけど、とにかくあります。スクリプト言語からMapServerを使うことができます。でも、PHPをApacheモジュールで入れていると機能せず、PHPをCG…

2008-09-05

16進表示のバイト列になってるdouble値を印字する

Perl

printf("%f\n",unpack("d",pack("H16","(文字列)"))); この(文字列)部に"1F85EB51B81E0940"と入れてやる。

2008-08-21

EWKBのポイントをちゃちゃっと作る

Perl PostGIS GIS

ちょいと必要だったので、ちゃちゃっとやってみました。リトルエンディアン限定、ポイントデータ限定です。ファイルを読み込んでどうこうという部分は省きました。 #!/usr/bin/perl $x=134.99; $y=35.01; #$s=4326; $s=-1; if( $s > 0 ) { $tc = unpack('H8'…