Perl China Blog Spot: 2011-01-16

2011年1月22日星期六

Re:Re: Re: [PerlChina] 查看本地计算机端口

可以谢谢了

在 2011-01-22 13:51:21，"joe jiang" <lamp.purl@gmail.com> 写道：

要么试试 Net::Netstat::Wrapper

On Sat, Jan 22, 2011 at 9:19 AM, Cond0r <cond0r@126.com> wrote:
这个我知道我就是不想通过调用他

At 2011-01-21 17:39:00，"Wang Feng" <wanng.fenng@gmail.com> wrote:
>window/linux 下都有 netstat 这个命令
>
>2011/1/21 Cond0r <cond0r@126.com>:
>> 有没什么方法使用perl查看本地计算机端口，最好给个例子
>
>--
>您收到此邮件是因为您订阅了 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 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] My test case failed in this way

那直接从$c开始好了.测试用例也没啥吧.反正只是sort的保留变量.

在 2011年1月22日上午1:48，Easun <easunlee@gmail.com> 写道：
> 呃。。。。
> 别使用 $a 和 $b ，这两个变量其实在 perl中为特殊数值。。。
> 尝试使用 $aa 和 $bb 来代替。
>
> 在 2011年1月21日上午8:49，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> �道：
>> 至于最后一个qw//
>> qw/$a/就是'$a',
>> 而另一个是'$b',都转成数字是0,所以相等
>>
>> 2011/1/21 Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com>:
>>> 找到了
>>> perlop
>>> Equality Operators
>>> Binary "<=>" returns -1, 0, or 1 depending on whether the left
>>> argument is numerically less than, equal to, or greater than the right
>>> argument. If your platform supports NaNs (not-a-numbers) as numeric
>>> values, using them with "<=>" returns undef. NaN is not "<", "==",
>>> ">", "<=" or ">=" anything (even NaN), so those 5 return false. NaN !=
>>> NaN returns true, as does NaN != anything else. If your platform
>>> doesn't support NaNs then NaN is just a string with numeric value 0.
>>> perl -le '$a = "NaN"; print "No NaN support here" if $a == $a'
>>> perl -le '$a = "NaN"; print "NaN support here" if $a != $a'
>>>
>>> 在 2011年1月21日上午8:42，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
>>>> 等下.....
>>>> 你这个怎么找到的?
>>>> 我刚才试了下....
>>>> 发现你的字符串是"nAn"开头,于是就被转换成了nan....
>>>> 对于nan是否相等我也有疑问,有人能说说么?
>>>> 我翻翻资料
>>>>
>>>> 在 2011年1月21日上午7:33，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
>>>>> 你用错了操作符
>>>>> 应该用eq,ne
>>>>> 转成数字后是nan,然后nan和nan比较都是不等的.所以....
>>>>>
>>>>> 在 2011年1月21日上午12:08，Andy Chen <ppstay@hotmail.com> 写道：
>>>>>> Run following code, tell me your result.
>>>>>>
>>>>>> #!/usr/bin/perl
>>>>>>
>>>>>> my $a= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>>>>> my $b= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>>>>>
>>>>>> if($a != $b)
>>>>>> {
>>>>>> print("not equal!\n");
>>>>>> }
>>>>>> else
>>>>>> {
>>>>>> print("equal!\n");
>>>>>> }
>>>>>>
>>>>>> if("$a" != "$b")
>>>>>> {
>>>>>> print("not equal!\n");
>>>>>> }
>>>>>> else
>>>>>> {
>>>>>> print("equal!\n");
>>>>>> }
>>>>>>
>>>>>> if(qw/$a/ != qw/$b/)
>>>>>> {
>>>>>> print("not equal!\n");
>>>>>> }
>>>>>> else
>>>>>> {
>>>>>> print("equal!\n");
>>>>>> }
>>>>>>
>>>>>> --
>>>>>> 您收到此邮件是因为您订阅了 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 访问此网上论坛。
>>
>>
>
>
>
> --
> -----------------------
> http://easun.org
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

2011年1月21日星期五

Re: Re: [PerlChina] 查看本地计算机端口

要么试试 Net::Netstat::Wrapper

On Sat, Jan 22, 2011 at 9:19 AM, Cond0r <cond0r@126.com> wrote:

这个我知道我就是不想通过调用他

At 2011-01-21 17:39:00，"Wang Feng" <wanng.fenng@gmail.com> wrote:
>window/linux 下都有 netstat 这个命令
>
>2011/1/21 Cond0r <cond0r@126.com>:
>> 有没什么方法使用perl查看本地计算机端口，最好给个例子
>
>--
>您收到此邮件是因为您订阅了 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:Re: [PerlChina] 查看本地计算机端口

这个我知道我就是不想通过调用他
At 2011-01-21 17:39:00，"Wang Feng" <wanng.fenng@gmail.com> wrote:
>window/linux 下都有 netstat 这个命令
>
>2011/1/21 Cond0r <cond0r@126.com>:
>> 有没什么方法使用perl查看本地计算机端口，最好给个例子
>
>--
>您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

Re: [PerlChina] My test case failed in this way

呃。。。。
别使用 $a 和 $b ，这两个变量其实在 perl中为特殊数值。。。
尝试使用 $aa 和 $bb 来代替。

