File: testwl.amc

package info (click to toggle)
arb 6.0.6-1
  • links: PTS, VCS
  • area: non-free
  • in suites: stretch
  • size: 66,012 kB
  • ctags: 53,492
  • sloc: ansic: 394,907; cpp: 250,290; makefile: 19,637; sh: 15,879; perl: 10,473; fortran: 6,019; ruby: 683; xml: 503; python: 53; awk: 32
file content (23 lines) | stat: -rwxr-xr-x 938 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!/usr/bin/perl -w
use lib "$ENV{'ARBHOME'}/lib/";
use ARB;

$gb_main = ARB::open(":","r");
if (! $gb_main ) {
    $error = ARB::await_error();
    print ("Error: $error\n");
    exit 0;
}

BIO::remote_action($gb_main,"ARB_NT","ARB_NT/SEARCH_SPECIES");
BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/ere","1");
BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/ere","0");
BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/by","2");
BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/by","1");
BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/query","a*");
BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/key","acc");
BIO::remote_awar($gb_main,"ARB_NT","tmp/arbdb_query_0/key","name");
BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/SEARCH");
BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/MARK_LISTED_UNMARK_REST");
BIO::remote_action($gb_main,"ARB_NT","SPECIES_QUERY/CLOSE");
ARB::close($gb_main);