/usr/bin/bp_meta_gff is in bioperl 1.6.901-2.
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 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use DBI;
use Getopt::Long;
use Bio::DB::GFF;
=head1 NAME
bp_meta_gff.pl - Get/set Bio::DB::GFF meta-data
=head1 SYNOPSIS
# set the following meta data values
% bp_meta_gff.pl -d testdb tag1=value1 tag2=value2
# get the indicated meta data value
% bp_meta_gff.pl -d testdb tag1 tag2
=head1 DESCRIPTION
This script gets or sets metadata in a Bio::DB::GFF database. Not all
adaptors support this operation! To set a series of tags, pass a set
of tag=value pairs to the script. To get the contents of a series of
tags, pass the bare tag names.
The output from the get operation will be an easily parseable set of
tag=value pairs, one per line.
=head1 COMMAND-LINE OPTIONS
Command-line options can be abbreviated to single-letter options.
e.g. -d instead of --database.
--database <dsn> Mysql database name (default dbi:mysql:test)
--adaptor <adaptor> Mysql adaptor (default dbi::mysqlopt)
--user <user> Username for mysql authentication
--pass <password> Password for mysql authentication
=head1 SEE ALSO
L<Bio::DB::GFF>
=head1 AUTHOR
Lincoln Stein, lstein@cshl.org
Copyright (c) 2002 Cold Spring Harbor Laboratory
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. See DISCLAIMER.txt for
disclaimers of warranty.
=cut
my ($DSN,$ADAPTOR,$USER,$PASSWORD);
GetOptions ('database:s' => \$DSN,
'adaptor:s' => \$ADAPTOR,
'user:s' => \$USER,
'password:s' => \$PASSWORD,
) or (system('pod2text', $0), exit -1);
$DSN ||= 'dbi:mysql:test';
$ADAPTOR ||= 'dbi::mysqlopt';
my @args;
push @args,(-user=>$USER) if defined $USER;
push @args,(-pass=>$PASSWORD) if defined $PASSWORD;
my $db = Bio::DB::GFF->new(-adaptor=>$ADAPTOR,-dsn => $DSN,@args)
or die "Can't open database: ",Bio::DB::GFF->error,"\n";
for my $pair (@ARGV) {
my ($tag,$value) = split /=/,$pair;
if ($value) { # set operation
$db->meta($tag,$value);
unless ($db->meta($tag) eq $value) {
print STDERR "value for '$tag' not set; perhaps this adaptor does not support meta data?\n";
}
} else {
print "$tag=",$db->meta($tag),"\n";
}
}
__END__
|