Enable curser.
[utils.git] / anndata
1 #!/usr/bin/perl -w
2
3 use Getopt::Long;
4 use Anime::ANN;
5
6 GetOptions(\%options, "l=s", "b=s") || exit 1;
7
8 if($options{"l"}) {
9     @list = Anime::ANN::getlist($options{"l"});
10     foreach $name (@list) {
11         print "$name\n";
12     }
13     exit 0;
14 }
15
16 if($options{"b"}) {
17     $id = Anime::ANN::getid $options{"b"};
18     if(defined($id)) {
19         exec "htmlview", Anime::ANN::geturl($id);
20     } else {
21         printf STDERR "could not find " . $options{"b"} . "\n";
22         exit 1;
23     }
24 }
25
26 if(!defined($ARGV[0])) {
27     printf STDERR "usage: anndata NAME\n";
28     exit 1;
29 }
30
31 unless($id = Anime::ANN::getid $ARGV[0]) {
32     printf STDERR "could not find $ARGV[0]\n";
33     exit 1;
34 }
35
36 $info = Anime::ANN::getseries $id;
37
38 sub refdump
39 {
40     my($ref, $ind);
41     ($ref, $ind) = @_;
42     if(!defined($ind)) {
43         $ind = 0;
44     }
45     
46     if(ref $ref eq "HASH") {
47         for $key (sort keys %{$ref}) {
48             print (("  " x $ind) . "$key: " . (" " x (20 - length $key)) . "(" . $ref->{$key} . ")\n");
49             refdump($ref->{$key}, $ind + 1) if ref $ref->{$key};
50         }
51     } elsif(ref $ref eq "ARRAY") {
52         for($i = 0; $i < @{$ref}; $i++) {
53             print (("  " x $ind) . "$i: " . $ref->[$i] . "\n");
54             refdump($ref->[$i], $ind + 1) if ref $ref->[$i];
55         }
56     } elsif(ref $ref eq "SCALAR") {
57         print (("  " x $ind) . $$ref . "\n");
58     } else {
59         print (("  " x $ind) . "Unknown ref: $ref\n");
60     }
61 }
62
63 binmode STDOUT, ":utf8";
64 refdump $info;