Perl China Blog Spot: 2011-11-06

2011年11月12日星期六

Re: [PerlChina] 求WIN32::GUI学习资料

perldoc，好像wins下的perl应用有本专门的书的

2011/11/11 李春荣 <camdesign@vip.qq.com>

不各哪位高人有WIN32::GUI的学习资料？能否共享一份给小弟！

------------------

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Yours Sincerely
Zeng Hong

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

2011年11月11日星期五

Re: [PerlChina] POD_CN perldsc.pod翻译完毕请校对

我英文只能马马虎虎看懂，还没达到翻译的地步，支持一下。

在 2011年11月11日下午1:31，wxm <wxm4ever@gmail.com>写道：

等忙完这段考试，考虑试试翻译。

于 11/11/2011 11:39 AM, woosley. xu. 写道:
最好把断行和译者信息加上吧
英文pod的一行字符数貌似是75个

在 2011年11月11日上午10:42，Fangyuan <chengfangyuan2008@gmail.com>写道：

Hi， All
perldsc - data structure complex data structure struct翻译完了，麻烦校对。
请见https://github.com/PerlChina/POD_CN/blob /master/INPROGRESS/perldsc.pod
原文档在http://perldoc.perl.org/perldsc.html

翻译的时候发现自己能力欠缺，感觉英文的意思理解了，但翻不好，翻译出来的中文怕人看不懂，又忽然开始怀疑自己，自己究竟理解了没有呀，诚惶诚恐。

希望越来越多的热心人一起来把Perl社区搞活。

相信很多人有这样的经历：
路人甲：你做什么的？
我：程序员。
路人甲：哦，用的是啥语言呀？
我：Perl。
路人甲：什么？我怎么没听过，这个是干啥的？

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要在网络上查看此讨论，请访问 https://groups.google.com/d/msg/perlchina/-/p69DcoloPzAJ。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
woosley.xu. http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 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] 求WIN32::GUI学习资料

不各哪位高人有WIN32::GUI的学习资料？能否共享一份给小弟！

------------------

回复：[PerlChina] Ask help for Perl sort customized function

不知道有没有理解对你的意思，就是为了对数据进行排序。脚本可以尝试这样：
my @a=(0..20);
my @b=sort {$a <=> $b} @a;
print "@b\n";
----- 原始邮件 -----
发件人：Fangyuan <chengfangyuan2008@gmail.com>
收件人：perlchina@googlegroups.com
主题：[PerlChina] Ask help for Perl sort customized function
日期：2011年09月19日 15点41分

2011年11月10日星期四

[PerlChina] perl程序求助

各位高手,来帮帮我吧.
最近为了工作方便,写了一小段perl,结果现在有如下问题:
程序的目的是 telnet 到设备上,执行相应命令,将返回值,记录到xxxx.log文件中.
问题:
1.若所有设备都在线,则工作一切正常.如果有一台设备不在线,则整个程序都停掉了,只会生成前面在线设备的日志.
2.若密码在没有修改的情况下,一切正常,改了密码就会停掉整个程序.
我现在需要解决的是
1.判断是否可以telnet,如果不可以,写产生相应无法telnet的日志.
2.判断telnet是否成功,如果不成功则产生相应日志后,继续执行下面的程序.

程序代码如下:
#!/usr/bin/perl
use 5.010;
use Net::Telnet::Cisco;
open (IPLIST,'<.\iplist.txt'); #iplist.txt是存放IP地址用的,格式为 1.1.1.1#2.2.2.2#3.3.3.3
$ip = <IPLIST>;
@ips = split '#',$ip;
foreach $slog(@ips)
{
my $session = Net::Telnet::Cisco->new(Host => $slog);
$session->login('','password');
if($session->enable('enpassword'))
{
open(RZ,">$slog.log"); #用IP地址作为文件名,生成日志文件
@clo = $session->cmd('show clock');
@ver = $session->cmd('show ver');
@iib = $session->cmd('show ip int brief');
@log = $session->cmd('show logging');
print RZ "show clock \n\n @clo \n";
print RZ "show version \n\n @ver \n";
print RZ "show ip int brief \n\n @iib \n";
print RZ "show logging \n\n @log \n";
}
else
{
warn "Can't enable: " . $session->errmsg;
}
$session->close;
close RZ;
}
close IPLIST;
麻烦大家给瞧一瞧吧,谢谢了

Re: [PerlChina] POD_CN perldsc.pod翻译完毕请校对

等忙完这段考试，考虑试试翻译。

于 11/11/2011 11:39 AM, woosley. xu. 写道:

最好把断行和译者信息加上吧
英文pod的一行字符数貌似是75个

在 2011年11月11日上午10:42，Fangyuan <chengfangyuan2008@gmail.com>写道：

Hi， All
perldsc - data structure complex data structure struct翻译完了，麻烦校对。
请见https://github.com/PerlChina/POD_CN/blob /master/INPROGRESS/perldsc.pod
原文档在http://perldoc.perl.org/perldsc.html

