/usr/bin/acdcheck is in emboss-explorer 2.2.0-8.
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 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use warnings;
use EMBOSS::ACD;
use Getopt::Long;
use Pod::Usage;
use Data::Dumper;
use XML::Simple;
my $output = "";
GetOptions(
"output=s" => \$output
) or pod2usage();
@ARGV or pod2usage();
for (@ARGV) {
eval {
my $acd = EMBOSS::ACD->new($_);
if ($output =~ /xml/i) {
print XMLout($acd->{tree}, RootName => 'acd');
} elsif ($output =~ /perl/i) {
print Data::Dumper->Dump([$acd->{tree}], ["acd"]);
}
};
warn $@ if $@;
}
=head1 NAME
acdcheck
=head1 AUTHOR
Luke McCarthy <lukem@gene.pbi.nrc.ca>
=head1 SYNOPSIS
acdcheck
[ --output FORMAT ]
FILE [ FILE ... ]
=head1 DESCRIPTION
Reads one or more named input FILEs and attempts to parse them as if they were
EMBOSS ACD (AJAX Command Definition) files.
=head1 OPTIONS
=over4
=item --output FORMAT
Upon successful parsing of each ACD file, print a representation of the parse
tree to standard output in the specified format. FORMAT must be one of either
'XML' or 'Perl' (case-insensitive and without the quotes.)
=head1 COPYRIGHT
Copyright (c) 2004 Luke McCarthy. All rights reserved. This program is free
software. You may copy or redistribute it under the same terms as Perl itself.
|