在 2011年1月21日上午8:49，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> �道：
> 至于最后一个qw//
> qw/$a/就是'$a',
> 而另一个是'$b',都转成数字是0,所以相等
>
> 2011/1/21 Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com>:
>> 找到了
>> perlop
>> Equality Operators
>> Binary "<=>" returns -1, 0, or 1 depending on whether the left
>> argument is numerically less than, equal to, or greater than the right
>> argument. If your platform supports NaNs (not-a-numbers) as numeric
>> values, using them with "<=>" returns undef. NaN is not "<", "==",
>> ">", "<=" or ">=" anything (even NaN), so those 5 return false. NaN !=
>> NaN returns true, as does NaN != anything else. If your platform
>> doesn't support NaNs then NaN is just a string with numeric value 0.
>> perl -le '$a = "NaN"; print "No NaN support here" if $a == $a'
>> perl -le '$a = "NaN"; print "NaN support here" if $a != $a'
>>
>> 在 2011年1月21日上午8:42，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
>>> 等下.....
>>> 你这个怎么找到的?
>>> 我刚才试了下....
>>> 发现你的字符串是"nAn"开头,于是就被转换成了nan....
>>> 对于nan是否相等我也有疑问,有人能说说么?
>>> 我翻翻资料
>>>
>>> 在 2011年1月21日上午7:33，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
>>>> 你用错了操作符
>>>> 应该用eq,ne
>>>> 转成数字后是nan,然后nan和nan比较都是不等的.所以....
>>>>
>>>> 在 2011年1月21日上午12:08，Andy Chen <ppstay@hotmail.com> 写道：
>>>>> Run following code, tell me your result.
>>>>>
>>>>> #!/usr/bin/perl
>>>>>
>>>>> my $a= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>>>> my $b= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>>>>
>>>>> if($a != $b)
>>>>> {
>>>>> print("not equal!\n");
>>>>> }
>>>>> else
>>>>> {
>>>>> print("equal!\n");
>>>>> }
>>>>>
>>>>> if("$a" != "$b")
>>>>> {
>>>>> print("not equal!\n");
>>>>> }
>>>>> else
>>>>> {
>>>>> print("equal!\n");
>>>>> }
>>>>>
>>>>> if(qw/$a/ != qw/$b/)
>>>>> {
>>>>> print("not equal!\n");
>>>>> }
>>>>> else
>>>>> {
>>>>> print("equal!\n");
>>>>> }
>>>>>
>>>>> --
>>>>> 您收到此邮件是因为您订阅了 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 访问此网上论坛。
>
>

--
-----------------------
http://easun.org

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

Re: [PerlChina] 查看本地计算机端口

window/linux 下都有 netstat 这个命令

2011/1/21 Cond0r <cond0r@126.com>:
> 有没什么方法使用perl查看本地计算机端口，最好给个例子

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

[PerlChina] 查看本地计算机端口

有没什么方法使用perl查看本地计算机端口，最好给个例子

2011年1月20日星期四

Re: [PerlChina] My test case failed in this way

至于最后一个qw//
qw/$a/就是'$a',
而另一个是'$b',都转成数字是0,所以相等

2011/1/21 Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com>:
> 找到了
> perlop
> Equality Operators
> Binary "<=>" returns -1, 0, or 1 depending on whether the left
> argument is numerically less than, equal to, or greater than the right
> argument. If your platform supports NaNs (not-a-numbers) as numeric
> values, using them with "<=>" returns undef. NaN is not "<", "==",
> ">", "<=" or ">=" anything (even NaN), so those 5 return false. NaN !=
> NaN returns true, as does NaN != anything else. If your platform
> doesn't support NaNs then NaN is just a string with numeric value 0.
> perl -le '$a = "NaN"; print "No NaN support here" if $a == $a'
> perl -le '$a = "NaN"; print "NaN support here" if $a != $a'
>
> 在 2011年1月21日上午8:42，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
>> 等下.....
>> 你这个怎么找到的?
>> 我刚才试了下....
>> 发现你的字符串是"nAn"开头,于是就被转换成了nan....
>> 对于nan是否相等我也有疑问,有人能说说么?
>> 我翻翻资料
>>
>> 在 2011年1月21日上午7:33，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
>>> 你用错了操作符
>>> 应该用eq,ne
>>> 转成数字后是nan,然后nan和nan比较都是不等的.所以....
>>>
>>> 在 2011年1月21日上午12:08，Andy Chen <ppstay@hotmail.com> 写道：
>>>> Run following code, tell me your result.
>>>>
>>>> #!/usr/bin/perl
>>>>
>>>> my $a= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>>> my $b= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>>>
>>>> if($a != $b)
>>>> {
>>>> print("not equal!\n");
>>>> }
>>>> else
>>>> {
>>>> print("equal!\n");
>>>> }
>>>>
>>>> if("$a" != "$b")
>>>> {
>>>> print("not equal!\n");
>>>> }
>>>> else
>>>> {
>>>> print("equal!\n");
>>>> }
>>>>
>>>> if(qw/$a/ != qw/$b/)
>>>> {
>>>> print("not equal!\n");
>>>> }
>>>> else
>>>> {
>>>> print("equal!\n");
>>>> }
>>>>
>>>> --
>>>> 您收到此邮件是因为您订阅了 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] My test case failed in this way

找到了
perlop
Equality Operators
Binary "<=>" returns -1, 0, or 1 depending on whether the left
argument is numerically less than, equal to, or greater than the right
argument. If your platform supports NaNs (not-a-numbers) as numeric
values, using them with "<=>" returns undef. NaN is not "<", "==",
">", "<=" or ">=" anything (even NaN), so those 5 return false. NaN !=
NaN returns true, as does NaN != anything else. If your platform
doesn't support NaNs then NaN is just a string with numeric value 0.
perl -le '$a = "NaN"; print "No NaN support here" if $a == $a'
perl -le '$a = "NaN"; print "NaN support here" if $a != $a'

