/usr/share/doc/libbio-das-lite-perl/examples/comparison is in libbio-das-lite-perl 2.11-5.
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 | #!/usr/bin/perl -wT
#########
# This script needs to have Bio:Das and Bio::Das::Lite installed, or be started with:
# perl -I/path/to/bio-das -I/path/to/bio-daslite
#
use strict;
use Bio::Das;
use Bio::Das::Lite;
use Benchmark;
use Data::Dumper;
#$Bio::Das::Lite::DEBUG = 1;
use vars qw($SOURCES);
$SOURCES = [qw(http://servlet.sanger.ac.uk/das/ensembl1834
http://das.sanger.ac.uk/das/spectral35)];
#########
# Build some random segments
#
my @segments = ();
for (my $chr=1;$chr<=20;$chr++) {
my $rnd = int(rand(100000000));
push @segments, "$chr:$rnd,@{[$rnd+1000000]}";
}
my $biodas = Bio::Das->new();
my $biodaslite = Bio::Das::Lite->new({'dsn' => $SOURCES, 'caching' => 0});
timethese(
5, {
"Bio::Das" => sub { $biodas->features(-dsn => $SOURCES, -segment => \@segments); },
"Bio::Das::Lite" => sub { $biodaslite->features(\@segments); },
},
);
|