Perl China Blog Spot: 2011-11-20

2011年11月26日星期六

Re: [PerlChina] 急问！同样的程序不能say OUT到file但是可以say到screen这是为什么啊

应该改成 STDOUT ？

2011/11/27 mandova <mandova1005@yahoo.cn>

改成print也不行，文件打开没有报错，就是死活写不进文件啊~~~把OUT去掉就可以写在屏幕上。。。。

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

Re: [PerlChina] 一句很妙的perl腳本（通過正則表達式判斷素數）

算法非常巧妙！将数学问题转化成了文字匹配问题，正好发挥regex长处。

On 2011-11-26 18:22, Shou Ya wrote:
> 在perl1line上看到的：
>
>
> # Check if a number is a prime
> perl -lne '(1x$_) !~ /^1?$|^(11+?)\1+$/ && print "$_ is prime"'
>
>
> 分析了一下，它先把一�字符（��是'1'）重�多次，�成一�字串。
>
> 然後�那�正�表�式�行，匹配，那�正��有��部分，前面是匹配'1'或者''，也就是�1和零�度的字串返回真。
>
> 右�的部分（^(11+?)\1+$）�始匹配2以上�度的字串，�且�之�行1+次重�，看是否有匹配上的。在前半部分匹配�用�惰的方法，�束匹配字串的�度是�增��的，事�上�利用�婪法也可以匹配成功，只是可能�大多�素��慢一些的。如果有成功匹配，代表了��度（也就是��字）至少有��因子，分�是匹配到的�度和重�的次�+1（�包括左�的那一部分），那�也就�明��不是素�了。
>
> 我��有想到�正�表�式�有��作用，我一直��正��理文字是相��大，�想到它竟然�可以被用在��上，真出乎意料。

[PerlChina] 急问！同样的程序不能say OUT到file但是可以say到screen这是为什么啊

改成print也不行，文件打开没有报错，就是死活写不进文件啊~~~把OUT去掉就可以写在屏幕上。。。。

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

[PerlChina] Re: KinderGarden toy project

Here is the demo site: http://kindergarden.fayland.org

Thanks

On Sun, Nov 27, 2011 at 1:42 PM, Fayland Lam <fayland@gmail.com> wrote:

Hi guys.

I released my toy project under PerlChina github: https://github.com/PerlChina/kindergarden

Right now it's just a toy with OAuth login and a simple app inside. it's built with Plack, Dancer and Mojolicious (which is stupid but it is a TOY)

it's under PerlChina account so everyone is welcome to contribute something.

my aim is to let it go and later on we'll let this project become one of the PerlChina.org sub-site if possible. (but right now, I'll run it in my own server)

I'll get 'Where I live' finished and maybe next App will be 'Modules I used'. any other ideas?

please let me know what do you think.

Thanks.
--
Fayland Lam // http://www.fayland.org/

--
Fayland Lam // http://www.fayland.org/

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

[PerlChina] KinderGarden toy project

Hi guys.

I released my toy project under PerlChina github: https://github.com/PerlChina/kindergarden

Right now it's just a toy with OAuth login and a simple app inside. it's built with Plack, Dancer and Mojolicious (which is stupid but it is a TOY)

it's under PerlChina account so everyone is welcome to contribute something.

my aim is to let it go and later on we'll let this project become one of the PerlChina.org sub-site if possible. (but right now, I'll run it in my own server)

I'll get 'Where I live' finished and maybe next App will be 'Modules I used'. any other ideas?

please let me know what do you think.

Thanks.

--
Fayland Lam // http://www.fayland.org/

Re: [PerlChina] 一句很妙的perl腳本（通過正則表達式判斷素數）

我应该感叹perl的正则实在是太牛逼了

2011/11/26 Shou Ya <zxyzxy12321@gmail.com>

在perl1line上看到的：

# Check if a number is a prime
perl -lne '(1x$_) !~ /^1?$|^(11+?)\1+$/ && print "$_ is prime"'

分析了一下，它先把一�字符（��是'1'）重�多次，�成一�字串。

然後�那�正�表�式�行，匹配，那�正��有��部分，前面是匹配'1'或者''，也就是�1和零�度的字串返回真。

右�的部分（^(11+?)\1+$）�始匹配2以上�度的字串，�且�之�行1+次重�，看是否有匹配上的。在前半部分匹配�用�惰的方法，�束匹配字串的�度是�增��的，事�上�利用�婪法也可以匹配成功，只是可能�大多�素��慢一些的。如果有成功匹配，代表了��度（也就是��字）至少有��因子，分�是匹配到的�度和重�的次�+1（�包括左�的那一部分），那�也就�明��不是素�了。

我��有想到�正�表�式�有��作用，我一直��正��理文字是相��大，�想到它竟然�可以被用在��上，真出乎意料。

--
Ya Shou
zxyzxy12321@gmail.com
http://54c3.tk

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

Re: [PerlChina] 一句很妙的perl腳本（通過正則表達式判斷素數）

太难了，还是没看懂， prime 是用递归做来判断的吧，一般的做法

能不写 1么，写个别的string 好理解，

2011/11/26 Shou Ya <zxyzxy12321@gmail.com>

在perl1line上看到的：

# Check if a number is a prime
perl -lne '(1x$_) !~ /^1?$|^(11+?)\1+$/ && print "$_ is prime"'

分析了一下，它先把一�字符（��是'1'）重�多次，�成一�字串。

然後�那�正�表�式�行，匹配，那�正��有��部分，前面是匹配'1'或者''，也就是�1和零�度的字串返回真。

右�的部分（^(11+?)\1+$）�始匹配2以上�度的字串，�且�之�行1+次重�，看是否有匹配上的。在前半部分匹配�用�惰的方法，�束匹配字串的�度是�增��的，事�上�利用�婪法也可以匹配成功，只是可能�大多�素��慢一些的。如果有成功匹配，代表了��度（也就是��字）至少有��因子，分�是匹配到的�度和重�的次�+1（�包括左�的那一部分），那�也就�明��不是素�了。

我��有想到�正�表�式�有��作用，我一直��正��理文字是相��大，�想到它竟然�可以被用在��上，真出乎意料。

--
Ya Shou
zxyzxy12321@gmail.com
http://54c3.tk

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

--
Yours Sincerely
Zeng Hong

[PerlChina] 一句很妙的perl腳本（通過正則表達式判斷素數）

在perl1line上看到的：

# Check if a number is a prime
perl -lne '(1x$_) !~ /^1?$|^(11+?)\1+$/ && print "$_ is prime"'

分析了一下，它先把一�字符（��是'1'）重�多次，�成一�字串。

然後�那�正�表�式�行，匹配，那�正��有��部分，前面是匹配'1'或者''，也就是�1和零�度的字串返回真。

右�的部分（^(11+?)\1+$）�始匹配2以上�度的字串，�且�之�行1+次重�，看是否有匹配上的。在前半部分匹配�用�惰的方法，�束匹配字串的�度是�增��的，事�上�利用�婪法也可以匹配成功，只是可能�大多�素��慢一些的。如果有成功匹配，代表了��度（也就是��字）至少有��因子，分�是匹配到的�度和重�的次�+1（�包括左�的那一部分），那�也就�明��不是素�了。

我��有想到�正�表�式�有��作用，我一直��正��理文字是相��大，�想到它竟然�可以被用在��上，真出乎意料。

--
Ya Shou
zxyzxy12321@gmail.com
http://54c3.tk

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

订阅：博文 (Atom)

2011年11月26日星期六

订阅

博客归档