6 GetOptions(\%options, "l=s", "b=s") || exit 1;
9 @list = Anime::ANN::getlist($options{"l"});
10 foreach $name (@list) {
17 $id = Anime::ANN::getid $options{"b"};
19 exec "htmlview", Anime::ANN::geturl($id);
21 printf STDERR "could not find " . $options{"b"} . "\n";
26 if(!defined($ARGV[0])) {
27 printf STDERR "usage: anndata NAME\n";
31 unless($id = Anime::ANN::getid $ARGV[0]) {
32 printf STDERR "could not find $ARGV[0]\n";
36 $info = Anime::ANN::getseries $id;
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};
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];
56 } elsif(ref $ref eq "SCALAR") {
57 print ((" " x $ind) . $$ref . "\n");
59 print ((" " x $ind) . "Unknown ref: $ref\n");
63 binmode STDOUT, ":utf8";