各位好，请教一个问题。最近写了一个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+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
2012年6月30日星期六
2012年6月28日星期四
Re: [PerlChina] 一个坑，自己掉进去好几次了。。。
DB<7> print 1 if !defined $a or $a == 0;
1
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
1
2012/6/29 cnhack TNT <cnhacktnt@gmail.com>
同掉过，路过。。。2012/6/29 wd <wd@wdicc.com>
#!/usr/bin/perl
use strict;
use warnings;
my $a;
if ( not defined $a || $a == 0 ) {
print 1;
}
就这段代码。。明眼人应该能看明白错在哪里。。。我已经掉进去好几次了。。。好像还在持续的掉。。nnd。。。
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
Re: [PerlChina] 一个坑，自己掉进去好几次了。。。
同掉过，路过。。。
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
2012/6/29 wd <wd@wdicc.com>
#!/usr/bin/perl
use strict;
use warnings;
my $a;
if ( not defined $a || $a == 0 ) {
print 1;
}
就这段代码。。明眼人应该能看明白错在哪里。。。我已经掉进去好几次了。。。好像还在持续的掉。。nnd。。。
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
[PerlChina] 一个坑，自己掉进去好几次了。。。
#!/usr/bin/perl
use strict;
use warnings;
my $a;
if ( not defined $a || $a == 0 ) {
print 1;
}
就这段代码。。明眼人应该能看明白错在哪里。。。我已经掉进去好几次了。。。好像还在持续的掉。。nnd。。。
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
2012年6月27日星期三
Re: [PerlChina] 发送邮件一般用什么模块？
wd
On Wednesday, June 27, 2012 at 6:41 PM, truncatei wrote:
我也推荐 MIME::Lite2012/6/27 wd <wd@wdicc.com>:我也不用 outlook。。。可是又不得不照顾他们的情绪，nnd我回头看看各位说的，多谢了。2012/6/27 xatierlike Lee <xatierlike@gmail.com>:maybe you can try thesehttp://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pmhttp://search.cpan.org/~gbarr/libnet-1.21/Net/SMTP.pmbut I never use outlook lol2012/6/27 wd <wd@wdicc.com>hi,经常会需要使用程序发送邮件，不知道大家都用哪个？需要支持使用本机 meta 发送，不需要用户名密码，需要支持发送 html 邮件，需要让 outlook用户看不到乱码。。。。感觉最后这个最难搞了。。。自己写了一个模块，在 outlook 之外的客户端里面都正常，就是 outlook乱码，nnd--您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。--您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。--您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。--如果觉得无聊，您不妨访问Google Reader消遣 https://www.google.com/reader/view要尝试黑版本Google，请访问 http://tinyurl.com/yk3yp7j--您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
Re: [PerlChina] 发送邮件一般用什么模块？
我也推荐 MIME::Lite
2012/6/27 wd <wd@wdicc.com>:
> 我也不用 outlook。。。可是又不得不照顾他们的情绪，nnd
> 我回头看看各位说的，多谢了。
>
> 2012/6/27 xatierlike Lee <xatierlike@gmail.com>:
>> maybe you can try these
>>
>> http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm
>>
>> http://search.cpan.org/~gbarr/libnet-1.21/Net/SMTP.pm
>>
>>
>> but I never use outlook lol
>>
>> 2012/6/27 wd <wd@wdicc.com>
>>>
>>> hi,
>>>
>>> 经常会需要使用程序发送邮件，不知道大家都用哪个？
>>>
>>> 需要支持使用本机 meta 发送，不需要用户名密码，需要支持发送 html 邮件，需要让 outlook
>>> 用户看不到乱码。。。。感觉最后这个最难搞了。。。自己写了一个模块，在 outlook 之外的客户端里面都正常，就是 outlook
>>> 乱码，nnd
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
--
如果觉得无聊，您不妨访问Google Reader消遣 https://www.google.com/reader/view
要尝试黑版本Google，请访问 http://tinyurl.com/yk3yp7j
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
2012年6月26日星期二
Re: [PerlChina] 发送邮件一般用什么模块？
我也不用 outlook。。。可是又不得不照顾他们的情绪，nnd
我回头看看各位说的，多谢了。
我回头看看各位说的，多谢了。
2012/6/27 xatierlike Lee <xatierlike@gmail.com>:
> maybe you can try these
>
> http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm
>
> http://search.cpan.org/~gbarr/libnet-1.21/Net/SMTP.pm
>
>
> but I never use outlook lol
>
> 2012/6/27 wd <wd@wdicc.com>
>>
>> hi,
>>
>> 经常会需要使用程序发送邮件，不知道大家都用哪个？
>>
>> 需要支持使用本机 meta 发送，不需要用户名密码，需要支持发送 html 邮件，需要让 outlook
>> 用户看不到乱码。。。。感觉最后这个最难搞了。。。自己写了一个模块，在 outlook 之外的客户端里面都正常，就是 outlook
>> 乱码，nnd
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
Re: [PerlChina] 发送邮件一般用什么模块？
maybe you can try these
but I never use outlook lol
-- 2012/6/27 wd <wd@wdicc.com>
hi,
经常会需要使用程序发送邮件，不知道大家都用哪个？
需要支持使用本机 meta 发送，不需要用户名密码，需要支持发送 html 邮件，需要让 outlook
用户看不到乱码。。。。感觉最后这个最难搞了。。。自己写了一个模块，在 outlook 之外的客户端里面都正常，就是 outlook
乱码，nnd
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
Re: [PerlChina] 发送邮件一般用什么模块？
MIME::Lite is good.
2012/6/27 wd <wd@wdicc.com>:
> hi,
>
> 经常会需要使用程序发送邮件，不知道大家都用哪个？
>
> 需要支持使用本机 meta 发送，不需要用户名密码，需要支持发送 html 邮件，需要让 outlook
> 用户看不到乱码。。。。感觉最后这个最难搞了。。。自己写了一个模块，在 outlook 之外的客户端里面都正常，就是 outlook
> 乱码，nnd
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
--
Fayland Lam // http://www.fayland.org/
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
[PerlChina] 发送邮件一般用什么模块？
hi,
经常会需要使用程序发送邮件，不知道大家都用哪个？
需要支持使用本机 meta 发送，不需要用户名密码，需要支持发送 html 邮件，需要让 outlook
用户看不到乱码。。。。感觉最后这个最难搞了。。。自己写了一个模块，在 outlook 之外的客户端里面都正常，就是 outlook
乱码，nnd
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
2012年6月25日星期一
[PerlChina] Fwd: [Perlweekly] #48 - French workshop in 4 days and fund-raising for a Dancer project
---------- Forwarded message ----------
From: Gabor Szabo <gabor@szabgab.com>
Date: Mon, Jun 25, 2012 at 6:02 PM
Subject: [Perlweekly] #48 - French workshop in 4 days and fund-raising for a Dancer project
To: perlweekly@perlweekly.com
_______________________________________________
Perlweekly mailing list
Perlweekly@perlweekly.com
http://mail.perlweekly.com/mailman/listinfo/perlweekly
From: Gabor Szabo <gabor@szabgab.com>
Date: Mon, Jun 25, 2012 at 6:02 PM
Subject: [Perlweekly] #48 - French workshop in 4 days and fund-raising for a Dancer project
To: perlweekly@perlweekly.com
| Issue #48 - June 25, 2012 - French workshop in 4 days and fund-raising for a Dancer project You can read the newsletter on the web, if you prefer. Hi, After a long time, I finally wrote a new blog entry on my site. It is still only a meta-article about writing articles, but I think I am on the right track. Be prepared for more articles from me! This issue is still full of links to YAPC::NA related articles. People are still writing their reports. The more the better! Other people take notice if there are many articles. If you have not written yours yet, go ahead and do so! The official videos have also started to appear on YouTube. I have already watched three. Other than that, I think I'll just let you read the articles: Announcements Perl White Camel 2012 awards announced Articles Promoting Perl to Dissimilar Users Marpa & customizing the Ruby Slippers Simplifying Perl Web Programming for Novices A new look for Mojolicious Sqitch: Rename Step Objects and the SQL Directory? Discussion One of my most used and least understood perl snippets Books More Programming Perls to give away Code Learning Perl Challenge: finding duplicates (Answer) Shaving the White Whale (DBIx::NoSQL + MooseX::Storage) A Simple Perl-Based RSS to Email Program Controlling Firefox from Perl with MozRepl Fun Dancer is community-driven monitoring our machine room temperature with nagios, perl and arduino Grants Alien::Base Grant - Report #4 Science Announcing Math::Mathematica Parrot 4.5.0 Parrot 'Buff-faced Pygmy Parrot' Released! Videos YAPC::NA 2012 video recordings Other MetaCPAN favourites weekly report stackoverflow perl report Fund raising Food Scan Card YAPC::NA reports YAPC::NA 2012: Mojolicious, swag, and pizzazz YAPC::NA 2012 by scrottie My First #YAPC My YAPC::NA 2012 notes and recap Don't Box Me In: YAPC::NA 2012 Impressions Events I usually list the next 3-4 events here. The list of all the events can be found on the web site. If your Perl event is not listed there, please let me know. French Perl workshop YAPC::EU 2012 YAPC::Asia Tokyo 2012 You joined the Perl Weekly to get weekly e-mails about the Perl programming language and related topics. You can freely redistribute this message if you keep the whole message intact, including the Copyright notice and this text. |
_______________________________________________
Perlweekly mailing list
Perlweekly@perlweekly.com
http://mail.perlweekly.com/mailman/listinfo/perlweekly
Fayland Lam // http://www.fayland.org/
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
订阅：
博文 (Atom)
博文
