rendered paste body
use strict;
use warnings;
print q[<?xml version='1.0' encoding='UTF-8'?>
<osm version='0.6' generator='JOSM'>
<bounds minlat='46.0921642324561' minlon='23.7654016803728' maxlat='46.1047995805921' maxlon='23.7794076425439' origin='OpenStreetMap server' />];
my $id=0;
while (<>)
{
if (/^\s*(\d+\.\d+)\s+(\d+\.\d+)\s+(\d+\.\d+)\s*$/)
{
$id--;
print qq[<node id='$id' timestamp='2008-05-05T11:13:24Z' user='h4ck3rm1k3' visible='true' version='1' lat='$2' lon='$1' />];
}
else
{
die "error $_";
}
}
print q[</osm>];