programavimo poezijos - juodoji puse

Nutariau padaryt koordinaciu peskaiciavima is LKS i WGS

Ieskojau skripto Perl,PHP,Python,JavaScript ar dar kokia kalba

Radau Exel ir C#

Paemiau Exel ir perasiau i PHP

Pradzia

http://geocad.lt/en/excel/7-coordinate-conversion-lks-94-to-wgs-84

Rezultatas

http://www.baidariunuomos.lt/lks-wgs.php?c=583756,6062057

nu bet antraste tai taip ir atrodo kad poezijos bus poste :D

Greitam problemos sprendimui, va dar kokia nesamone sukuriau

use HTTP::Request::Common qw(POST);  
use LWP::UserAgent; 
use URI::Escape;
for ($i=1; $i<=50;$i++) {
$data_file="failai\\$i.txt";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT); 
$rec = join("\n", @raw_data);

print "$i http\n";

$ua = LWP::UserAgent->new();  
my $req = POST 'http://sauliukas.lt/lks/', [ 
lks=> $rec,
submit=> 'keisti',

]; 
$content = $ua->request($req)->as_string; 


my $encode = uri_escape($content);
#print $encode;
$z="\x3D\x2240\x22\x3E";
@personal = split(/$z/, $content);

$z="\x3C\x2Ftextarea\x3E\x3C\x2F";
@personal = split(/$z/, $personal[1]);
print "end\n";
$data_file="failai\\".$i."z.txt";
open(DAT, ">$data_file") || die("Could not open file!");
binmode(DAT);
print DAT $personal[0];
close(DAT); 
}
<>;