翻译的时候发现自己能力欠缺，感觉英文的意思理解了，但翻不好，翻译出来的中文怕人看不懂，又忽然开始怀疑自己，自己究竟理解了没有呀，诚惶诚恐。
希望越来越多的热心人一起来把Perl社区搞活。

相信很多人有这样的经历：
路人甲：你做什么的？
我：程序员。
路人甲：哦，用的是啥语言呀？
我：Perl。
路人甲：什么？我怎么没听过，这个是干啥的？

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要在网络上查看此讨论，请访问 https://groups.google.com/d/msg/perlchina/-/p69DcoloPzAJ。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
woosley.xu. http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] POD_CN perldsc.pod翻译完毕请校对

最好把断行和译者信息加上吧
英文pod的一行字符数貌似是75个

在 2011年11月11日上午10:42，Fangyuan <chengfangyuan2008@gmail.com>写道：

Hi， All
perldsc - data structure complex data structure struct翻译完了，麻烦校对。
请见https://github.com/PerlChina/POD_CN/blob/master/INPROGRESS/perldsc.pod
原文档在http://perldoc.perl.org/perldsc.html

翻译的时候发现自己能力欠缺，感觉英文的意思理解了，但翻不好，翻译出来的中文怕人看不懂，又忽然开始怀疑自己，自己究竟理解了没有呀，诚惶诚恐。
希望越来越多的热心人一起来把Perl社区搞活。

相信很多人有这样的经历：
路人甲：你做什么的？
我：程序员。
路人甲：哦，用的是啥语言呀？
我：Perl。
路人甲：什么？我怎么没听过，这个是干啥的？

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要在网络上查看此讨论，请访问 https://groups.google.com/d/msg/perlchina/-/p69DcoloPzAJ。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
woosley.xu. http://twitter.com/redicaps

[PerlChina] POD_CN perldsc.pod翻译完毕请校对

Hi， All
perldsc - data structure complex data structure struct翻译完了，麻烦校对。
请见https://github.com/PerlChina/POD_CN/blob/master/INPROGRESS/perldsc.pod
原文档在http://perldoc.perl.org/perldsc.html

翻译的时候发现自己能力欠缺，感觉英文的意思理解了，但翻不好，翻译出来的中文怕人看不懂，又忽然开始怀疑自己，自己究竟理解了没有呀，诚惶诚恐。
希望越来越多的热心人一起来把Perl社区搞活。

相信很多人有这样的经历：
路人甲：你做什么的？
我：程序员。
路人甲：哦，用的是啥语言呀？
我：Perl。
路人甲：什么？我怎么没听过，这个是干啥的？

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要在网络上查看此讨论，请访问 https://groups.google.com/d/msg/perlchina/-/p69DcoloPzAJ。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] Re: 代码解读(GetOptions)

Sorry, it seems that I am using UTF8.
Anyway, try a different character-encoding system when the message is
incorrectly displayed.

On 2011-11-10 17:04, Dejian Zhao wrote:
> Try a different character-encoding system, e.g. GBK or GB2312.
> You are using UTF-8.
>
> On 2011-11-9 17:02, frostyplanet(plan) wrote:
>> 为啥二楼的帖子是乱码呢？
>>
>> On Nov 5, 11:04 pm, Dejian Zhao<dejian.z...@gmail.com> wrote:
>>> Q2 ˣ в ˽ű ڲ $Fileformat ַ ˭ ˭
>>> һ ͬһ ڴ ַ
>>>
>>> perl -le 'my $a=1;my $b=\$a; $$b=5;print $a'
>>> 5 1
>>> в ൱ $b ű ڲ ı ൱ $a в ֵ
>>> ʱ ֱ ޸ ˽ű ڲ ֵ
>>>
>

Re: [PerlChina] Re: 代码解读(GetOptions)

Try a different character-encoding system, e.g. GBK or GB2312.
You are using UTF-8.

On 2011-11-9 17:02, frostyplanet(plan) wrote:
> 为啥二楼的帖子是乱码呢？
>
> On Nov 5, 11:04 pm, Dejian Zhao<dejian.z...@gmail.com> wrote:
>> Q2 ˣ в ˽ű ڲ $Fileformat ַ ˭ ˭
>> һ ͬһ ڴ ַ
>>
>> perl -le 'my $a=1;my $b=\$a; $$b=5;print $a'
>> 5 1
>> в ൱ $b ű ڲ ı ൱ $a в ֵ
>> ʱ ֱ ޸ ˽ű ڲ ֵ
>>

2011年11月9日星期三

[PerlChina] Re: perlootut.pod基本翻译完毕

强人呀！比较不错的。希望拿出来分享

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要在网络上查看此讨论，请访问 https://groups.google.com/d/msg/perlchina/-/rRZhFiFJ6msJ。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

[PerlChina] Re: 代码解读(GetOptions)

为啥二楼的帖子是乱码呢？