在 2011年1月21日上午8:42，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
> 等下.....
> 你这个怎么找到的?
> 我刚才试了下....
> 发现你的字符串是"nAn"开头,于是就被转换成了nan....
> 对于nan是否相等我也有疑问,有人能说说么?
> 我翻翻资料
>
> 在 2011年1月21日上午7:33，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
>> 你用错了操作符
>> 应该用eq,ne
>> 转成数字后是nan,然后nan和nan比较都是不等的.所以....
>>
>> 在 2011年1月21日上午12:08，Andy Chen <ppstay@hotmail.com> 写道：
>>> Run following code, tell me your result.
>>>
>>> #!/usr/bin/perl
>>>
>>> my $a= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>> my $b= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>>
>>> if($a != $b)
>>> {
>>> print("not equal!\n");
>>> }
>>> else
>>> {
>>> print("equal!\n");
>>> }
>>>
>>> if("$a" != "$b")
>>> {
>>> print("not equal!\n");
>>> }
>>> else
>>> {
>>> print("equal!\n");
>>> }
>>>
>>> if(qw/$a/ != qw/$b/)
>>> {
>>> print("not equal!\n");
>>> }
>>> else
>>> {
>>> print("equal!\n");
>>> }
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 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] My test case failed in this way

等下.....
你这个怎么找到的?
我刚才试了下....
发现你的字符串是"nAn"开头,于是就被转换成了nan....
对于nan是否相等我也有疑问,有人能说说么?
我翻翻资料

在 2011年1月21日上午7:33，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
> 你用错了操作符
> 应该用eq,ne
> 转成数字后是nan,然后nan和nan比较都是不等的.所以....
>
> 在 2011年1月21日上午12:08，Andy Chen <ppstay@hotmail.com> 写道：
>> Run following code, tell me your result.
>>
>> #!/usr/bin/perl
>>
>> my $a= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>> my $b= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>>
>> if($a != $b)
>> {
>> print("not equal!\n");
>> }
>> else
>> {
>> print("equal!\n");
>> }
>>
>> if("$a" != "$b")
>> {
>> print("not equal!\n");
>> }
>> else
>> {
>> print("equal!\n");
>> }
>>
>> if(qw/$a/ != qw/$b/)
>> {
>> print("not equal!\n");
>> }
>> else
>> {
>> print("equal!\n");
>> }
>>
>> --
>> 您收到此邮件是因为您订阅了 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] My test case failed in this way

can you see chinese character?
perl -e 'print "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS"+0'

Re: [PerlChina] My test case failed in this way

你用错了操作符
应该用eq,ne
转成数字后是nan,然后nan和nan比较都是不等的.所以....

在 2011年1月21日上午12:08，Andy Chen <ppstay@hotmail.com> 写道：
> Run following code, tell me your result.
>
> #!/usr/bin/perl
>
> my $a= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
> my $b= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";
>
> if($a != $b)
> {
> print("not equal!\n");
> }
> else
> {
> print("equal!\n");
> }
>
> if("$a" != "$b")
> {
> print("not equal!\n");
> }
> else
> {
> print("equal!\n");
> }
>
> if(qw/$a/ != qw/$b/)
> {
> print("not equal!\n");
> }
> else
> {
> print("equal!\n");
> }
>
> --
> 您收到此邮件是因为您订阅了 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] My test case failed in this way

Run following code, tell me your result.

#!/usr/bin/perl

my $a= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";

my $b= "nAnQpW9mVV0TWLgbLgriCu6Tp2f2ymI7HUZfJS";

if($a != $b)

{

print("not equal!\n");

}

else

{

print("equal!\n");

}

if("$a" != "$b")

{

print("not equal!\n");

}

else

{

print("equal!\n");

}

if(qw/$a/ != qw/$b/)

{

print("not equal!\n");

}

else

{

print("equal!\n");

}

2011年1月18日星期二

Re: [PerlChina] Perl 语言相关的幻灯片 | 课件

http://www.slideshare.net/davorg/lpw-begin

This one is good, London Perl Workshop slide for Perl beginners.

2011/1/17 Fei Ni <nifei1998@gmail.com>

呵呵，多谢lxy。
我自己有点懒了，多谢提醒！

在 2011年1月17日上午11:20，lxy <astroxl@gmail.com>写道：

我没有，不过如果没有人给你发一份满意的话，可以考虑从google上搜索下素材：
比如搜索：perl introduction filetype:ppt
http://www.google.com.hk/search?hl=zh-CN&newwindow=1&safe=strict&q=perl++introduction+++filetype:ppt&aq=f&aqi=&aql=&oq=

2011/1/17 Fei Ni <nifei1998@gmail.com>

大家有没有有介绍Perl语言的相关幻灯片或者课件？我想在实验室的Lab meeting上简要介绍一下Perl。
如果谁有的话，能不能发我一份？在这里先谢谢大家啦！

祝好！

FeiNi

--
Feiny

Achieving dream takes time and patience.Great careers don't happen overnight ,and take years of hardwork.But every step along the road can get you closer to your dream.

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

--
****ASTROXL****
^y^

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

--
Feiny

Achieving dream takes time and patience.Great careers don't happen overnight ,and take years of hardwork.But every step along the road can get you closer to your dream.

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

Re: [PerlChina] 答复: Net::FTP如何返回上传下载的速度

哈哈，这个方法确实很简单，但是我怎么就没有想到使用此方法呢，唉，鄙视一下自己，谢谢 joe。

======= 2011-01-19 10:55 joe jiang 您在来信中写到:Re: [PerlChina] 答复: Net::FTP如何返回上传下载的速度 =======

请说明你的详细需求，如果只是给一个总体的平均速度，那么只要用文件总体大小除以消耗时间就可以了，不是么？

在开始前计算时间，在结束之后计算时间。

$ perl -le 'print time'

1295405606

... downloading 50k Bytes

$ perl -le 'print time'

1295405607

50KB/1=50K BPS

2011/1/19 Gary.jsz <gary.jsz@gmail.com>

我理解的hash，只是定义一个类似进度条的处理，并不能打印出实际的传输速度。
如果要打印出实际的传输速度，比如： 60kb/s ，还是不能。

======= 2011-01-19 09:47 joe jiang 您在来信中写到:Re: [PerlChina] 答复: Net::FTP如何返回上传下载的速度 =======

CONSTRUCTOR

   new ([ HOST ] [, OPTIONS ])

