请教一个语法问题 [复制链接]

tvb 该用户已被删除	电梯直达 1楼 [收藏(0)] [报告] 发表于 2007-12-09 15:32 \|只看该作者 \|倒序浏览提示: 作者被禁止或删除内容自动屏蔽
tvb 该用户已被删除	文库\|博客使用正则表达式与lex实现词法分析器 C语言的MIPS汇编实现（四）SWITCH Requested init /linuxrc failed (error -2). 比较 csv 文件中数据差异 LMD ElPack v2019.7新版亮点：Transparent mode全新升级\|附下载

Lonki

小富即安

论坛徽章:: 0

2楼 [报告]

发表于 2007-12-09 15:32 |只看该作者

从code看起来, 返回的是list的引用, @{...}来解引用为list

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

Nosferatu

丰衣足食

论坛徽章:: 0

3楼 [报告]

发表于 2007-12-09 16:13 |只看该作者

难得看到搞生物信息的战友阿

get_all_DBAdaptors()返回的确实是引用。
源码:

sub get_all_DBAdaptors {

  my ($class,@args)=@_;
  my @ret;

  my ($species, $group) =
rearrange([qw(SPECIES GROUP)], @args);
  if(defined($species)){
$species = $class->get_alias($species);
  }
  foreach my $dba (@{$registry_register{'_DBA'}}){
if(!defined($species) || lc($species) eq lc($dba->species)){
   if(!defined($group) || lc($group) eq lc($dba->group)){
push @ret, $dba;
   }
}
  }

  return\@ ret;

}

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

tvb 该用户已被删除	4楼 [报告] 发表于 2007-12-09 16:35 \|只看该作者提示: 作者被禁止或删除内容自动屏蔽
tvb 该用户已被删除	实战分享：从技术角度谈机器学习入门\| 【大话IT】RadonDB低门槛向MySQL集群下战书 \| ChinaUnix打赏功能已上线！ \| 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 请教一个语法问题