On Nov 5, 11:04 pm, Dejian Zhao <dejian.z...@gmail.com> wrote:
> Q2 ˣ в ˽ű ڲ $Fileformat ַ ˭ ˭
> һ ͬһ ڴ ַ
>
> perl -le 'my $a=1;my $b=\$a; $$b=5;print $a'
> 5 1
> в ൱ $b ű ڲ ı ൱ $a в ֵ
> ʱ ֱ ޸ ˽ű ڲ ֵ
>
> On 2011-11-6 10:56, Dejian Zhao wrote:
>
>
>
>
>
>
>
> > Q1,Q3,Q4 ˣ Q2 ǲ ̫ ס
>
> > Q2 \$Fileformat ĳ $Fileformat ǲ Եģ ᱨ ?Undefined argument
> > in option spec ڵ ˭ ˭ Ҿ Ӧ ǽű ڲ ı
> > $Fileformatȥ в Ӧ $FileformatӦ ָ в
> > fileformat ڴ ַ Ǵ Ͻ ƺ $Fileformat ã
> > в $Fileformat ѵ ˭ ˭ һ ʵ ǲ ͬһ ڴ ַ
>
> > Q3: ԭ "fileformat:s"=>\$Fileformat д "fileformat:s"=>
> > \$fileformat ( Ȼǰ ǰ my $Fileformat Ϊmy $fileformat) ҿ
> > ű ж Сд Ҳ ѵ һ ĸ д Ͳ ⡣ Ǹ ϰ
> > ߵ ɣ Ҹ ϲ д "fileformat:s"=>\$fileformat
>
> > Q4: ˣ ӵġ @ARGV
>
> > On 2011-11-6 6:47, Michael Zeng wrote:
> >> perldoc GetOpt::Long Ӧ ܿ manual ܶ࣬ Ҽǵ
> >> ش
> >> 1 Ҳ鿴 perldoc Getopt::Long ֪ fileformat ʹ
> >> Ĳ Ӧ һ string Ȼ 󴫵ݵ ڲ ʱ $Fileformat
> >> ֵ ô û
> >> Ҫ ֵĶ ұ Լ Ĳ ű
> >> test.pl <http://test.pl> -fileformat AAA -cutoff BBB -verbose CCCC
> >> -help DDD ,
> >> AAA, BBB, CCC , DDD Զ ı 滻 4 Ӷ ȡ
> >> 2 Ϊʲô \$Fileformat һ reference أ д "fileformat:s"=&
> >> gt;$Fileformat ɲ ԣ Ϊʲô ʲô
> >> ã һ 㶼 ã һ ָ Ķ
> >> 3 ⣬Ϊʲô ʹ fileformat ڲ Ͳ ʹ
> >> $fileformat ǻ $Fileformat أ test.pl <http://test.pl>
> >> û ռ $fileformat
> >> ű һ ʼӦ ö my ($Fileformat,$Cutoff,$Verbose,$Help); ˣ
> >> Ȼ ֻ Щ
> >> 4 д˳ ʱ صĲ ڲ GetOptions
> >> ?û б ָ Ĳ @ARGV
> >> ǵã Ӧ ǣ
> >> ٶ࿴ manual
>
> >> 2011/11/6 Dejian Zhao <dejian.z...@gmail.com
> >> <mailto:dejian.z...@gmail.com>>
>
> >> ڱ ˽ű (test.pl <http://test.pl/>) п ģ м
> >> ⣬ϣ ˸ һ ¡ л
>
> >> ==========test.pl <http://test.pl/>========
> >> use strict;
> >> use Getopt::Long;
>
> >> my ($Fileformat,$Cutoff,$Verbose,$Help);
> >> GetOptions(
> >> "fileformat:s"=>\$Fileformat,
> >> "cutoff:s"=>\$Cutoff,
> >> "verbose"=>\$Verbose,
> >> "help"=>\$Help
> >> );
> >> die `pod2text $0` if (@ARGV == 0 || $Help);
> >> =========================
>
> >> Ҫ GetOptions() Ĳ ֿ
> >> "fileformat:s"=>\$FileformatΪ δ 롣
>
> >> 1 Ҳ鿴 perldoc Getopt::Long ֪ fileformat
> >> ʹ õĲ Ӧ һ string Ȼ 󴫵ݵ ڲ ʱ $Fileformat
> >> ֵ ô û
>
> >> 2 Ϊʲô \$Fileformat һ reference أ д
> >> "fileformat:s"=>$Fileformat ԣ Ϊʲô ʲô
>
> >> 3 ⣬Ϊʲô ʹ fileformat ڲ Ͳ ʹ
> >> $fileformat ǻ $Fileformat أ test.pl <http://test.pl
> >> /> û ռ $fileformat
>
> >> 4 д˳ ʱ صĲ ڲ GetOptions
> >> ?û б ָ Ĳ @ARGV

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

2011年11月8日星期二

Re: [PerlChina] perlootut.pod基本翻译完毕

很棒。

在 2011年11月8日上午11:30，赵明 <zhaoming159753@126.com>写道：

Thank you very much, perfect work!

From: woosley. xu.

Sent: Tuesday, November 08, 2011 10:47 AM

To: perlchina@googlegroups.com

Subject: [PerlChina] perlootut.pod基本翻译完毕

Hi all,
      https://github.com/PerlChina/POD_CN/blob/master/INPROGRESS/perlootut.pod
      about this tut: http://blog.urth.org/2011/09/my-new-oo-docs-for-the-perl-core-have-been-merged.html。
      please help review it.


--
woosley.xu.    http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 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 访问此网上论坛。

--
---------------------------
Achilles Xu

Re: [PerlChina] perlootut.pod基本翻译完毕

很棒。

在 2011年11月8日上午11:30，赵明 <zhaoming159753@126.com>写道：

Thank you very much, perfect work!

From: woosley. xu.

Sent: Tuesday, November 08, 2011 10:47 AM

To: perlchina@googlegroups.com

Subject: [PerlChina] perlootut.pod基本翻译完毕

Hi all,
      https://github.com/PerlChina/POD_CN/blob/master/INPROGRESS/perlootut.pod
      about this tut: http://blog.urth.org/2011/09/my-new-oo-docs-for-the-perl-core-have-been-merged.html。
      please help review it.


--
woosley.xu.    http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 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 访问此网上论坛。

--
---------------------------
Achilles Xu

2011年11月7日星期一

Re: [PerlChina] perlootut.pod基本翻译完毕

Thank you very much, perfect work!

From: woosley. xu.

Sent: Tuesday, November 08, 2011 10:47 AM

To: perlchina@googlegroups.com

Subject: [PerlChina] perlootut.pod基本翻译完毕

Hi all,
      https://github.com/PerlChina/POD_CN/blob/master/INPROGRESS/perlootut.pod
      about this tut: http://blog.urth.org/2011/09/my-new-oo-docs-for-the-perl-core-have-been-merged.html。
      please help review it.


--
woosley.xu.    http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

[PerlChina] perlootut.pod基本翻译完毕

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 工欲善其事，必先利其器

you can use eclipse Perl plugin to develop Perl.

http://www.epic-ide.org/

在 2011年11月6日上午12:29，Dejian Zhao <dejian.zhao@gmail.com>写道：

Komodo 还是很不错的。

On 2011-11-3 17:56, woosley. xu. wrote:
I use vim + perl-support

for IDE, check out Padre, Komodo

在 2011年11月3日下午5:51，yi wang <wangyi2412@gmail.com>写道：

Hi, All!

I constantly use perl to do some sequence related tasks. It's easy and convenient.

But, one thing I have not fixed and is really uncomfortable and inefficient is the IDE, or say, development environment. Is there any good IDE for perl?

I know I can simply use UltraEdit to type my program and use "print" to debug on command line, but this is really hateful, especially when I am in huge programs I want to debug.

What are you, my fellow guys using? Could you please share your tools? Thanks a lot.

Best,

wang
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
woosley.xu. http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 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 访问此网上论坛。

Thanks!

O(∩_∩)O

--Try my best to do everything!--

Re: [PerlChina] 代码解读(GetOptions)

解释的不错。学习了。。。

在 2011年11月6日下午8:21，woosley. xu. <redicaps@gmail.com>写道：

Getoptions函数需要把你的参数值传递给给$fileformat，所有要引用

比如
#!/usr/bin/perl -w
use warnings;
my $a;
sub changeValue($){
    my $lo = shift;
    $$lo = 5;
}

sub badChangeValue($){
    my $a = shift;
    $a = 5;
}

badChangeValue($a);
print $a;
changeValue($a);
print $a;
changeValue(\$a);
print $a;

woosley@woosley-PC ~
$ perl t.pl
Use of uninitialized value $a in print at t.pl line 15.
Use of uninitialized value $a in print at t.pl line 17.
5

在 2011年11月6日上午11:04，Dejian Zhao <dejian.zhao@gmail.com>写道：

Q2：好像明白了，是命令行参数引用了脚本内部的$Fileformat地址，谁引用谁都一样，操作的是同一块内存地址。

perl -le 'my $a=1;my $b=\$a; $$b=5;print $a'
输出结果是5，而不是1。
命令行参数就相当于这里的$b，脚本内部的变量就相当于$a，给命令行参数传递值时就直接修改了脚本内部变量的值。

On 2011-11-6 10:56, Dejian Zhao wrote:
Q1,Q3,Q4都解决了，Q2还是不太明白。

Q2：将\$Fileformat改成$Fileformat是不可以的，会报错“Undefined argument in option spec”，现在的问题是谁引用谁？我觉得应当是脚本内部的变量$Fileformat去引用命令行参数，应当是$Fileformat应当指向命令行参数fileformat的内存地址，但是从语法上讲，似乎是$Fileformat被引用，是命令行参数引用了$Fileformat？难道谁引用谁都一样，实际是操作同一块内存地址？

Q3: 原来"fileformat:s"=>\$Fileformat可以写成"fileformat:s"=>\$fileformat (当然前提是把my $Fileformat改为my $fileformat)，我看到的脚本中都是左侧用小写，右侧把第一个字母大写，就产生了误解。可能是个人习惯的问题吧，我更喜欢写成"fileformat:s"=>\$fileformat。

Q4: 测试了，是这样子的。其余参数保存进了@ARGV

On 2011-11-6 6:47, Michael Zeng wrote:

perldoc GetOpt::Long 应该能看懂啊，不过manual很多，我记得

我来回答下

1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令行中使用的参数，应当是一个string，然后传递到程序内部时由$Fileformat接收这个值。是这样么？有没有误读？

左边是命令行要出现的东西，右边是自己输入的参数，比如这个脚本用做

test.pl -fileformat AAA -cutoff BBB -verbose CCCC -help DDD ,

命令行输入的AAA, BBB, CCC , DDD 自动的被替换成那 4 个变量，从而被获取，

2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=& gt;$Fileformat可不可以，为什么？二者什么区别？

是用引用，一般都是引用，是一个指针的东西，

3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat，而是换成$Fileformat 呢？在test.pl内部并没有占用$fileformat这个变量啊？

脚本一开始应该定义了 my ($Fileformat,$Cutoff,$Verbose,$Help); 了，当然是只能用这些变量，

4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进 @ARGV？

这个不记得，应该是，

再多看看 manual，

2011/11/6 Dejian Zhao <dejian.zhao@gmail.com>

下面代码是在别人脚本(test.pl)中看到的，有几个问题，希望达人给解答一下。多谢！

==========test.pl========
use strict;
use Getopt::Long;

my ($Fileformat,$Cutoff,$Verbose,$Help);
GetOptions(
    "fileformat:s"=>\$Fileformat,
    "cutoff:s"=>\$Cutoff,
    "verbose"=>\$Verbose,
    "help"=>\$Help
);
die `pod2text $0` if (@ARGV == 0 || $Help);
=========================

主要是GetOptions()里面的部分看不懂，以 "fileformat:s"=>\$Fileformat为例来解读这段代码。

1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令行中使用的参数，应当是一个string，然后传递到程序内部时由$Fileformat接收这个值。是这样么？有没有误读？

2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=>$Fileformat可不可以，为什么？二者什么区别？

3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat，而是换成$Fileformat呢？在test.pl内部并没有占用$fileformat这个变量啊？

4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进@ARGV？

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
woosley.xu.    http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Thanks!

O(∩_∩)O

--Try my best to do everything!--

2011年11月6日星期日

Re: [PerlChina] 开源数据分发系统

publish/subscribe
这个东西应该各种语言都有一堆的实现吧

2011/11/6 centerqi hu <centerqi@gmail.com>:
> Hi All
> 最近一直在找一开源的数据transfer系统。
>
> 需求如下
>
> 好几个模块要知道用户的一个操作，如用户下完了一个订单，或者用户提交了一个问题，这一行为要告诉很多模块，我希望有一个这样的模块，用户完成一个操作，这个模块能把这一行为和数据，提交到各个模块，希望这一个模块有transfer的功能，完成数据转发。
>
>
> 像这种系统，应该需求是比较大的，如新�微博，用记发表了一条微博，应该有很多模块是要接收这一数据的，在 taobao
> 上面下一个订单，应该也有不少模块要关注此用户的操作和数据的。
>
>
> 我找了一下，没有找到相应的开源系统，麻烦各位帮忙推荐一下，或者有什么好的方法？
>
> 谢谢
>
> --
> 您收到此邮件是因为您订阅了 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] Re: POD CN project

