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
