/usr/bin/go2error_report is in libgo-perl 0.13-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use Getopt::Long;
use Data::Stag;
use FileHandle;
my $opt = {};
GetOptions($opt,
"format|p=s",
"datatype|t=s",
"err|e=s",
"handler_args|a=s%",
"handler|h=s");
use GO::Parser;
my $errf = $opt->{err};
my $errhandler = Data::Stag->getformathandler('xml');
if ($errf) {
$errhandler->file($errf);
}
else {
$errhandler->fh(\*STDOUT);
}
foreach my $f (@ARGV) {
my $parser = new GO::Parser($opt);
$parser->errhandler($errhandler);
$parser->parse($f);
}
__END__
=head1 NAME
go2error_report - converts go/obo to error_report
=head1 DESCRIPTION
Converts a file in any valid go/obo format to error_report.
=head1 SEE ALSO
L<go-perl>
|