Very good

Well done

Sent from my iPhone

On 31 Jan 2014, at 2:03 am, Gus gus@8p6sm.net wrote:

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@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@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 _______________________________________________ Sent via AMSAT-BB@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