就是差不多更新就行了，不用那么矫情。

在 2011年11月5日下午1:24，woosley. xu. <redicaps@gmail.com>写道：

no no no
我绝对不能保证5.16出来能及时更新
及时更新这个任务谁都不能保证
所以不要放一个"能就行"的说法在这里

在 2011年11月5日上午10:16，Achilles Xu <formalin14@gmail.com>写道：

理论上来说，还是基于稳定版比较好。

不过你想翻的这个比较特殊，你先翻着吧，等5.16出来你能及时更新就行。

在 2011年11月5日上午12:55，atiking <jinyao.sh@gmail.com>写道：

挺好的
我只是提下版本的问题
因为一开始没找到perlootut...

On Nov 5, 12:04 am, "woosley. xu." <redic...@gmail.com> wrote:
> 挑选这个翻译是觉着这个文档比较有意义，介绍了Perl里面OO比较新的东西。
> 其他没想太多
> 选一个稳定版本应该比较好
> 但鉴于这个文档在5.14里面也没有对应，放在这里也无所谓吧。
>

> 在 2011年11月4日下午11:42，atiking <jinyao...@gmail.com>写道：
>
>
>
>
>
>
>
>
>
> > 先确定一个翻译的版本吧
>
> > 像https://github.com/PerlChina/POD_CN/blob/master/INPROGRESS/perlootut.pod

