root@laptop:~/.cpan# pwd
/root/.cpan
root@laptop:~/.cpan# ls sources/authors/id/?/??/*/CHECKSUMS
sources/authors/id/B/BL/BLIAKO/CHECKSUMS
...
sources/authors/id/C/CO/CORION/CHECKSUMS
...
sources/authors/id/D/DA/DAGOLDEN/CHECKSUMS
...
sources/authors/id/D/DC/DCANTRELL/CHECKSUMS
...
sources/authors/id/D/DR/DROLSKY/CHECKSUMS
...
sources/authors/id/M/MI/MIYAGAWA/CHECKSUMS
...
sources/authors/id/R/RU/RURBAN/CHECKSUMS
sources/authors/id/S/SA/SALVA/CHECKSUMS
####
root@laptop:~/.cpan# rm sources/authors/id/?/??/*/CHECKSUMS
root@laptop:~/.cpan# ls sources/authors/id/?/??/*/CHECKSUMS
ls: cannot access 'sources/authors/id/?/??/*/CHECKSUMS': No such file or directory
root@laptop:~/.cpan# cpan
##
##
cpan[1]> install Astro::SIMBAD::Client
##
##
The simbadc script is a simple wrapper for Astro::SIMBAD::Client, which
may be used interactively or as a Unix filter.
>>>> NOTICE <<<<
As of version 0.032_01 the simbadc script is installed by default. If
you do not wish it installed. run this script with the -n option. The -y
option is still accepted for backward compatibility.
...
Running Build test for WYANT/Astro-SIMBAD-Client-0.046.tar.gz
t/basic.t .... 1/? # http://simbad.u-strasbg.fr/: SIMBAD4 1.8 - 2022-12
t/basic.t .... ok #I verified this one in the debugger
t/release.t .. ok
t/simple.t ... ok
t/vo.t ....... ok
t/yaml.t ..... ok
All tests successful.
Files=5, Tests=13, 65 wallclock secs ( 0.07 usr 0.01 sys + 1.59 cusr 0.23 csys = 1.90 CPU)
Result: PASS
...
Installing /usr/local/share/perl/5.30.0/Astro/SIMBAD/Client.pm
Installing /usr/local/share/perl/5.30.0/Astro/SIMBAD/Client/WSQueryInterfaceService.pm
Installing /usr/local/man/man3/Astro::SIMBAD::Client.3pm
Installing /usr/local/bin/simbadc
WYANT/Astro-SIMBAD-Client-0.046.tar.gz
./Build install -- OK
cpan[2]> quit
##
##
root@laptop:~/.cpan# perl -MAstro::SIMBAD::Client -le '$s=Astro::SIMBAD::Client->new;@q=split /\n/, $s->url_query(id => Ident => "$ARGV[0]", NbIdent => 1);@r=grep/ICRS/,@q;print for @r' aldebaran
Coordinates(ICRS,ep=J2000,eq=2000): 04 35 55.23907 +16 30 33.4885 (Opt ) A [7.38 5.70 90] 2007A&A...474..653V
root@laptop:~/.cpan#
##
##
DB<1> n
main::(basic.t:8): require_ok 'Astro::SIMBAD::Client'
main::(basic.t:9): or BAIL_OUT q{Can't do much testing if can't load module};
DB<1> n
ok 1 - require Astro::SIMBAD::Client;
main::(basic.t:12): my $smb = Astro::SIMBAD::Client->new ();
DB<1> n
main::(basic.t:14): ok $smb, 'Instantiate Astro::SIMBAD::Client'
main::(basic.t:15): or BAIL_OUT "Test aborted: $@";
DB<1> n
ok 2 - Instantiate Astro::SIMBAD::Client
main::(basic.t:17): is $smb->get( 'debug' ), 0, 'Initial debug setting is 0';
DB<1> n
ok 3 - Initial debug setting is 0
main::(basic.t:19): $smb->set( debug => 1 );
DB<1> p debug
debug
DB<2> p $smb->get('debug')
0
DB<3> n
main::(basic.t:21): is $smb->get( 'debug' ), 1, 'Able to set debug to 1';
DB<3> n
ok 4 - Able to set debug to 1
main::(basic.t:23): $smb->set( debug => 0 );
DB<3> p $smb->get('debug')
1
24
25 {
26: my $scheme = Astro::SIMBAD::Client::_is_scheme_valid(
27 $ENV{ASTRO_SIMBAD_CLIENT_SCHEME} ) ?
28 'http' :
29: lc $ENV{ASTRO_SIMBAD_CLIENT_SCHEME};
DB<6> n
main::(basic.t:26): my $scheme = Astro::SIMBAD::Client::_is_scheme_valid(
main::(basic.t:27): $ENV{ASTRO_SIMBAD_CLIENT_SCHEME} ) ?
main::(basic.t:28): 'http' :
DB<6> c
ok 5 - Default scheme is 'http'
# http://simbad.u-strasbg.fr/: SIMBAD4 1.8 - 2022-12
1..5
Debugged program terminated. Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
DB<6>
##
##
#!/usr/bin/perl -w
use v5.030;
use Astro::SIMBAD::Client;
use Data::Dumper;
my $s = Astro::SIMBAD::Client->new;
my @q = split /\n/, $s->url_query( id => Ident => "$ARGV[0]", NbIdent => 1 );
my @r = grep /ICRS/, @q;
print Dumper(@r);
#print Dumper(@q);
##
##
fritz@laptop:~/Documents$ ./1.simbad.pl Aldebaran
$VAR1 = 'Coordinates(ICRS,ep=J2000,eq=2000): 04 35 55.23907 +16 30 33.4885 (Opt ) A [7.38 5.70 90] 2007A&A...474..653V';
fritz@laptop:~/Documents$ ./1.simbad.pl Betelgeuse
$VAR1 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 55 10.30536 +07 24 25.4304 (Opt ) A [9.04 5.72 90] 2007A&A...474..653V';
...
fritz@laptop:~/Documents$ ./1.simbad.pl Mintaka
$VAR1 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 32 00.40009 -00 17 56.7424 (Opt ) A [4.92 2.38 90] 2007A&A...474..653V';
$VAR1 = 'C.D.S. - SIMBAD4 rel 1.8 - 2023.01.01CET05:30:56';
$VAR2 = '';
$VAR3 = 'Mintaka';
$VAR4 = '-------';
$VAR5 = '';
$VAR6 = 'Object * del Ori --- SB* --- OID=@799898 (@@17013,0) --- coobox=6469';
$VAR7 = '';
$VAR8 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 32 00.40009 -00 17 56.7424 (Opt ) A [4.92 2.38 90] 2007A&A...474..653V';
$VAR9 = 'Coordinates(FK4,ep=B1950,eq=1950): 05 29 27.02698 -00 20 04.4178';
$VAR10 = 'Coordinates(Gal,ep=J2000,eq=2000): 203.85592217 -17.73973400 ';
$VAR11 = 'hierarchy counts: #parents=2, #children=2, #siblings=0';
$VAR12 = 'Proper motions: 0.64 -0.69 [0.56 0.27 0] A 2007A&A...474..653V';
$VAR13 = 'Parallax: 4.71 [0.58] A 2007A&A...474..653V';
...
fritz@laptop:~/Documents$ ./1.simbad.pl Alnilam
$VAR1 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 36 12.81335 -01 12 06.9089 (Opt ) A [3.69 1.67 90] 2007A&A...474..653V';
...
$VAR3 = 'Alnilam';
$VAR8 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 36 12.81335 -01 12 06.9089 (Opt ) A [3.69 1.67 90] 2007A&A...474..653V';
fritz@laptop:~/Documents$ ./1.simbad.pl Alnitak
$VAR1 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 40 45.52666 -01 56 33.2649 (Opt ) A [5.19 2.29 90] 2007A&A...474..653V';
##
##
https://simbad.cds.unistra.fr/simbad/sim-id?Ident=betelgeuse&submit=submit+id