0

通用代码是：

use strict;
use warnings;

my $f = $ARGV[0];
use Bio::EnsEMBL::Registry;
use Bio::EnsEMBL::ApiVersion;

my $registry = 'Bio::EnsEMBL::Registry';
$registry->load_registry_from_db(
-host => 'ensembldb.ensembl.org',
-user => 'anonymous',
-port => '5306'
);

my $adaptor = $registry->get_adaptor( 'Homo sapiens', 'core', 'transcript' );

my $transcript =
$adaptor->fetch_by_translation_stable_id($f);

最后一行

#

对于最后一行，我无法将两个值打印为同一行中的两列：

尝试 1 代码：打印 $f 。$transcript->display_id。"\n";

结果：api.test.pl ENSP00000418690

ENSP00000418690ENST00000488594

尝试 2 代码：打印 $f，$transcript->display_id。"\n";

结果：perl api.test.pl ENSP00000418690：

ENSP00000418690ENST00000488594

任何其他尝试都会影响访问 display_id。我想要的格式是：ENSP00000418690 ENST00000488594

4

2 回答 2

1

如果要在值之间留一个空格，请在值之间打印一个空格。

print $f, " ", $transcript->display_id, "\n";

点将两个字符串连接成一个字符串，这里没有必要，因为它print接受逗号分隔的值列表。

于 2012-07-16T11:32:56.107 回答
0

只是提到另一种可能性，您可以使用两个内置的 perl 变量。

{
    local $, = " ";   # Output field separator
    local $\ = "\n";  # Output record separator
    print $f, $transcript->display_id;
}

输出字段分隔符会在传递给的列表中的每个参数之间自动打印print。输出记录分隔符打印在 的最后一个参数之后print。默认情况下两者都是未定义的，并解释为“不打印任何内容”。

我将它们声明为块的本地，作为将它们限制为单个print语句的最简单方法。

于 2012-07-16T13:32:12.850 回答