> > 可能是5.15.3里才新加的吧
> > 是不是先从一个稳定版本做起
>
> > On Nov 3, 11:36 am, Fayland Lam <fayl...@gmail.com> wrote:
> > > The only thing I'm worrying about is that how to keep it up to date?
>
> > > others should be OK. Thanks.
>
> > > 2011/11/3 woosley. xu. <redic...@gmail.com>
>
> > > > Hi,
> > > > Sure we need a tool that can bulid html/pdf.
> > > > I am not sure about should we keep a EN version of the POD in the
> > project
> > > > or not.
>
> > > > I am tring to work out a translation process, here are some thoughts:
>
> > > > 1: 有待翻译的pod扔在TODO目录下。
> > > > 2: HANG下面是以前有人翻译但停滞的pod
> > > > 3: 如果有人翻译某个pod，则将之从TODO/HANG目录移至INPROGRESS，或者直接在INPROGRESS创建。
> > > > 4:
>
> > 如果你想让其他人review你的翻译，翻译过程中不要删除英文，翻译结束在邮件列表里面发个邮件。觉得可以了就可以删除英文部分并将文件移至POD/CN目录
> > 。
> > > > 5: POD/CN目录下面的翻译文件中不要保留英文部分。
>
> > > > 各位有何建议？
>
> > > > 在 2011年11月3日上午9:17，Fayland Lam <fayl...@gmail.com>写道：
>
> > > >> for POD CN projecthttps://github.com/PerlChina/POD_CN, can we borrow
> > > >> the code fromhttps://github.com/chromatic/modern_perl_book
>
> > > >> so that we can build html/pdf etc. and we need update the original
> > POD to
> > > >> the latest version?
>
> > > >> Thanks
> > > >> --
> > > >> 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访问此网上论坛。
>
> > > > --
> > > > woosley.xu. http://twitter.com/redicaps
>
> > > > --
> > > > 您收到此邮件是因为您订阅了 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访问此网上论坛。
>
> --
> woosley.xu. http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
---------------------------
Achilles Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
woosley.xu. http://twitter.com/redicaps

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
---------------------------
Achilles Xu

