Context Navigation

Ticket #456: add_marked_self_filtered.amc

File add_marked_self_filtered.amc, 1.1 KB (added by westram, 10 years ago)
add one species to using itself as filter

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