徵求馬祖地區電線桿上的電力座標!!

$ cat p
#!/usr/bin/perl
use strict;
use warnings FATAL => q(all);
while (<DATA>) {
    die
      unless
/^(S(\d\d)(\d\d) ([A-H])([A-E])(\d)(\d)(\d)(\d)) http.*\@([0-9.]+),([0-9.]+)/;
    my $X = $2 * 800 + ( ord($4) - ord 'A' ) * 100 + $6 * 10 + $8;
    my $Y = $3 * 500 + ( ord($5) - ord 'A' ) * 100 + $7 * 10 + $9;
    printf "%f %f %s %5d %5d ", $11, $10, $1, $X, $Y;
    my $azumith = 0;    # StreetView camera
    if (m!,([\d.]+)h[,/]!) { $azumith = $1; }
    printf "%3.0f\
", $azumith;
}
__DATA__
S0044 GD6475 https://www.google.com.tw/maps/@26.147525,119.913989,3a,7.6y,58.24h,74.83t/data=!3m4!1e1!3m2!1sL8HdJLex36HCncasbtj37Q!2e0!7i13312!8i6656
S1161 BD9993 https://www.google.com.tw/maps/@26.2229571,119.9991664,3a,15y,69.33h,80.7t/data=!3m6!1e1!3m4!1sbB7gUgVga1AEActAGgApXw!2e0!7i13312!8i6656
S0648 DE0165 https://www.google.com.tw/maps/@26.1653413,119.9589775,3a,15y,119.61h,94.11t/data=!3m6!1e1!3m4!1stff71JJvq4qRnwcQ4NdyEw!2e0!7i13312!8i6656
S7297 FA0660 https://www.google.com.tw/maps/@26.3711868,120.4948034,3a,15y,258.49h,78.14t/data=!3m7!1e1!3m5!1scWFq_Mpo3LBpsoc67sRW_g!2e0!7i13312!8i6656
S7296 HC1929 https://www.google.com.tw/maps/@26.3688346,120.4966337,3a,37.5y,3.09h,73.1t/data=!3m6!1e1!3m4!1sjCcujG2rz3mUNcWKdqYsgA!2e0!7i13312!8i6656
$ ./p
119.913989 26.147525 S0044 GD6475   667 22345  58
119.958978 26.165341 S0648 DE0165  5106 24415 120
119.999166 26.222957 S1161 BD9993  8999 30893  69
120.485462 26.361014 S7194 ED0910 57201 47390 221
120.496634 26.368835 S7296 HC1929 58312 48299   3
120.494803 26.371187 S7297 FA0660 58106 48560 258

jidanni wrote:
已有街景啦！$ ca...(恕刪)