Re: [PerlChina] 开源数据分发系统

我也来试试RabbitMQ。

在 2011年11月6日下午11:13，风河 <shorttag@gmail.com>写道：

2011/11/6 centerqi hu <centerqi@gmail.com>:

> 感谢 Felix 提供的方案，消息中间件确实是一个不错的方案，但是有一个push和pull的问题，消息中间件会主动把数据push到各个模块吗?
> 如果发送到一个模块失败，他会重试吗？
>

我比较熟悉RabbitMQ，一个用erlang写的消息队列系统。
消息是分publish和consume的，就是一个客户端发送消息，另一个客户端接收消息。
没有主动push的机制，但是客户端可以保持长连接，及时接受就行了。
消息接收失败，可以自定义处理机制，如丢弃或重传。
RabbitMQ遵循AMQP（高级消息队列）协议，这个协议本身比较复杂，但是设计非常合理，使得RabbitMQ的消息路由模式很好很强大。
另：perl的Net::RabbitMQ兼容性很好，我同事用Java写的客户端有问题，我用perl的没问题。

--
My Blog: http://nsbeta.info/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
---------------------------
Achilles Xu

Re: [PerlChina] 开源数据分发系统

2011/11/6 centerqi hu <centerqi@gmail.com>:
> 感谢 Felix 提供的方案，消息中间件确实是一个不错的方案，但是有一个push和pull的问题，消息中间件会主动把数据push到各个模块吗?
> 如果发送到一个模块失败，他会重试吗？
>

我比较熟悉RabbitMQ，一个用erlang写的消息队列系统。
消息是分publish和consume的，就是一个客户端发送消息，另一个客户端接收消息。
没有主动push的机制，但是客户端可以保持长连接，及时接受就行了。
消息接收失败，可以自定义处理机制，如丢弃或重传。
RabbitMQ遵循AMQP（高级消息队列）协议，这个协议本身比较复杂，但是设计非常合理，使得RabbitMQ的消息路由模式很好很强大。
另：perl的Net::RabbitMQ兼容性很好，我同事用Java写的客户端有问题，我用perl的没问题。

--
My Blog: http://nsbeta.info/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 开源数据分发系统

感谢 Felix 提供的方案，消息中间件确实是一个不错的方案，但是有一个push和pull的问题，消息中间件会主动把数据push到各个模块吗?
如果发送到一个模块失败，他会重试吗？

以上这些点是我考虑的。

谢谢

在 2011年11月6日下午10:30，Felix New <moxnet@gmail.com> 写道：
> 这种情景下, 有许多公司使用的是MessageQueue,例似中间件, 如 RabbitMQ,当然还有许多其它类似的开源或商业的方案.
>
> 在 2011年11月6日下午10:23，centerqi hu <centerqi@gmail.com>写道：
>>
>> Hi All
>> 最近一直在找一开源的数据transfer系统。
>>
>> 需求如下
>>
>>
>> 好几个模块要知道用户的一个操作，如用户下完了一个订单，或者用户提交了一个问题，这一行为要告诉很多模块，我希望有一个这样的模块，用户完成一个操作，这个模块能把这一行为和数据，提交到各个模块，希望这一个模块有transfer的功能，完成数据转发。
>>
>>
>> 像这种系统，应该需求是比较大的，如新�微博，用记发表了一条微博，应该有很多模块是要接收这一数据的，在 taobao
>> 上面下一个订单，应该也有不少模块要关注此用户的操作和数据的。
>>
>>
>> 我找了一下，没有找到相应的开源系统，麻烦各位帮忙推荐一下，或者有什么好的方法？
>>
>> 谢谢
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>
>
>
> --
> Best regards.
> Felix New
>
> --
> 您收到此邮件是因为您订阅了 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] 开源数据分发系统

