Dolda2000 GitWeb
/
utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[utils.git]
/
anndata
diff --git
a/anndata
b/anndata
index
3cda2c2
..
fcc2a29
100755
(executable)
--- a/
anndata
+++ b/
anndata
@@
-3,7
+3,7
@@
use Getopt::Long;
use Anime::ANN;
use Getopt::Long;
use Anime::ANN;
-GetOptions(\%options,
("l=s", "b=s"))
;
+GetOptions(\%options,
"l=s", "b=s") || exit 1
;
if($options{"l"}) {
@list = Anime::ANN::getlist($options{"l"});
if($options{"l"}) {
@list = Anime::ANN::getlist($options{"l"});
@@
-14,7
+14,13
@@
if($options{"l"}) {
}
if($options{"b"}) {
}
if($options{"b"}) {
- exec "htmlview", Anime::ANN::geturl(Anime::ANN::getid $options{"b"});
+ $id = Anime::ANN::getid $options{"b"};
+ if(defined($id)) {
+ exec "htmlview", Anime::ANN::geturl($id);
+ } else {
+ printf STDERR "could not find " . $options{"b"} . "\n";
+ exit 1;
+ }
}
if(!defined($ARGV[0])) {
}
if(!defined($ARGV[0])) {
@@
-47,6
+53,8
@@
sub refdump
print ((" " x $ind) . "$i: " . $ref->[$i] . "\n");
refdump($ref->[$i], $ind + 1) if ref $ref->[$i];
}
print ((" " x $ind) . "$i: " . $ref->[$i] . "\n");
refdump($ref->[$i], $ind + 1) if ref $ref->[$i];
}
+ } elsif(ref $ref eq "SCALAR") {
+ print ((" " x $ind) . $$ref . "\n");
} else {
print ((" " x $ind) . "Unknown ref: $ref\n");
}
} else {
print ((" " x $ind) . "Unknown ref: $ref\n");
}