Ticket #456: add_marked_self_filtered.amc

File add_marked_self_filtered.amc, 1.1 KB (added by westram, 6 years ago)

add one species to tree using itself as filter

Line 
1#!/usr/bin/perl
2use strict;
3use warnings;
4
5use lib "$ENV{'ARBHOME'}/lib/";
6use ARB;
7
8my $gb_main = ARB::open(":","r");
9if (not $gb_main) {
10  my $error = ARB::await_error();
11  die "$error";
12}
13
14# recording started @ Mon Mar 10 14:21:36 2014
15BIO::remote_action($gb_main,"ARB_NT","arb_pars");
16BIO::remote_action($gb_main,"ARB_PARS","PARS_PROPS/SELECT_FILTER");
17BIO::remote_awar($gb_main,"ARB_PARS","tmp/pars/filter/subname"," data\AECOLI");
18BIO::remote_action($gb_main,"ARB_PARS","FILTER_SELECT_646076448/tmp/pars/filter/2filter/name");
19my $selected = BIO::remote_read_awar($gb_main,"ARB_NT","tmp/focus/species_name");
20BIO::remote_awar($gb_main,"ARB_PARS","tmp/pars/filter/2filter/subname",'@data'."\1".$selected);
21BIO::remote_action($gb_main,"ARB_PARS","FILTER_SELECT_1995317613/CLOSE");
22BIO::remote_action($gb_main,"ARB_PARS","FILTER_SELECT_646076448/CLOSE");
23BIO::remote_action($gb_main,"ARB_PARS","PARS_PROPS/GO");
24BIO::remote_action($gb_main,"ARB_PARS","add_marked");
25BIO::remote_action($gb_main,"ARB_PARS","quit");
26# recording stopped @ Mon Mar 10 14:22:17 2014
27ARB::close($gb_main);