这种情景下, 有许多公司使用的是MessageQueue,例似中间件, 如 RabbitMQ,当然还有许多其它类似的开源或商业的方案.

在 2011年11月6日下午10:23，centerqi hu <centerqi@gmail.com>写道：

Hi All
最近一直在找一开源的数据transfer系统。

需求如下

好几个模块要知道用户的一个操作，如用户下完了一个订单，或者用户提交了一个问题，这一行为要告诉很多模块，我希望有一个这样的模块，用户完成一个操作，这个模块能把这一行为和数据，提交到各个模块，希望这一个模块有transfer的功能，完成数据转发。

像这种系统，应该需求是比较大的，如新�微博，用记发表了一条微博，应该有很多模块是要接收这一数据的，在 taobao
上面下一个订单，应该也有不少模块要关注此用户的操作和数据的。

我找了一下，没有找到相应的开源系统，麻烦各位帮忙推荐一下，或者有什么好的方法？

谢谢

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Best regards.
Felix New

[PerlChina] 开源数据分发系统

Hi All
最近一直在找一开源的数据transfer系统。

需求如下

好几个模块要知道用户的一个操作，如用户下完了一个订单，或者用户提交了一个问题，这一行为要告诉很多模块，我希望有一个这样的模块，用户完成一个操作，这个模块能把这一行为和数据，提交到各个模块，希望这一个模块有transfer的功能，完成数据转发。

像这种系统，应该需求是比较大的，如新�微博，用记发表了一条微博，应该有很多模块是要接收这一数据的，在 taobao
上面下一个订单，应该也有不少模块要关注此用户的操作和数据的。

我找了一下，没有找到相应的开源系统，麻烦各位帮忙推荐一下，或者有什么好的方法？

谢谢

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 代码解读(GetOptions)

Getoptions函数需要把你的参数值传递给给$fileformat，所有要引用

比如
#!/usr/bin/perl -w
use warnings;
my $a;
sub changeValue($){
    my $lo = shift;
    $$lo = 5;
}

sub badChangeValue($){
    my $a = shift;
    $a = 5;
}

badChangeValue($a);
print $a;
changeValue($a);
print $a;
changeValue(\$a);
print $a;

woosley@woosley-PC ~
$ perl t.pl
Use of uninitialized value $a in print at t.pl line 15.
Use of uninitialized value $a in print at t.pl line 17.
5

在 2011年11月6日上午11:04，Dejian Zhao <dejian.zhao@gmail.com>写道：

Q2：好像明白了，是命令行参数引用了脚本内部的$Fileformat地址，谁引用谁都一样，操作的是同一块内存地址。

perl -le 'my $a=1;my $b=\$a; $$b=5;print $a'
输出结果是5，而不是1。
命令行参数就相当于这里的$b，脚本内部的变量就相当于$a，给命令行参数传递值时就直接修改了脚本内部变量的值。

On 2011-11-6 10:56, Dejian Zhao wrote:
Q1,Q3,Q4都解决了，Q2还是不太明白。

Q2：将\$Fileformat改成$Fileformat是不可以的，会报错“Undefined argument in option spec”，现在的问题是谁引用谁？我觉得应当是脚本内部的变量$Fileformat去引用命令行参数，应当是$Fileformat应当指向命令行参数fileformat的内存地址，但是从语法上讲，似乎是$Fileformat被引用，是命令行参数引用了$Fileformat？难道谁引用谁都一样，实际是操作同一块内存地址？

Q3: 原来"fileformat:s"=>\$Fileformat可以写成"fileformat:s"=>\$fileformat (当然前提是把my $Fileformat改为my $fileformat)，我看到的脚本中都是左侧用小写，右侧把第一个字母大写，就产生了误解。可能是个人习惯的问题吧，我更喜欢写成"fileformat:s"=>\$fileformat。

Q4: 测试了，是这样子的。其余参数保存进了@ARGV

On 2011-11-6 6:47, Michael Zeng wrote:

perldoc GetOpt::Long 应该能看懂啊，不过manual很多，我记得

我来回答下

1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令行中使用的参数，应当是一个string，然后传递到程序内部时由$Fileformat接收这个值。是这样么？有没有误读？

左边是命令行要出现的东西，右边是自己输入的参数，比如这个脚本用做

test.pl -fileformat AAA -cutoff BBB -verbose CCCC -help DDD ,

命令行输入的AAA, BBB, CCC , DDD 自动的被替换成那 4 个变量，从而被获取，

2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=& gt;$Fileformat可不可以，为什么？二者什么区别？

是用引用，一般都是引用，是一个指针的东西，

3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat，而是换成$Fileformat 呢？在test.pl内部并没有占用$fileformat这个变量啊？

脚本一开始应该定义了 my ($Fileformat,$Cutoff,$Verbose,$Help); 了，当然是只能用这些变量，

4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进 @ARGV？

这个不记得，应该是，

再多看看 manual，

2011/11/6 Dejian Zhao <dejian.zhao@gmail.com>

