/usr/share/doc/libboulder-perl/examples/genbank2.pl is in libboulder-perl 1.30-4.
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 | #!/usr/bin/perl
# This requires LWP to be installed.
#use lib '.','..';
use Boulder::Genbank;
$gb = new Boulder::Genbank(-accessor=>'Entrez',-param=>[qw/M57939/]);
while (my $s = $gb->get) {
print "<HTML><HEAD><TITLE>Test document</TITLE></HEAD><BODY><H1><Test document</H1>\n";
print $s->asHTML(\&wrap_long_lines);
print "</BODY></HTML>\n";
}
sub wrap_long_lines {
my ($tag,$value) = @_;
if ($tag =~ /Sequence|Translation/) {
$value=~s/(.{10})/$1 /g;
$value = "<TT>$value</TT>";
}
return ("<B>$tag</B>",qq{<FONT COLOR="blue">$value</FONT>});
}
|