要自己实现上下文相关的函数，就是靠 perldoc -f wantarray
Perl 的函数实际上是无法返回 hash 值的，只能返回 scalar 和 list 。 return %hash; 实际上是 my @list = %hash; return @list; 所以，不要写返回 hash 的函数，要返回 hash 总是使用 reference。 2012/7/1 De-Jian Zhao <[email protected]> > 各位好，请教一个问题。最近写了一个subroutine，**尝试了两种方法，主要区别是 子例程的返回值不同。一个是返回hash > reference（方法1），一个是直接返回 hash（方法2）。在运行时感觉方法2会稍有停顿。因此，**想问一个问题：方法2 > 中%fasseq在接收子 例程的返回值时是不是要复制一份结果，并不是直接操作子例 程中的那块内存地址？方法1中my %fasseq = > %$fasseq;是不是直接把地址传 给%fasseq进行操作？应当如何设置这个返回值？ > > 还有一个问题是：**Perl自带的函数根据上下文的不同可以返回scalar或者l**ist，自 己写子例程时如何实现？ > > > 方法1： > sub read_fasta_into_hash() { > my $fasfile = shift @_; > my %fasseq; > ..... > return \%fasseq; > } > my $fasseq = &read_fasta_into_hash($**fasfile); > my %fasseq = %$fasseq; > > > 方法2： > sub read_fasta_into_hash() { > my $fasfile = shift @_; > my %fasseq; > ..... > return %fasseq; > } > my %fasseq = &read_fasta_into_hash($**fasfile); > > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 > perlchina+unsubscribe@**googlegroups.com<perlchina%[email protected]> > 。 > 若有更多问题，请通过 > http://groups.google.com/**group/perlchina?hl=zh-CN<http://groups.google.com/group/perlchina?hl=zh-CN>访问此网上论坛。 > > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