...

   Hash - If given a reference to a file handle (e.g., "\*STDERR"), print hash marks (#) on that filehandle every

   1024 bytes. This simply invokes the "hash()" method for you, so that hash marks are displayed for all transfers.

   You can, of course, call "hash()" explicitly whenever you'd like.

这个参数可以比较形象化的显明传输速度。具体案例可以参考：

http://coding.derkeiler.com/Archive/Perl/perl.beginners/2005-12/msg00186.html

2011/1/18 Gary.jsz <gary.jsz@gmail.com>

或者有没有其他方法可以用了测试FTP上传下载速度的？

======= 2011-01-17 16:59 gary.jsz@gmail.com 您在来信中写到:Net::FTP如何返回上传下载的速度 =======

大家好！

    今天使用Net::FTP模块来测试FTP，但是没办法打印其下载和上传的速度，请问该怎么做？

比如使用shell脚本，会返回：
3145728 bytes received in 00:50 (60.87 KB/s)
local: put remote: put
229 Entering Extended Passive Mode (|||28677|)
150 Ok to send data.
226 File receive OK.
3145728 bytes sent in 04:02 (12.68 KB/s)

= = = = = = = = = = = = = = = = = = = =

深圳市傲冠软件股份有限公司      运营部       蒋士竹
----------------------------------------------------------
Address: 深圳市福田区深南大道6015号本元大厦16楼    518040
Tel: (0)13816642255        MSN: gary.jsz@gmail.com
Email: jsz@skybility.com    Website: www.skybility.com

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

= = = = = = = = = = = = = = = = = = = =

深圳市傲冠软件股份有限公司      运营部       蒋士竹
----------------------------------------------------------
Address: 深圳市福田区深南大道6015号本元大厦16楼    518040
Tel: (0)13816642255        MSN: gary.jsz@gmail.com
Email: jsz@skybility.com    Website: www.skybility.com

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

深圳市傲冠软件股份有限公司      运营部       蒋士竹
----------------------------------------------------------
Address: 深圳市福田区深南大道6015号本元大厦16楼    518040
Tel: (0)13816642255        MSN: gary.jsz@gmail.com
Email: jsz@skybility.com    Website: www.skybility.com

Re: [PerlChina] Re: 新手请教defined和undef的用法

这个.....不要用$a和$b,sort保留
详细看perldoc -v \$a

在 2011年1月19日上午11:21，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com> 写道：
> perldoc -f undef
> 节选
> undef EXPR
> undef Undefines the value of EXPR, which must be an lvalue.
> 即undef $a和$a=undef是一样的
>
> 在 2011年1月18日下午11:17，方伟 <fang3wei@gmail.com> 写道：
>> 我自己试了一下，还是搞不懂
>> $num=100;
>> if(undef($num)){print "it's undefined";}else{print "it's defined";}
>> 输出结果是it's defined
>>
>> 去掉第一行：
>> if(undef($num)){print "it's undefined";}else{print "it's defined";}
>> 输出结果还是it's defined
>>
>> 在 2011年1月18日下午10:52，方伟 <fang3wei@gmail.com> 写道：
>>> 在教程上看到这样的用法：if (defined($name)) 以及 $name=undef;
>>> 我想知道能不能反过来用呢,这样子行不行：if (undef($name)) 以及 $name=defined;
>>>
>>
>> --
>> 您收到此邮件是因为您订阅了 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: 新手请教defined和undef的用法

你是想问$c=undef和$c=""么?
一个是undef,一个是字符串长度为零,不一样的.

在 2011年1月18日下午11:30，方伟 <fang3wei@gmail.com> 写道：
> 哦，谢谢。那$num=defined跟$num=""是不是一样的？
> 在 2011年1月18日下午11:23，Anthony WU <anthonywuy2k@gmail.com> 写道：
>> 因�undef回�的是undef...所以什�都是undef...
>>
>> -------- Original Message --------
>> Subject: [PerlChina] Re: 新手请教defined和undef的用法
>> From: 方伟 <fang3wei@gmail.com>
>> To: perlchina@googlegroups.com
>> Date: 18/1/2011 23:17
>>> 我自己试了一下，还是搞不懂
>>> $num=100;
>>> if(undef($num)){print "it's undefined";}else{print "it's defined";}
>>> 输出结果是it's defined
>>>
>>> 去掉第一行：
>>> if(undef($num)){print "it's undefined";}else{print "it's defined";}
>>> 输出结果还是it's defined
>>>
>>> 在 2011年1月18日下午10:52，方伟 <fang3wei@gmail.com> 写道：
>>>> 在教程上看到这样的用法：if (defined($name)) 以及 $name=undef;
>>>> 我想知道能不能反过来用呢,这样子行不行：if (undef($name)) 以及 $name=defined;
>>>>
>>
>> --
>> 您收到此邮件是因为您订阅了 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] Re: 新手请教defined和undef的用法

perldoc -f undef
节选
undef EXPR
undef Undefines the value of EXPR, which must be an lvalue.
即undef $a和$a=undef是一样的

在 2011年1月18日下午11:17，方伟 <fang3wei@gmail.com> 写道：
> 我自己试了一下，还是搞不懂
> $num=100;
> if(undef($num)){print "it's undefined";}else{print "it's defined";}
> 输出结果是it's defined
>
> 去掉第一行：
> if(undef($num)){print "it's undefined";}else{print "it's defined";}
> 输出结果还是it's defined
>
> 在 2011年1月18日下午10:52，方伟 <fang3wei@gmail.com> 写道：
>> 在教程上看到这样的用法：if (defined($name)) 以及 $name=undef;
>> 我想知道能不能反过来用呢,这样子行不行：if (undef($name)) 以及 $name=defined;
>>
>
> --
> 您收到此邮件是因为您订阅了 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] 答复: Net::FTP如何返回上传下载的速度

请说明你的详细需求，如果只是给一个总体的平均速度，那么只要用文件总体大小除以消耗时间就可以了，不是么？

在开始前计算时间，在结束之后计算时间。

$ perl -le 'print time'

1295405606

... downloading 50k Bytes

$ perl -le 'print time'

1295405607

50KB/1=50K BPS

2011/1/19 Gary.jsz <gary.jsz@gmail.com>

我理解的hash，只是定义一个类似进度条的处理，并不能打印出实际的传输速度。
如果要打印出实际的传输速度，比如： 60kb/s ，还是不能。

======= 2011-01-19 09:47 joe jiang 您在来信中写到:Re: [PerlChina] 答复: Net::FTP如何返回上传下载的速度 =======

CONSTRUCTOR

   new ([ HOST ] [, OPTIONS ])

...

   Hash - If given a reference to a file handle (e.g., "\*STDERR"), print hash marks (#) on that filehandle every

   1024 bytes. This simply invokes the "hash()" method for you, so that hash marks are displayed for all transfers.

   You can, of course, call "hash()" explicitly whenever you'd like.

这个参数可以比较形象化的显明传输速度。具体案例可以参考：

http://coding.derkeiler.com/Archive/Perl/perl.beginners/2005-12/msg00186.html

2011/1/18 Gary.jsz <gary.jsz@gmail.com>

或者有没有其他方法可以用了测试FTP上传下载速度的？

======= 2011-01-17 16:59 gary.jsz@gmail.com 您在来信中写到:Net::FTP如何返回上传下载的速度 =======

大家好！

    今天使用Net::FTP模块来测试FTP，但是没办法打印其下载和上传的速度，请问该怎么做？

比如使用shell脚本，会返回：
3145728 bytes received in 00:50 (60.87 KB/s)
local: put remote: put
229 Entering Extended Passive Mode (|||28677|)
150 Ok to send data.
226 File receive OK.
3145728 bytes sent in 04:02 (12.68 KB/s)

= = = = = = = = = = = = = = = = = = = =

深圳市傲冠软件股份有限公司      运营部       蒋士竹
----------------------------------------------------------
Address: 深圳市福田区深南大道6015号本元大厦16楼    518040
Tel: (0)13816642255        MSN: gary.jsz@gmail.com
Email: jsz@skybility.com    Website: www.skybility.com

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

= = = = = = = = = = = = = = = = = = = =

深圳市傲冠软件股份有限公司      运营部       蒋士竹
----------------------------------------------------------
Address: 深圳市福田区深南大道6015号本元大厦16楼    518040
Tel: (0)13816642255        MSN: gary.jsz@gmail.com
Email: jsz@skybility.com    Website: www.skybility.com

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

Re: [PerlChina] 答复: Net::FTP如何返回上传下载的速度

我理解的hash，只是定义一个类似进度条的处理，并不能打印出实际的传输速度。
如果要打印出实际的传输速度，比如： 60kb/s ，还是不能。

======= 2011-01-19 09:47 joe jiang 您在来信中写到:Re: [PerlChina] 答复: Net::FTP如何返回上传下载的速度 =======

CONSTRUCTOR

new ([ HOST ] [, OPTIONS ])

...

Hash - If given a reference to a file handle (e.g., "\*STDERR"), print hash marks (#) on that filehandle every

1024 bytes. This simply invokes the "hash()" method for you, so that hash marks are displayed for all transfers.

You can, of course, call "hash()" explicitly whenever you'd like.

这个参数可以比较形象化的显明传输速度。具体案例可以参考：

http://coding.derkeiler.com/Archive/Perl/perl.beginners/2005-12/msg00186.html

2011/1/18 Gary.jsz <gary.jsz@gmail.com>

或者有没有其他方法可以用了测试FTP上传下载速度的？

======= 2011-01-17 16:59 gary.jsz@gmail.com 您在来信中写到:Net::FTP如何返回上传下载的速度 =======

大家好！

    今天使用Net::FTP模块来测试FTP，但是没办法打印其下载和上传的速度，请问该怎么做？

比如使用shell脚本，会返回：
3145728 bytes received in 00:50 (60.87 KB/s)
local: put remote: put
229 Entering Extended Passive Mode (|||28677|)
150 Ok to send data.
226 File receive OK.
3145728 bytes sent in 04:02 (12.68 KB/s)

= = = = = = = = = = = = = = = = = = = =

深圳市傲冠软件股份有限公司      运营部       蒋士竹
----------------------------------------------------------
Address: 深圳市福田区深南大道6015号本元大厦16楼    518040
Tel: (0)13816642255        MSN: gary.jsz@gmail.com
Email: jsz@skybility.com    Website: www.skybility.com

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

Re: [PerlChina] 答复: Net::FTP如何返回上传下载的速度

CONSTRUCTOR

new ([ HOST ] [, OPTIONS ])

...

Hash - If given a reference to a file handle (e.g., "\*STDERR"), print hash marks (#) on that filehandle every

1024 bytes. This simply invokes the "hash()" method for you, so that hash marks are displayed for all transfers.

You can, of course, call "hash()" explicitly whenever you'd like.

这个参数可以比较形象化的显明传输速度。具体案例可以参考：

http://coding.derkeiler.com/Archive/Perl/perl.beginners/2005-12/msg00186.html

2011/1/18 Gary.jsz <gary.jsz@gmail.com>

或者有没有其他方法可以用了测试FTP上传下载速度的？

======= 2011-01-17 16:59 gary.jsz@gmail.com 您在来信中写到:Net::FTP如何返回上传下载的速度 =======

大家好！

    今天使用Net::FTP模块来测试FTP，但是没办法打印其下载和上传的速度，请问该怎么做？

比如使用shell脚本，会返回：
3145728 bytes received in 00:50 (60.87 KB/s)
local: put remote: put
229 Entering Extended Passive Mode (|||28677|)
150 Ok to send data.
226 File receive OK.
3145728 bytes sent in 04:02 (12.68 KB/s)

= = = = = = = = = = = = = = = = = = = =

深圳市傲冠软件股份有限公司      运营部       蒋士竹
----------------------------------------------------------
Address: 深圳市福田区深南大道6015号本元大厦16楼    518040
Tel: (0)13816642255        MSN: gary.jsz@gmail.com
Email: jsz@skybility.com    Website: www.skybility.com

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

Re: [PerlChina] Re: 新手请教defined和undef的用法

defined 是一�function，其回�值是 boolean，即 ture / false 或 1 / 0

regards,
Anthony

-------- Original Message --------
Subject: Re: [PerlChina] Re: 新手请教defined和undef的用法
From: 方伟 <fang3wei@gmail.com>
To: perlchina@googlegroups.com
Date: 18/1/2011 23:30
> 哦，谢谢。那$num=defined跟$num=""是不是一样的？
> 在 2011年1月18日下午11:23，Anthony WU <anthonywuy2k@gmail.com> 写道：
>> 因�undef回�的是undef...所以什�都是undef...
>>
>> -------- Original Message --------
>> Subject: [PerlChina] Re: 新手请教defined和undef的用法
>> From: 方伟 <fang3wei@gmail.com>
>> To: perlchina@googlegroups.com
>> Date: 18/1/2011 23:17
>>> 我自己试了一下，还是搞不懂
>>> $num=100;
>>> if(undef($num)){print "it's undefined";}else{print "it's defined";}
>>> 输出结果是it's defined
>>>
>>> 去掉第一行：
>>> if(undef($num)){print "it's undefined";}else{print "it's defined";}
>>> 输出结果还是it's defined
>>>
>>> 在 2011年1月18日下午10:52，方伟 <fang3wei@gmail.com> 写道：
>>>> 在教程上看到这样的用法：if (defined($name)) 以及 $name=undef;
>>>> 我想知道能不能反过来用呢,这样子行不行：if (undef($name)) 以及 $name=defined;
>>>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>>

Re: [PerlChina] Re: 新手请教defined和undef的用法

哦，谢谢。那$num=defined跟$num=""是不是一样的？
在 2011年1月18日下午11:23，Anthony WU <anthonywuy2k@gmail.com> 写道：
> 因�undef回�的是undef...所以什�都是undef...
>
> -------- Original Message --------
> Subject: [PerlChina] Re: 新手请教defined和undef的用法
> From: 方伟 <fang3wei@gmail.com>
> To: perlchina@googlegroups.com
> Date: 18/1/2011 23:17
>> 我自己试了一下，还是搞不懂
>> $num=100;
>> if(undef($num)){print "it's undefined";}else{print "it's defined";}
>> 输出结果是it's defined
>>
>> 去掉第一行：
>> if(undef($num)){print "it's undefined";}else{print "it's defined";}
>> 输出结果还是it's defined
>>
>> 在 2011年1月18日下午10:52，方伟 <fang3wei@gmail.com> 写道：
>>> 在教程上看到这样的用法：if (defined($name)) 以及 $name=undef;
>>> 我想知道能不能反过来用呢,这样子行不行：if (undef($name)) 以及 $name=defined;
>>>
>
> --
> 您收到此邮件是因为您订阅了 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: 新手请教defined和undef的用法

因�undef回�的是undef...所以什�都是undef...

-------- Original Message --------
Subject: [PerlChina] Re: 新手请教defined和undef的用法
From: 方伟 <fang3wei@gmail.com>
To: perlchina@googlegroups.com
Date: 18/1/2011 23:17
> 我自己试了一下，还是搞不懂
> $num=100;
> if(undef($num)){print "it's undefined";}else{print "it's defined";}
> 输出结果是it's defined
>
> 去掉第一行：
> if(undef($num)){print "it's undefined";}else{print "it's defined";}
> 输出结果还是it's defined
>
> 在 2011年1月18日下午10:52，方伟 <fang3wei@gmail.com> 写道：
>> 在教程上看到这样的用法：if (defined($name)) 以及 $name=undef;
>> 我想知道能不能反过来用呢,这样子行不行：if (undef($name)) 以及 $name=defined;
>>

[PerlChina] Re: 新手请教defined和undef的用法

我自己试了一下，还是搞不懂
$num=100;
if(undef($num)){print "it's undefined";}else{print "it's defined";}
输出结果是it's defined

去掉第一行：
if(undef($num)){print "it's undefined";}else{print "it's defined";}
输出结果还是it's defined

在 2011年1月18日下午10:52，方伟 <fang3wei@gmail.com> 写道：
> 在教程上看到这样的用法：if (defined($name)) 以及 $name=undef;
> 我想知道能不能反过来用呢,这样子行不行：if (undef($name)) 以及 $name=defined;
>

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

[PerlChina] 新手请教defined和undef的用法

在教程上看到这样的用法：if (defined($name)) 以及 $name=undef;
我想知道能不能反过来用呢,这样子行不行：if (undef($name)) 以及 $name=defined;

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

Re: [PerlChina] 关于列表输出

你的程序是不是没给全？ @line 哪儿来的？

print "please choose a way of output: by column or row?";

你说的按列和按行输出到底是要如何？

$li=<STDIN>;

这里的 $li 包含回车换行，后面做比较前记得 chomp $li;

if ($li eq 'column') {
print @line;

print @line 会将@line的所有元素打印出来，一个接一个，比如 @line=(1,2,3), 输出就是 123

}else {
@r=chomp(@line);

chomp(@line) 会对 @line 的所有元素起作用, 我猜测你这里是想将 chomp 后的@line中的元素赋值给@r, 但这里 @r 得到的不会是你想要的，这里的 @r 得到的是 chomp 对 @line 中元素进行操作后成功的次数，比如说 @line=("a\n", "bbb\n", "ccc\n", 123), 那么其中有三个元素结尾带 \n，那么 chomp 在作用于这三个元素时是成功的，所以此时 @r=chomp(@line) 就等于 @r=3

请参看 perldoc -f chomp

里面有说：

If you chomp a list, each element is chomped, and the total

number of characters removed is returned.

print @r;}

我在输入a b c d e f 六个字符后，输出的结果是6，而不是这六个字符

看完上面的解释，你应该知道为什么此时输出的结果是6了吧？

请将 perl 基本的语法再熟悉一下 :-)

Re: [PerlChina] 关于列表输出

这句应该是这样吧

chomp(my @r=@line);

在 2011年1月18日下午6:31，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com>写道：

$li=<STDIN>;
if ($li eq 'column') {

$li应该还包含还行符吧?

在 2011年1月18日下午6:21，naziwh <naziwh@163.com> 写道：

> 我今天在这么一个程序的
> print "please choose a way of output: by column or row?";
> $li=<STDIN>;
> if ($li eq 'column') {
> print @line;
> }else {
> @r=chomp(@line);
> print @r;}
> 我在输入a b c d e f 六个字符后，输出的结果是6，而不是这六个字符
> 我想问问是不是与if语句有关？
>
>
> --
> 您收到此邮件是因为您订阅了 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] 关于列表输出

$li=<STDIN>;
if ($li eq 'column') {
$li应该还包含还行符吧?

在 2011年1月18日下午6:21，naziwh <naziwh@163.com> 写道：
> 我今天在这么一个程序的
> print "please choose a way of output: by column or row?";
> $li=<STDIN>;
> if ($li eq 'column') {
> print @line;
> }else {
> @r=chomp(@line);
> print @r;}
> 我在输入a b c d e f 六个字符后，输出的结果是6，而不是这六个字符
> 我想问问是不是与if语句有关？
>
>
> --
> 您收到此邮件是因为您订阅了 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] 关于列表输出

我今天在这么一个程序的

print "please choose a way of output: by column or row?";
$li=<STDIN>;
if ($li eq 'column') {
print @line;
}else {
@r=chomp(@line);
print @r;}

我在输入a b c d e f 六个字符后，输出的结果是6，而不是这六个字符

我想问问是不是与if语句有关？

2011年1月17日星期一

Re: [PerlChina] 如何把这些html元素属性读入一个hash中？

在 2011年1月18日下午1:30，cnhack TNT <cnhacktnt@gmail.com>写道：

2011/1/18 Kermit Mei <kermit.mei@gmail.com>

在 2011年1月17日下午6:25，cnhack TNT <cnhacktnt@gmail.com>写道：

use Data::Dumper;

$s = q/<button type="button" style = " border:none;background:url(button_bk.png); width:150px; height:49px; ">/;

($c) = $s =~ /<([^<>]+?=[^<>]+?)>/;

这个可以，但是为什么我写的这个不能匹配：
($c) = $s =~ /<\w+\s*(\w+\s*=\s*\w+\s*)>/;

因为 \w 只包括 [a-zA-Z0-9_]

哦，第二个写错了，应该是这样(或者楼上给出那个[^<>]或许更好一些)：
($c) = $s =~ /<\w+\s+(\w+\s*=\s*.+\s*)/;

多谢！

--
B.R
Kermit

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

Re: [PerlChina] 如何把这些html元素属性读入一个hash中？

在 2011年1月18日下午1:30，cnhack TNT <cnhacktnt@gmail.com>写道：

2011/1/18 Kermit Mei <kermit.mei@gmail.com>

在 2011年1月17日下午6:25，cnhack TNT <cnhacktnt@gmail.com>写道：

use Data::Dumper;

$s = q/<button type="button" style = " border:none;background:url(button_bk.png); width:150px; height:49px; ">/;

($c) = $s =~ /<([^<>]+?=[^<>]+?)>/;

这个可以，但是为什么我写的这个不能匹配：
($c) = $s =~ /<\w+\s*(\w+\s*=\s*\w+\s*)>/;

因为 \w 只包括 [a-zA-Z0-9_]

$bth{$1} = $2 while $c =~ /\s([\w-]+)\s*=\s*"([^""]+?)"/g;

print Dumper \%bth;

恩，多谢，修改一下就可以用了(要替换的话不知有没有办法可以不生成那俩变量？)：
while ($c =~ /\s([\w-]+)\s*=\s*"([^""]+?)"/g) {
    my $tmp1 = $1;
    my $tmp2 = $2;

    $tmp2 =~ s/\s//g;
    $bth{$tmp1} = $tmp2;
}

正则匹配出来的反引用变量只读，你后面进行了 s// 操作，所以还是需要将反引用变量先赋值给另外的变量的。不建议简单 s/\s//g，因为有些属性可能是这样的 class="class1 class2"，你删掉空白字符就悲催了，你可以 s/^\s*|\s*$//g; 删掉头尾空白字符。

恩，多谢提醒，我以为属性中至少会以分号为分割的。

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

--
B.R
Kermit

Re: [PerlChina] 如何把这些html元素属性读入一个hash中？

在 2011年1月18日下午1:51，zero hero <zwhdhrdj@gmail.com>写道：

use XML::Simple;

$xml=XMLin("HiBitch.html");

xml模块可以解析html吗？ html有些时候是不许要结束标签的，这种情况下XML可能就吃力了吧。

在 2011年1月18日下午1:30，cnhack TNT <cnhacktnt@gmail.com>写道：

2011/1/18 Kermit Mei <kermit.mei@gmail.com>

在 2011年1月17日下午6:25，cnhack TNT <cnhacktnt@gmail.com>写道：

use Data::Dumper;

$s = q/<button type="button" style = " border:none;background:url(button_bk.png); width:150px; height:49px; ">/;

($c) = $s =~ /<([^<>]+?=[^<>]+?)>/;

这个可以，但是为什么我写的这个不能匹配：
($c) = $s =~ /<\w+\s*(\w+\s*=\s*\w+\s*)>/;

因为 \w 只包括 [a-zA-Z0-9_]

$bth{$1} = $2 while $c =~ /\s([\w-]+)\s*=\s*"([^""]+?)"/g;

print Dumper \%bth;

恩，多谢，修改一下就可以用了(要替换的话不知有没有办法可以不生成那俩变量？)：
while ($c =~ /\s([\w-]+)\s*=\s*"([^""]+?)"/g) {
    my $tmp1 = $1;
    my $tmp2 = $2;

    $tmp2 =~ s/\s//g;
    $bth{$tmp1} = $tmp2;
}

正则匹配出来的反引用变量只读，你后面进行了 s// 操作，所以还是需要将反引用变量先赋值给另外的变量的。不建议简单 s/\s//g，因为有些属性可能是这样的 class="class1 class2"，你删掉空白字符就悲催了，你可以 s/^\s*|\s*$//g; 删掉头尾空白字符。

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

--
Salt Fish Ready To Turn Over!~~~

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

--
B.R
Kermit

Re: [PerlChina] 如何把这些html元素属性读入一个hash中？

use XML::Simple;

$xml=XMLin("HiBitch.html");

在 2011年1月18日下午1:30，cnhack TNT <cnhacktnt@gmail.com>写道：

2011/1/18 Kermit Mei <kermit.mei@gmail.com>

在 2011年1月17日下午6:25，cnhack TNT <cnhacktnt@gmail.com>写道：

use Data::Dumper;

$s = q/<button type="button" style = " border:none;background:url(button_bk.png); width:150px; height:49px; ">/;

($c) = $s =~ /<([^<>]+?=[^<>]+?)>/;

这个可以，但是为什么我写的这个不能匹配：
($c) = $s =~ /<\w+\s*(\w+\s*=\s*\w+\s*)>/;

因为 \w 只包括 [a-zA-Z0-9_]

$bth{$1} = $2 while $c =~ /\s([\w-]+)\s*=\s*"([^""]+?)"/g;

print Dumper \%bth;

恩，多谢，修改一下就可以用了(要替换的话不知有没有办法可以不生成那俩变量？)：
while ($c =~ /\s([\w-]+)\s*=\s*"([^""]+?)"/g) {
    my $tmp1 = $1;
    my $tmp2 = $2;

    $tmp2 =~ s/\s//g;
    $bth{$tmp1} = $tmp2;
}

正则匹配出来的反引用变量只读，你后面进行了 s// 操作，所以还是需要将反引用变量先赋值给另外的变量的。不建议简单 s/\s//g，因为有些属性可能是这样的 class="class1 class2"，你删掉空白字符就悲催了，你可以 s/^\s*|\s*$//g; 删掉头尾空白字符。

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

--
Salt Fish Ready To Turn Over!~~~

Re: [PerlChina] perl语言入门(第五版)勘误

福音呀！

在 2011年1月18日下午1:37，Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com>写道：

真不错XD
愿perl越来越好

在 2011年1月18日下午1:23，cnhack TNT <cnhacktnt@gmail.com> 写道：

> chunzi 已将这些内容反馈到了出版社并得到了回复：
> "可以整理好,加印的时候改.估计再过2,3个月会加印一次"
> thanks!
> 2011/1/18 Jeova Sanctus Unus <jeova.sanctus.unus@gmail.com>
>>
>> 我把你的内容,转发到了forum.ubuntu.org.cn
>>
>> 在这里
>> http://forum.ubuntu.org.cn/viewtopic.php?f=63&t=314421
>>
>> 在 2011年1月18日上午8:42，伊现富 <yixf1986@gmail.com> 写道：
>> > 下面是我以前读书过程中发现的一些"错误"，请LZ检查一下，是不是真的错误。
>> > P128 习题1 "如果输入某一行包含字符串 fred" 应为 "Fred"（根据P283的答案修改）
>> > P128 习题4 "而不输出含有Fred" 应为 "fred"
>> > P132 正文倒数第2行 "/\bFred\b/" 应为 "/\bfred\b/（即F应该小写）
>> >
>> >
>> >
>> > 在 2011年1月18日上午8:17，伊现富 <yixf1986@gmail.com>写道：
>> >>
>> >> 问一下LZ，我可不可以把你整理的这些发到自己的博客上？
>> >>
>> >> 在 2011年1月17日下午11:05，Jeova Sanctus Unus
>> >> <jeova.sanctus.unus@gmail.com>写道：
>> >>>
>> >>> p274 附录A 习题解答第三章习题解答中的第二题，"[ $_ ? 1]","?"改为"-"。
>> >>> p135 第八章第八行 "如果$what的值为fred(barney)" 多了")"。
>> >>> p128 第七章习题第二题 "接受fred","输入的字符串是fred"，两处中"fred"应为"Fred"。
>> >>> p144 注26 模块的名字应该是YAPE::Regex::Explain,即Regexp改为Regex
>> >>> p145 习题2 "Mrs._Wilma_Flintsone",应为"Mrs. Wilma Flintstone".
>> >>> p158 第三段 "对大程序来说无关轻重"，多了个"大"。
>> >>> p180 习题一 "Too hight",多了个"t"。
>> >>> 其他勘误可以参考英文版勘误和英文版书籍
>> >>> http://goo.gl/YxzAN
>> >>> 还有~~已经不符合交换律.请参考perlsyn
>> >>> 希望大家把自己找到的勘误也提交过来.既然官方不愿意管理.我们可以自己弄下:)
>> >>> ps:同时发在forum.ubuntu.org.cn和perlchina的邮件列表里.我会尽量同步
>> >>> 中文版官方勘误在这里,没有任何内容.截至此时.
>> >>> http://goo.gl/aIvow
>> >>>
>> >>> --
>> >>> 您收到此邮件是因为您订阅了 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 网上论坛的"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 访问此网上论坛。

订阅：博文 (Atom)

2011年1月22日星期六

2011年1月21日星期五

2011年1月20日星期四

2011年1月18日星期二

2011年1月17日星期一

订阅

博客归档