comment on

You didn't say which version of cpan you have, super search is your friend -> Re^4: pod2html: link (L<...>) formatting code (timeloop)

Thx, marto. I know that's not gonna quote well, but your link led to correction: choroba's response in Re^5: pod2html: link (L<...>) formatting code (timeloop). Essentially, the fix is:

rm /home/ken/.cpan/sources/authors/id/?/??/*/CHECKSUMS

Regarding Super Search, I haven't been able to make useful queries with it lately. Is that just me being Super Rusty?

Continuing:



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
[download]

Those are certainly the usual suspects, and when I have a problem implementing software with such names on it, I strongly suspect that the problem is local, either on my machine or between my ears. Proceeding:

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
[download]

Alles klar...und...

cpan[1]> install Astro::SIMBAD::Client
[download]

I went over this install very closely, reading many of the sources:

                                        


The simbadc script is a simple wrapper for Astro::SIMBAD::Client, whic
+h
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-1
+2
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/WSQueryInt
+erfaceService.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
[download]

And then, and then, and gentleman and then:


root@laptop:~/.cpan# perl -MAstro::SIMBAD::Client -le '$s=Astro::SIMBA
+D::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 (Op
+t ) A [7.38 5.70 90] 2007A&A...474..653V
root@laptop:~/.cpan#
[download]

Q1) How can I repeat the tests in a comprehensive fashion?

I stepped through one of the tests in the debugger:


  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 sett
+ing 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_sch
+eme_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>
[download]

I lengthened Tom's one-liner to a lexical script:

#!/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);
[download]

Output with various choices of ARGV, and a few (edited) runs dumping @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.7397340
+0 ';
$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..65
+3V';
$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';
[download]

Finally, while I am writing up this simbad install project with what I'm calling success, the site and the client that gets it seem to be going just fine SOAP or no SOAP. (I still don't know what that is.) marto was completely correct that the interface had nothing to do with the problem reported. This is how you get this info with your browser:

https://simbad.cds.unistra.fr/simbad/sim-id?Ident=betelgeuse&submit=su
+bmit+id
[download]

or betelgeuse.

Thanks all for comments,

In reply to Re^2: cpan warning for XML::DoubleEncodedEntities by Aldebaran
in thread cpan warning for XML::DoubleEncodedEntities by Aldebaran

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


No such thing as a small change
	PerlMonks