OpenStreetMap 로고 OpenStreetMap

h4ck3rm1k3의 일기

screenscraping

h4ck3rm1k3님이 English로 2009년 8월 8일에 게시함.

here is a broken webpage from the government of kosovo that is supposed to have property information.

The problem is that it is horrible, nothing works.

Here is the list of properties for rent in one area:
http://www.kpaonline.org/ReadyForRentMun/ReadyForRentMun.aspx?mun=Dakovica

Here is the list of properties for in adminstration
http://www.kpaonline.org/AdminMun.asp?mun=Dakovica

you need to search with the serbian names in google, not on the site, cause it does not work.

Search String :Gjakovë/Djakovica site:kpaonline.org

http://www.google.com/search?hl=en&hs=tJ2&q=Gjakov%C3%AB%2FDjakovica+site%3Akpaonline.org&

you can then get the data like this :

wget -r -l4 -D www.kpaonline.org http://www.kpaonline.org/AdminMun.asp?mun=Dakovica

이메일 아이콘 Bluesky 아이콘 Facebook 아이콘 LinkedIn 아이콘 마스토돈 아이콘 텔레그램 아이콘 X 아이콘

토론

2009년 8월 8일 08:58에 h4ck3rm1k3님의 의견

More utm stuff :
http://www.maptools.com/UsingUTM/

http://www.dbartlett.com/

http://www.wa6otp.com/UTM.htm

Converters:
http://www.itee.uq.edu.au/~mesh/db-srtm/gps.php
http://www.oasisphoto.com/navigation/convert_form.php
http://www.cellspark.com/utmconverter.html

2009년 8월 8일 09:47에 h4ck3rm1k3님의 의견

So Kosovo is 34T/North

http://home.hiwaay.net/~taylorc/toolbox/geography/geoutm.html

for this property :
http://www.kpaonline.org/resultPAmun.asp?IS=DS605487
GPS Grid UTM 0453384/4692348

The webpage says:
20.433725867427746/42.38201849774153

2009년 8월 8일 09:50에 h4ck3rm1k3님의 의견

That is
42deg 22' 55"N, 20deg 26' 1.4"E

2009년 8월 8일 09:56에 h4ck3rm1k3님의 의견

here is my first point
osm.org/browse/changeset/2073369

2009년 8월 8일 10:30에 h4ck3rm1k3님의 의견

here are my commands :
grep -h -A2 GPS resultPAmun.asp\?IS\=* | sort -u | grep ^04 | cut -d\< -f1 | sed -e 's;\/; ;g' > points.txt

cs2cs -E +proj=utm +zone=34T +units=m +proj=tmerc -f "%.9f" < points.txt > convert.txt
perl ~/Desktop/maps/openstreetmapkosova/convert2osm.pl convert.txt > new.osm

There were two data errors in the input :
0477588 4673224 20.798029599 4.281299370 0.000000000
0488275 4668363 20.868633114 36.760955805 0.000000000

my convert script : 

use strict;

use warnings;



print q[



  ];



my $id=0;

while (<>)

{



	if (/^\s*(\d+\.\d+)\s+(\d+\.\d+)\s+(\d+\.\d+)\s*$/)

	{	

	  $id--;

	  print qq[];

	}

else

{

die "error $_";

}



}



print q[];

댓글을 남기려면 로그인하세요