← Back to branch summary

~ubuntu-branches/debian/sid/stellarium/sid

« back to all changes in this revision

Viewing changes to util/GCVS/hip-var.pl

  • Committer: Package Import Robot
  • Author(s): Tomasz Buchert
  • Date: 2013-08-04 15:06:55 UTC
  • mfrom: (1.2.12)
  • Revision ID: package-import@ubuntu.com-20130804150655-iji0vb5navh3lk13
Tags: 0.12.2-1
* Imported Upstream version 0.12.2
* Added dependency to phonon (to enable video/sound)
* Fixed VCS links
* Removed unused lintian tag (embedded-library glee)
* Dropped obsolete patch
* Update copyright

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/GCVS/hip-var.pl
 
1
#!/usr/bin/perl
 
2
 
 
3
$GCVS   = "./iii.dat";          # GCVS
 
4
$HIPV   = "./varcat-hip.dat";   # Hipparcos
 
5
$TYCV   = "./varcat-tyc.dat";   # Tycho 2
 
6
 
 
7
open (HV, ">$HIPV");
 
8
#open (TV, ">$TYCV");
 
9
open (GV, "$GCVS");
 
10
while (<GV>) {
 
11
    $rawstring = $_;
 
12
    $maxmagstr = substr($rawstring,48,8);
 
13
    $maxmag = $maxmagstr+0;
 
14
    $maxmagstr =~ s/[ ]+//gi;
 
15
    $yearstr   = substr($rawstring,100,4);
 
16
    $year = $yearstr+0;
 
17
    if ($maxmag<=12.5 && length($maxmagstr)!=0 && $year==0) {
 
18
        print HV $rawstring;
 
19
    }
 
20
#    if ($maxmag>9.0 && $maxmag<=12.5 && $year==0) {
 
21
#       print TV $rawstring;
 
22
#    }
 
23
}
 
24
close GV;
 
25
close HV;
 
26
#close TV;
 
 
b'\\ No newline at end of file'