Ticket #521: _logged.amc
| File _logged.amc, 421 bytes (added by westram, 10 years ago) |
|---|
| 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 @ Thu Apr 17 11:14:09 2014 |
| 15 | BIO::remote_action($gb_main,'ARB_NT','ARB_NT/SELECT_AN_ALIGNMENT'); |
| 16 | BIO::remote_awar($gb_main,'ARB_NT','presets/use','????'); |
| 17 | BIO::remote_action($gb_main,'ARB_NT','export_pos_var'); |
