Help for this page
my @line = ( [ ## $line[ 0 ] ... ); my( $x, $y, $z ) = $line[ $lineNo ][ $stationNo ];
lineName stn. east...north...elev. 000301038 1260 52205121N109153806W 618485158009020 6626 ... 000301016 400 52153542N109482654W 581401057903909 6738 000301016 401 52153542N109482522W 581426057903913 6738 000301016 402 52153542N109482390W 581451057903918 6738
my( $x, $y, $z ) = $line[000301038][1261]; ... print "$x, $y, $z"; # Result: 6185101, 58009027, 6623
www.com | www.net | www.org
No recent polls found