非常感谢！ On 2012-7-1 23:16, Robin Lee wrote: > 要自己实现上下文相关的函数，就是靠 perldoc -f wantarray > > > Perl 的函数实际上是无法返回 hash 值的，只能返回 scalar 和 list 。 > return %hash; > 实际上是 > my @list = %hash; > return @list; > > 所以，不要写返回 hash 的函数，要返回 hash 总是使用 reference。 > > 2012/7/1 De-Jian Zhao <dejian.z...@gmail.com > <mailto:dejian.z...@gmail.com>> > > 各位好，请教一个问题。最近写了一个subroutine，尝试了两种方法，主要 > 区别是 子例程的返回值不同。一个是返回hash reference（方法1），一个 > 是直接返回 hash（方法2）。在运行时感觉方法2会稍有停顿。因此，想问 > 一个问题：方法2 中%fasseq在接收子 例程的返回值时是不是要复制一份结 > 果，并不是直接操作子例 程中的那块内存地址？方法1中my %fasseq = > %$fasseq;是不是直接把地址传 给%fasseq进行操作？应当如何设置这个返 > 回值？ > > 还有一个问题是：Perl自带的函数根据上下文的不同可以返回scalar或者 > list，自 己写子例程时如何实现？ > > > 方法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 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscr...@googlegroups.com。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
