[amsat-bb] Re: perl script to manipulate keps

[Gus]

This is what I use:

---------------8<------------------
#!/usr/bin/perl -w

use FileHandle;
use LWP::Simple;

@keps_wanted = qw( amateur.txt cubesat.txt weather.txt );
$keps_source = "http://www.celestrak.com/NORAD/elements";
$keps_local = "$ENV{HOME}/keps";

@sats = qw( VO-52 AO-7 AO-73);


$verbose = 1;	# set to 0 to eliminate chatter

@interesting = ();

foreach $file (@keps_wanted) {
   @keps = fetch_keps( "$keps_source/$file" );
   next unless scalar(@keps);

   save_file( "$keps_local/$file", @keps );

   foreach $sat (@sats) {
     for ($i=0; $i<=$#keps; $i++) {
       $keps[$i] =~ /\b$sat\b/ && do {
	($name, $line1, $line2) = cleanup_elements( @keps[$i..$i+2] );
	$verbose && print "$name\n$line1\n$line2\n\n";
       }
     };
   }

   #save interesting elements
   save_file( "$keps_local/interesting.txt", @interesting );
} # we're done

#---------------------------------------------------------#
# read keps directly, no need for wget or other externals #
#---------------------------------------------------------#
sub fetch_keps {
   my $url = shift;
   my $txt = get( $url );

   ! defined $txt && do {
     print STDERR "Can't retrieve \"$url\"\n";
     return undef;
   };

   $txt =~ /<title>Untitled Document<\/title>/m && do {
     print STDERR "No such file: \"$url\"\n";
     return undef;
   };

   $verbose && print "Got \"$url\" OK!\n";
   return split /\n/, $txt;
}

#--------------------------------------------------#
# write array to file -- first element is filename #
#--------------------------------------------------#
sub save_file {
   my $where = shift;
   my $out = new FileHandle "> $where";
   if (! defined $out) {
     print STDERR "Can't open \"$where\" for output\n";
     return;
   }

   foreach (@_) {
     $out->print( "$_\n" );
   }
   $out->close();
}

#-------------------------------------------------------#
# cleans up elements.  currently collects elements for  #
# sats of interest, but could also fix checksums, look  #
# for duplicates, etc, etc                              #
#-------------------------------------------------------#
sub cleanup_elements {
   my ($name, $line1, $line2) = @_;

   # make corrections here

   push @interesting, ($name, $line1, $line2);

   return ($name, $line1, $line2);
}

--------------->8------------------

Somewhat more verbose, but it doesn't use the external utilities so it 
is more OS agnostic.

I keep meaning to expand that final function....



On 01/30/2014 05:50 AM, Andrew Rich wrote:
> Slight mod
>
> system("wget http://www.celestrak.com/NORAD/elements/amateur.txt -O /maint/scripts/keps/amateur.txt");
> system("wget http://www.celestrak.com/NORAD/elements/cubesat.txt -O /maint/scripts/keps/cubesat.txt");
> system("wget http://www.celestrak.com/NORAD/elements/weather.txt -O /maint/scripts/keps/weather.txt");
>    ----- Original Message -----
>    From: Andrew Rich
>    To: amsat-bb at AMSAT.Org
>    Sent: Thursday, January 30, 2014 7:35 PM
>    Subject: perl script to manipulate keps
>
>
>    Enjoy - just keep adding subs for each bird
>
>    #!/usr/bin/perl
>    system("rm /maint/scripts/keps/*.txt");
>    system("wget http://www.celestrak.com/NORAD/elements/amateur.txt");
>    system("wget http://www.celestrak.com/NORAD/elements/cubesat.txt");
>    system("wget http://www.celestrak.com/NORAD/elements/weather.txt");
>    system("cat /maint/scripts/keps/*.txt > /maint/scripts/keps/total_keps.txt");
>    open (outfile,"> /maint/scripts/keps/final_keps.txt");
>    open (keps,"/maint/scripts/keps/total_keps.txt");
>    while (<keps>)
>    {
>        if (m/VO-52/)
>        {
>        print outfile $_;
>        $next_line = <keps>;
>        print outfile $next_line;
>        $next_line = <keps>;
>        print outfile $next_line;
>        }
>    }
>    close (outfile);
>
> _______________________________________________
> Sent via AMSAT-BB at amsat.org. Opinions expressed are those of the author.
> Not an AMSAT-NA member? Join now to support the amateur satellite program!
> Subscription settings: http://amsat.org/mailman/listinfo/amsat-bb
>
>

-- 
Gus 8P6SM
The Easternmost Isle