#!/usr/bin/perl #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +~ #Reads in uavposition and outputs the uavpf.txt file # #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +~ use strict; use warnings; $\="\n"; my $img = '"http://updraft.unl.edu/~uas/uas/uas.png"'; for(;;){ #Open Placefile open OUT,'>',"/home/uas/public_html/uas/uaspf.txt.bak" or die +"Cannot Open File uavpf.txt.bak!"; #print placefile elements print OUT "Title: UAV GPS Position"; print OUT "Threshold: 999"; print OUT "RefreshSeconds: 2"; print OUT "Iconfile: 1, 22, 21, 10, 14, $img\n"; #read in UAV GPS lines #Open UAV GPS file open IN,'<',"/home/uas/Scripts/COORDS/uasposition" or die "Can +not Open File uavposition!"; while (my @gps = <IN>){ chomp @gps; my $ngps = @gps; my @uav = split(" ",$gps[$ngps-1]); my $lat1 = sprintf("%.5f", $uav[0]); my $lon1 = sprintf("%.5f", $uav[1]); my $head1 = sprintf("%.2f",$uav[2]); print OUT "Icon: $lat1, $lon1, $head1, 1, 1, Latitude: + $lat1 Longitude: $lon1 Heading: $head1 "; } close (IN); close (OUT); rename("uaspf.txt", "uaspf.txt.bak") or die"Unable to replace" +; sleep 2; }
In reply to Re^2: Swapping Files
by deadpickle
in thread Swapping Files
by deadpickle
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |