Perl China Blog Spot

2012年8月7日星期二

Re: [PerlChina] 一个坑，自己掉进去好几次了。。。

A Small Aside… In Perl 6 the variables $a and $b don’t have any special global significance like they do in Perl 5. Use normal named variables ($var), positional variables ($^var) or whatever variables (*) in the sort comparison block just like any other code block.

from http://perl6advent.wordpress.com/2010/12/23/day-23-its-some-sort-of-wonderful/

2012/8/7 Robin Lee <robinlee.sysu@gmail.com>

不过，my $a 之后，一旦在它的lexical scope 里用 sort 就悲剧了。这样说来， my $a 的确是个坑

2012/8/7 Robin Lee <robinlee.sysu@gmail.com>

$a $b 只在 sort 里是预设变量。在其它地方没有特别

2012/8/7 Anthony WU <anthonywuy2k@gmail.com>

不是��
而是 $a�$b都是��量………

-------- Original Message --------
Subject: Re: [PerlChina] 一个坑，自己掉进去好几次了。。。
From: wd <wd@wdicc.com>
To: perlchina@googlegroups.com
Date: 7/8/2012 10:55
> if (not defined $a || $a == 0 )
> 优先级问题，本意是 ( (not defined $a) || $a == 0 )，实际是 (not ( defined $a || $a == 0 ) )
>
> perl 里面 ! 和 not，and 和 && 优先级不一样。
>
> 2012/8/6 <mwjpiero@gmail.com>:
>> 新手求教什麽坑?
>>
>>
>>
>> -- Sent from my HP TouchPad
>> ________________________________
>> On 6 Aug 2012 21:09, Huangj <redspid@163.com> wrote:
>> 俺都介么写
>>
>> my $y;
>> unless ( $y ) { print 1; }
>>
>>
>>
>> 在 2012-06-29 13:19:39，"joe jiang" <lamp.purl@gmail.com> 写道：
>>
>> DB<7> print 1 if !defined $a or $a == 0;
>> 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 访问此网上论坛。
>>
>>
>>
>> --
>> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

--
Hao Wu

Lab: 334-844-2494
Mail: 301 Funchess Hall,

Auburn University,

AL, 36849, USA

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

Re: [PerlChina] 一个坑，自己掉进去好几次了。。。

不过，my $a 之后，一旦在它的lexical scope 里用 sort 就悲剧了。这样说来， my $a 的确是个坑

2012/8/7 Robin Lee <robinlee.sysu@gmail.com>

$a $b 只在 sort 里是预设变量。在其它地方没有特别

2012/8/7 Anthony WU <anthonywuy2k@gmail.com>

不是��
而是 $a�$b都是��量………

-------- Original Message --------
Subject: Re: [PerlChina] 一个坑，自己掉进去好几次了。。。
From: wd <wd@wdicc.com>
To: perlchina@googlegroups.com
Date: 7/8/2012 10:55
> if (not defined $a || $a == 0 )
> 优先级问题，本意是 ( (not defined $a) || $a == 0 )，实际是 (not ( defined $a || $a == 0 ) )
>
> perl 里面 ! 和 not，and 和 && 优先级不一样。
>
> 2012/8/6 <mwjpiero@gmail.com>:
>> 新手求教什麽坑?
>>
>>
>>
>> -- Sent from my HP TouchPad
>> ________________________________
>> On 6 Aug 2012 21:09, Huangj <redspid@163.com> wrote:
>> 俺都介么写
>>
>> my $y;
>> unless ( $y ) { print 1; }
>>
>>
>>
>> 在 2012-06-29 13:19:39，"joe jiang" <lamp.purl@gmail.com> 写道：
>>
>> DB<7> print 1 if !defined $a or $a == 0;
>> 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 访问此网上论坛。
>>
>>
>>
>> --
>> 您收到此邮件是因为您订阅了 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] 一个坑，自己掉进去好几次了。。。

$a $b 只在 sort 里是预设变量。在其它地方没有特别

2012/8/7 Anthony WU <anthonywuy2k@gmail.com>

不是��
而是 $a�$b都是��量………

-------- Original Message --------
Subject: Re: [PerlChina] 一个坑，自己掉进去好几次了。。。
From: wd <wd@wdicc.com>
To: perlchina@googlegroups.com
Date: 7/8/2012 10:55
> if (not defined $a || $a == 0 )
> 优先级问题，本意是 ( (not defined $a) || $a == 0 )，实际是 (not ( defined $a || $a == 0 ) )
>
> perl 里面 ! 和 not，and 和 && 优先级不一样。
>
> 2012/8/6 <mwjpiero@gmail.com>:
>> 新手求教什麽坑?
>>
>>
>>
>> -- Sent from my HP TouchPad
>> ________________________________
>> On 6 Aug 2012 21:09, Huangj <redspid@163.com> wrote:
>> 俺都介么写
>>
>> my $y;
>> unless ( $y ) { print 1; }
>>
>>
>>
>> 在 2012-06-29 13:19:39，"joe jiang" <lamp.purl@gmail.com> 写道：
>>
>> DB<7> print 1 if !defined $a or $a == 0;
>> 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 访问此网上论坛。
>>
>>
>>
>> --
>> 您收到此邮件是因为您订阅了 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] 一个坑，自己掉进去好几次了。。。

不是��
而是 $a�$b都是��量………
-------- Original Message --------
Subject: Re: [PerlChina] 一个坑，自己掉进去好几次了。。。
From: wd <wd@wdicc.com>
To: perlchina@googlegroups.com
Date: 7/8/2012 10:55
> if (not defined $a || $a == 0 )
> 优先级问题，本意是 ( (not defined $a) || $a == 0 )，实际是 (not ( defined $a || $a == 0 ) )
>
> perl 里面 ! 和 not，and 和 && 优先级不一样。
>
> 2012/8/6 <mwjpiero@gmail.com>:
>> 新手求教什麽坑?
>>
>>
>>
>> -- Sent from my HP TouchPad
>> ________________________________
>> On 6 Aug 2012 21:09, Huangj <redspid@163.com> wrote:
>> 俺都介么写
>>
>> my $y;
>> unless ( $y ) { print 1; }
>>
>>
>>
>> 在 2012-06-29 13:19:39，"joe jiang" <lamp.purl@gmail.com> 写道：
>>
>> DB<7> print 1 if !defined $a or $a == 0;
>> 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 访问此网上论坛。
>>
>>
>>
>> --
>> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

2012年8月6日星期一

Re: Re:Re: [PerlChina] 一个坑，自己掉进去好几次了。。。

if (not defined $a || $a == 0 )
优先级问题，本意是 ( (not defined $a) || $a == 0 )，实际是 (not ( defined $a || $a == 0 ) )

perl 里面 ! 和 not，and 和 && 优先级不一样。

2012/8/6 <mwjpiero@gmail.com>:
> 新手求教什麽坑?
>
>
>
> -- Sent from my HP TouchPad
> ________________________________
> On 6 Aug 2012 21:09, Huangj <redspid@163.com> wrote:
> 俺都介么写
>
> my $y;
> unless ( $y ) { print 1; }
>
>
>
> 在 2012-06-29 13:19:39，"joe jiang" <lamp.purl@gmail.com> 写道：
>
> DB<7> print 1 if !defined $a or $a == 0;
> 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 访问此网上论坛。
>
>
>
> --
> 您收到此邮件是因为您订阅了 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: 回复: Re:[PerlChina] 热图中的色阶问题

得要知道你想要到�果
本身 RGB 就是�值，以 RRGGBB 的形式�成
所以就一� 24bit �值而言，就能�� RGB值
因此 24bit 的�值�成 RGB值可以直接�成�
$int = 0xffffff;
$r = $int >> 16;
$g = $int >> 8 & 0xff;
$b = $int & 0xff;

-------- Original Message --------
Subject: 回复: Re:[PerlChina] 热图中的色阶问题
From: zehui.hug <zehui.hug@gmail.com>
To: perlchina <perlchina@googlegroups.com>
Date: 6/8/2012 22:50

谢谢啊，是个办法。但是PS中红色（255,0,0）到绿色（0,255,0）的渐变的话，不是线性的。最为明显的就是他的渐变中，蓝色不会一直是0. 不知道perl里可有其他更优的呢？

呵呵，没有也不要紧，我觉得这个简单的差值渐变基本能满足我的要求了，谢谢！

zehui.hug

发件人： Huangj

发送时间： 2012-08-06 21:05

收件人： perlchina

主题： Re:[PerlChina] 热图中的色阶问题

用绘图软件的调色板看看绿色的颜色值，再看看红色的颜色值，取差值，直接除以100

在 2012-08-06 19:28:25，"zehui.hug" <zehui.hug@gmail.com> 写道：

各位前辈，大家好。本人菜鸟一个，请教一个问题。我想做一个热图，希望不同的数值对应不同颜色。比如说0是绿色，100是红色，之间的数值分别对应从绿到红的渐变色。

这个颜色值在perl中怎么取得呢？有没有一个"色阶函数"之类的可以直接计算呢？（用的SVG的包作图）

提问的业余之处请多包涵，谢谢大家 :)

zehui.hug

Re: Re:Re: [PerlChina] 一个坑，自己掉进去好几次了。。。

新手求教什麽坑?

-- Sent from my HP TouchPad

On 6 Aug 2012 21:09, Huangj <redspid@163.com> wrote:

俺都介么写

my $y;

unless ( $y ) { print 1; }

在 2012-06-29 13:19:39，"joe jiang" <lamp.purl@gmail.com> 写道：

DB<7> print 1 if !defined $a or $a == 0;
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 访问此网上论坛。

订阅：博文 (Atom)

2012年8月7日星期二

2012年8月6日星期一

订阅

博客归档