下面代码是在别人脚本(test.pl)中看到的，有几个问题，希望达人给解答一下。多谢！

==========test.pl========
use strict;
use Getopt::Long;

my ($Fileformat,$Cutoff,$Verbose,$Help);
GetOptions(
    "fileformat:s"=>\$Fileformat,
    "cutoff:s"=>\$Cutoff,
    "verbose"=>\$Verbose,
    "help"=>\$Help
);
die `pod2text $0` if (@ARGV == 0 || $Help);
=========================

主要是GetOptions()里面的部分看不懂，以 "fileformat:s"=>\$Fileformat为例来解读这段代码。

1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令行中使用的参数，应当是一个string，然后传递到程序内部时由$Fileformat接收这个值。是这样么？有没有误读？

2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=>$Fileformat可不可以，为什么？二者什么区别？

3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat，而是换成$Fileformat呢？在test.pl内部并没有占用$fileformat这个变量啊？

4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进@ARGV？

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
woosley.xu. http://twitter.com/redicaps

Re: [PerlChina] 代码解读(GetOptions)

主要这个是模块的基本使用方法，

它的意思是 format对应的参数值是 $Format 对应的值，

写成 format=>\$Format 只是模块的使用方法

不是完全的perl语法，

format：d => \$data

2011/11/6 Dejian Zhao <dejian.zhao@gmail.com>

Q2：好像明白了，是命令行参数引用了脚本内部的$Fileformat地址，谁引用谁都一样，操作的是同一块内存地址。

perl -le 'my $a=1;my $b=\$a; $$b=5;print $a'
输出结果是5，而不是1。
命令行参数就相当于这里的$b，脚本内部的变量就相当于$a，给命令行参数传递值时就直接修改了脚本内部变量的值。

On 2011-11-6 10:56, Dejian Zhao wrote:

Q1,Q3,Q4都解决了，Q2还是不太明白。

Q2：将\$Fileformat改成$Fileformat是不可以的，会报错“Undefined argument in option spec”，现在的问题是谁引用谁？我觉得应当是脚本内部的变量$Fileformat去引用命令行参数，应当是$Fileformat应当指向命令行参数fileformat的内存地址，但是从语法上讲，似乎是$Fileformat被引用，是命令行参数引用了$Fileformat？难道谁引用谁都一样，实际是操作同一块内存地址？

Q3: 原来"fileformat:s"=>\$Fileformat可以写成"fileformat:s"=>\$fileformat (当然前提是把my $Fileformat改为my $fileformat)，我看到的脚本中都是左侧用小写，右侧把第一个字母大写，就产生了误解。可能是个人习惯的问题吧，我更喜欢写成"fileformat:s"=>\$fileformat。

Q4: 测试了，是这样子的。其余参数保存进了@ARGV

On 2011-11-6 6:47, Michael Zeng wrote:

perldoc GetOpt::Long 应该能看懂啊，不过manual很多，我记得

我来回答下

1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令行中使用的参数，应当是一个string，然后传递到程序内部时由$Fileformat接收这个值。是这样么？有没有误读？

左边是命令行要出现的东西，右边是自己输入的参数，比如这个脚本用做

test.pl -fileformat AAA -cutoff BBB -verbose CCCC -help DDD ,

命令行输入的AAA, BBB, CCC , DDD 自动的被替换成那 4 个变量，从而被获取，

2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=& gt;$Fileformat可不可以，为什么？二者什么区别？

是用引用，一般都是引用，是一个指针的东西，

3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat，而是换成$Fileformat 呢？在test.pl内部并没有占用$fileformat这个变量啊？

脚本一开始应该定义了 my ($Fileformat,$Cutoff,$Verbose,$Help); 了，当然是只能用这些变量，

4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进 @ARGV？

这个不记得，应该是，

再多看看 manual，

2011/11/6 Dejian Zhao <dejian.zhao@gmail.com>

下面代码是在别人脚本(test.pl)中看到的，有几个问题，希望达人给解答一下。多谢！

==========test.pl========
use strict;
use Getopt::Long;

my ($Fileformat,$Cutoff,$Verbose,$Help);
GetOptions(
    "fileformat:s"=>\$Fileformat,
    "cutoff:s"=>\$Cutoff,
    "verbose"=>\$Verbose,
    "help"=>\$Help
);
die `pod2text $0` if (@ARGV == 0 || $Help);
=========================

主要是GetOptions()里面的部分看不懂，以 "fileformat:s"=>\$Fileformat为例来解读这段代码。

1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令行中使用的参数，应当是一个string，然后传递到程序内部时由$Fileformat接收这个值。是这样么？有没有误读？

2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=>$Fileformat可不可以，为什么？二者什么区别？

3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat，而是换成$Fileformat呢？在test.pl内部并没有占用$fileformat这个变量啊？

4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进@ARGV？

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Yours Sincerely
Zeng Hong

订阅：博文 (Atom)

2011年11月12日星期六

2011年11月11日星期五

2011年11月10日星期四

2011年11月9日星期三

2011年11月8日星期二

2011年11月7日星期一

2011年11月6日星期日

订阅

博客归档