Perl China Blog Spot: 2009-03-01

fetchrow_hashref 好像在mysql里只能一条一条的移动几千条好像不是很快吧 mysql里还是推荐 limit 方法。代码也不是很多啊。。

我在mysql5里都是写成过程了，不让别人写sql 呵呵，有些人写的不好造成服务器很慢。以前就是有个经常访问的页里有一个全表扫描的sql 造成服务器缓慢。后来就开始使用过程了，所有的sql都有专门的人去写，程序员只调用就行。（我们的程序员有很多新手...）

2009/3/7 林兴陆 <i@lxl.cn>

怎么能算代码量太大呢，翻页都是基础功能了，写成函数都是必须的。

2009/3/7 yong <luo.yong.name@gmail.com>:

> 大家好，
>
> 我现在手头的CGI程序使用的是mysql的limit和offset控制翻页，这么做感觉代码量太大，而且更换数据库时需要做大量的改动，请问是否可
> 以针对一个条目不是很多（几千条）的表使用直接调用fetchrow_hashref移动指针的方法来做翻页？或者是否有其他的方法能避免使用
> limit和offset？
>
> 多谢了。
> >
>

--
/* 110000011101011011010000110010111100001010111101 *\
Lin Xinglu(林兴陆) - Mike Lam
Mobile Phone: (+86)13501281365
E-Mail: linxinglu@webos.cn / i@lxl.cn
Website: http://www.webos.cn - Web 3.0
QQ: 28888888
ICQ: 2876829
MSN: Linxinglu@hotmail.com
Homepage: http://www.lxl.cn
\* 110000011101011011010000110010111100001010111101 */

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

发帖者 lazayworm 时间： 06:39 没有评论:

[PerlChina] Re: 有关散列的键不能使用正则表达式的问题

2009/3/7 Leeo <yeli210@163.com>:
> 我想通过正则表达式S///来去除散列键中开头的空格，具体方法如下：
>
> foreach (keys %hash_name){
> s/^\s+//g;
> }
>
> print keys %hash_name;
>

你可以这么做：

while (my ($key, $val) = each %hash_name) {
(my $k = $key) =~ s/^\s+//g;
$new_hash{$k} = $val;
}

delete %hash_name;

反正即使在 %hash_name 中修改，改了 key 之后也是要在 hash 中增加新项的，
干脆用个新的 hash.

lee

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

关于 perl vs python ，这个值得一看
1.Slurping a File
http://www.strombergers.com/python/python_perl_slurp_file.html
2.Python is Cool (and Perl is not), Especially for C/C++ Programmers
http://www.strombergers.com/python/

个人没有用过python，不过我觉得语音只是一个工具而已，不同的开发，采用不同的语音，开发效率和运行效率都会有所不同，采用你熟悉的快捷的高效的
语言即可。
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 有关散列的键不能使用正则表达式的问题

散列的keys不是连续存储的 keys函数返回的却是数组应该是把键值复制了一份出来因此不能通过修改$_修改原值
----------------------------------
msmouse@ir.hit.edu.cn
msmouse@gmail.com

2009/3/7 Leeo <yeli210@163.com>

我想通过正则表达式S///来去除散列键中开头的空格，具体方法如下：

foreach (keys %hash_name){
s/^\s+//g;
}

print keys %hash_name;

结果是正则表达式对散列的键不起作用，我想问下是什么原因？麻烦大家指点下！

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] 有关散列的键不能使用正则表达式的问题

我想通过正则表达式S///来去除散列键中开头的空格，具体方法如下：

foreach (keys %hash_name){
s/^\s+//g;
}

print keys %hash_name;

结果是正则表达式对散列的键不起作用，我想问下是什么原因？麻烦大家指点下！
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

写程序到后来基本上什么语言都差不多，只是业务模型不一样

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Tk

建立快捷方式用c:\perl\bin\wperl.exe d:\xxx\yyy\your_scirpt.pl启动你的程序（路径改成自己的）

----------------------------------
msmouse@ir.hit.edu.cn
msmouse@gmail.com

2009/3/7 mark <zhusheng303@163.com>

有没有人知道：在编写对话框程序时(windows)，运行时会出现命令控制台，怎样才能去掉命令控制台那个黑屏？

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

2009/3/7 Wan Chaowei <wanmyome@gmail.com>:
> c确实比perl要爽很多，至少变量不用按Shift+钱号，可以偷懒了

有句话是怎么说来着，捡了芝麻，丢了西瓜 :-D

lee

[PerlChina] Re: Tk

perl脚本在控制台运行我从来没有去掉过那个黑屏。使用perlapp打包的时候使用gui参数黑屏就不见了。perlapp是pdk的一部分，pdk是商业软件，我只是在研究他的原理

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

c确实比perl要爽很多，至少变量不用按Shift+钱号，可以偷懒了

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 原创脚本--抓取需要登录后才能看到的页面

为什么非要用perl来做这件事，搞个浏览器控件不就变得简单了么

2009/3/6 Beckheng Lam <bi.ken.lam@gmail.com>

LWP::UserAgent可以带CookieJar呀。每次的COOKIE不同也不用怕的。
Qiang (James) wrote:
fcyf wrote:   
是否可以完善一下，有些网站的登陆不是考cookie，而是靠 seesion或者cooke+session     
session 通常就是 session id,储存在 url 或 cookie 里。两种情况下 lwp 抓取 都没有问题。  Qiang(James)    
-- Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

发帖者 lazayworm 时间： 03:31 没有评论:

[PerlChina] Re: 请教指针变量怎么处理成数组?

2009/3/7 imxae <imx365ster@gmail.com>:
> 谢谢指教,原来是括号用错了.

学学 Perl 的 reference 怎么用吧，执行 perldoc perlref 查看文档。

lee

2009年3月6日星期五

[PerlChina] Re: 请教指针变量怎么处理成数组?

谢谢指教,原来是括号用错了.
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 问CGI页面如何控制翻页？

怎么能算代码量太大呢，翻页都是基础功能了，写成函数都是必须的。

2009/3/7 yong <luo.yong.name@gmail.com>:
> 大家好，
>
> 我现在手头的CGI程序使用的是mysql的limit和offset控制翻页，这么做感觉代码量太大，而且更换数据库时需要做大量的改动，请问是否可
> 以针对一个条目不是很多（几千条）的表使用直接调用fetchrow_hashref移动指针的方法来做翻页？或者是否有其他的方法能避免使用
> limit和offset？
>
> 多谢了。
> >
>

--
/* 110000011101011011010000110010111100001010111101 *\
Lin Xinglu(林兴陆) - Mike Lam
Mobile Phone: (+86)13501281365
E-Mail: linxinglu@webos.cn / i@lxl.cn
Website: http://www.webos.cn - Web 3.0
QQ: 28888888
ICQ: 2876829
MSN: Linxinglu@hotmail.com
Homepage: http://www.lxl.cn
\* 110000011101011011010000110010111100001010111101 */

[PerlChina] Re: 请教指针变量怎么处理成数组?

2009/3/7 imxae <imx365ster@gmail.com>:
> 如下代码所示,
>
> $ver->{text1} = 'text1';
> $ver->{text2} = 'text2';
>
> 这时如果想增加个数组变量如:
>
> $ver->{text3} = ("text1", "text2");
>
> 该怎么写,@这个符号需要放在什么地方呢?

$ver->{text3} = ["text1", "text2"];

[PerlChina] 请教指针变量怎么处理成数组?

如下代码所示,

$ver->{text1} = 'text1';
$ver->{text2} = 'text2';

这时如果想增加个数组变量如:

$ver->{text3} = ("text1", "text2");

该怎么写,@这个符号需要放在什么地方呢?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Tk

有没有人知道：在编写对话框程序时(windows)，运行时会出现命令控制台，怎样才能去掉命令控制台那个黑屏？
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 问CGI页面如何控制翻页？

大家好，

我现在手头的CGI程序使用的是mysql的limit和offset控制翻页，这么做感觉代码量太大，而且更换数据库时需要做大量的改动，请问是否可
以针对一个条目不是很多（几千条）的表使用直接调用fetchrow_hashref移动指针的方法来做翻页？或者是否有其他的方法能避免使用
limit和offset？

多谢了。
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 09年上海第二次聚会

本来是这周的，但是因为有别的安排临时改变了日期到下个周六。也就是3/14。

2009/3/6 jesse <newday.jesse@gmail.com>

明天周末有聚会吗？

On 3月5日, 上午10时01分, 老邪 <swansu...@gmail.com> wrote:
> 呵呵，我改投上海阵营算了，安排在周末，时间挺好的 :)
>

> 2009/3/4 purl lamp <lamp.p...@gmail.com>

>
> > 在北京这个周四的聚会之后，我们也可以再来一次，这次的主题恰巧也是 Catalyst 相关的 DBIx :D
> > 时间可以定在这个月14日下午两点，地点仍然在人民广场附近，有合适的地点请推荐。

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 09年上海第二次聚会

好像是下周末 3月14号吧

2009/3/6 jesse <newday.jesse@gmail.com>

明天周末有聚会吗？

On 3月5日, 上午10时01分, 老邪 <swansu...@gmail.com> wrote:
> 呵呵，我改投上海阵营算了，安排在周末，时间挺好的 :)
>
> 2009/3/4 purl lamp <lamp.p...@gmail.com>

>
> > 在北京这个周四的聚会之后，我们也可以再来一次，这次的主题恰巧也是 Catalyst 相关的 DBIx :D
> > 时间可以定在这个月14日下午两点，地点仍然在人民广场附近，有合适的地点请推荐。 --~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

发帖者 lazayworm 时间： 06:53 没有评论:

[PerlChina] Re: 09年上海第二次聚会

明天周末有聚会吗？

On 3月5日, 上午10时01分, 老邪 <swansu...@gmail.com> wrote:
> 呵呵，我改投上海阵营算了，安排在周末，时间挺好的 :)
>
> 2009/3/4 purl lamp <lamp.p...@gmail.com>
>
> > 在北京这个周四的聚会之后，我们也可以再来一次，这次的主题恰巧也是 Catalyst 相关的 DBIx :D
> > 时间可以定在这个月14日下午两点，地点仍然在人民广场附近，有合适的地点请推荐。
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

2009年3月5日星期四

[PerlChina] Re: Perl vs Python

少了很多特殊符号，简单的关键字。
豁然开朗了

2009/3/6 agentzh <agentzh@gmail.com>

2009/3/6 Wan Chaowei <wanmyome@gmail.com>
什么是最好的编程语言？能让老板开心的给我发工资的语言就是最好的语言，无论什么语言都是好的

呵呵，所以我最近一直在写 C，因为在目前公司项目的并发和数据量下，别的语言都有些悬。。。呵呵。。。其实经过各种复杂优化的 Perl 代码写多了，回过头来写 C 反而觉得轻松和舒心了许多。。。哈哈！

Cheers,
-agentzh

--
blog - http://hi.baidu.com/smallfish7788

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

2009/3/6 Wan Chaowei <wanmyome@gmail.com>

什么是最好的编程语言？能让老板开心的给我发工资的语言就是最好的语言，无论什么语言都是好的

呵呵，所以我最近一直在写 C，因为在目前公司项目的并发和数据量下，别的语言都有些悬。。。呵呵。。。其实经过各种复杂优化的 Perl 代码写多了，回过头来写 C 反而觉得轻松和舒心了许多。。。哈哈！

Cheers,
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 原创脚本--抓取需要登录后才能看到的页面

LWP::UserAgent可以带CookieJar呀。每次的COOKIE不同也不用怕的。

Qiang (James) wrote:

fcyf wrote:

是否可以完善一下，有些网站的登陆不是考cookie，而是靠 seesion或者cooke+session

 session 通常就是 session id,储存在 url 或 cookie 里。两种情况下 lwp 抓取 都没有问题。  Qiang(James)

--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 原创脚本--抓取需要登录后才能看到的页面

fcyf wrote:
> 是否可以完善一下，有些网站的登陆不是考cookie，而是靠 seesion或者cooke+session

session 通常就是 session id,储存在 url 或 cookie 里。两种情况下 lwp 抓取
都没有问题。

Qiang(James)

[PerlChina] Re: 原创脚本--抓取需要登录后才能看到的页面

金山糍粑 wrote:
> 第一次在这里发帖，大家多多关照！o(∩_∩)o...哈哈！
> 脚本的实现策略比较简单：
> 第一步，先在你要抓取页面的网站，注册一个帐号，并登陆成功后，在IE浏览器的地址栏输入如下js代码：
> document.write(); 回车，得到网站的cookie值；
> 第二步，再将得到的cookie赋值个 LWP::UserAgent 对象
> 第三步，通过 LWP::UserAgent 实现抓取
> 第四步，解析html
>
> 具体实现如下，测试后，有写网站抓取不稳定，意思就是说，获取的数据有时会话过期提示要登录。
> 希望大家指点，如何实现更稳定，或者问题怎么解决？。谢谢。：）

为什么要去手动的得到网站 cookie?

至于会话过期，你可以检测然后再登陆一次。不过一般 cookie/session 够长我还
没有碰到过期的情况。

Qiang(James)

[PerlChina] Re: Perl vs Python

什么是最好的编程语言？能让老板开心的给我发工资的语言就是最好的语言，无论什么语言都是好的

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

谢谢你了:)

On Thursday 05 March 2009 23:28:47 杨溪 wrote:
> 散文抒情诗，说的太好了！
>
> ＠rorot
>
> IMO，perl的there's more than one way to do
> it是很棒的观念，自由的书写也是很难享受到的，如果仅仅因为OO就没信心就不对了，毕竟使用perl你有不止一种选择：）
> 如果你有时间，可以看看moose。
> 如果用perl，
> python的简洁确实使书写者受益，这在成为使用python的理由之前，更应该是追求的目标。没法保证简洁的语法一定能出简洁的代码。
> OO在机制之前应该是观念。这个我已经不想说了，java都一样可以messy，悲惨往事
> 说到perl，别的不说，我最烦的是 my $self=shift;，还有就是->。。。 perl5自身的oo写起来太麻烦了，恩，懒惯了，要整改。。。
> 可以考虑2个都学，视场景选择最适宜的。python的市场占有率决定了，学会绝对用的上
> 我一直没有perl的项目，只是自己用来处理工作生活的琐事，所以才会这么说吧，见笑了。不管怎么说，选择在自己手里。如果是项目需要，又有所
不同。。。
> 最后，我没有说任何python坏话，恩，没有。。。
>
> 2009/3/4 agentzh <agentzh@gmail.com>
>
> > 2009/3/4 kindy <kindy61@gmail.com>
> >
> >> python 比较规矩一些。
> >> 如果你喜欢折腾，就用 perl 好了。
> >
> > 嗯。。。我一大学同学 (Jack Shen) 是 Java/Python 程序员，他以"论文式的代码"为荣。我则以"散文抒情诗式的 Perl
> > 代码"为荣。。。呵呵
> >
> > Cheers,
> > -agentzh
>
>

[PerlChina] Re: Perl vs Python

散文抒情诗，说的太好了！

＠rorot

IMO，perl的there's more than one way to do it是很棒的观念，自由的书写也是很难享受到的，如果仅仅因为OO就没信心就不对了，毕竟使用perl你有不止一种选择：）
如果你有时间，可以看看moose。
如果用perl，
python的简洁确实使书写者受益，这在成为使用python的理由之前，更应该是追求的目标。没法保证简洁的语法一定能出简洁的代码。
OO在机制之前应该是观念。这个我已经不想说了，java都一样可以messy，悲惨往事
说到perl，别的不说，我最烦的是 my $self=shift;，还有就是->。。。 perl5自身的oo写起来太麻烦了，恩，懒惯了，要整改。。。
可以考虑2个都学，视场景选择最适宜的。python的市场占有率决定了，学会绝对用的上
我一直没有perl的项目，只是自己用来处理工作生活的琐事，所以才会这么说吧，见笑了。不管怎么说，选择在自己手里。如果是项目需要，又有所不同。。。
最后，我没有说任何python坏话，恩，没有。。。

2009/3/4 agentzh <agentzh@gmail.com>

2009/3/4 kindy <kindy61@gmail.com>
python 比较规矩一些。
如果你喜欢折腾，就用 perl 好了。

嗯。。。我一大学同学 (Jack Shen) 是 Java/Python 程序员，他以"论文式的代码"为荣。我则以"散文抒情诗式的 Perl 代码"为荣。。。呵呵

Cheers,
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 原创脚本--抓取需要登录后才能看到的页面

是否可以完善一下，有些网站的登陆不是考cookie，而是靠 seesion或者cooke+session
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

嗯，在转过来之前先别学lisp :D

On Mar 4, 9:36 pm, xu zhou <redic...@gmail.com> wrote:
> 有可能是你java，c，python，perl之类的学多了
> 脑筋一下子不好转过来
>
> 2009/3/5 smallfish <perluo...@gmail.com>:
>
> > 定义函数的方式很有意思的说，看来不是我的智商问题啊。刚看了一天多 :)
> > pugs貌似就是用这个写的
>
> > 2009/3/5 agentzh <agen...@gmail.com>
>
> >> 2009/3/5 smallfish <perluo...@gmail.com>
>
> >>> 百度下。一种函数式编程语言。很牛x的说，可惜我看了几天是一头雾水，太过深奥，有点接受不了它的描述方式。
>
> >> 呵呵，Larry 一次在 Perl 6 核心小组的电话会议上说他下决心学了 8 次才对 Haskell
> >> 有些感觉。。。我则学了好几个年头才上手。。。呵呵
>
> >> -agentzh
> >> ---
> >> "Haskell makes hard things simple, simple things weird." -- Larry Wall
>
> > --
> > blog -http://hi.baidu.com/smallfish7788
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 原创脚本--抓取需要登录后才能看到的页面

> 修正 document.write(document.c o o k i e); 回车，得到网站的cookie值；
发表的时候，系统自动过滤掉了

[PerlChina] 原创脚本--抓取需要登录后才能看到的页面

第一次在这里发帖，大家多多关照！o(∩_∩)o...哈哈！
脚本的实现策略比较简单：
第一步，先在你要抓取页面的网站，注册一个帐号，并登陆成功后，在IE浏览器的地址栏输入如下js代码：
document.write(); 回车，得到网站的cookie值；
第二步，再将得到的cookie赋值个 LWP::UserAgent 对象
第三步，通过 LWP::UserAgent 实现抓取
第四步，解析html

具体实现如下，测试后，有写网站抓取不稳定，意思就是说，获取的数据有时会话过期提示要登录。
希望大家指点，如何实现更稳定，或者问题怎么解决？。谢谢。：）

--------------------------------------------------------------------------------------------------------------------------------
配置文件：config.xml
<?xml version='1.0' encoding='utf-8'?>
<config>
<domain>www.xxxxnet</domain>

<path>/</path>

<data_dir>data</data_dir>

<cookie_version>Set-Cookie3</cookie_version>

<cookies>
cck_lasttime=1236217579437; cck_count=0; cnzz_a321858=60; vw321858=
%3A16839968%3A42577264%3A65005069%3A37251471%3A33312220%3A36235501%3A35414756%3A35922741%3A62201617%3A35405608%3A53791128%3A35904130%3A53791127%3A35727515%3A36402653%3A34408563%3A36743486%3A74800923%3A37495433%3A32038215%3A37759456%3A;
sin321858=none; rtime=0; ltime=1236243678484;
cnzz_eid=77435460-1236217578-;
ASPSESSIONIDQAADDSQC=GHONMGMDNILLLAELGEAKEMJN
</cookies>

<dataurls>
<data_url_prefix>http://www.xxxxx.net/shangji/
showgongying.asp?id=</data_url_prefix>
<start>2435</start>
<end>2437</end>
<starthtml><![CDATA[<table width="645" border="0"
cellspacing="0" cellpadding="0">]]></starthtml>
<endhtml><![CDATA[<table width="98%" border="0"
align="center" cellpadding="0" cellspacing="0">]]></endhtml>
<sub_dir>showgongying</sub_dir>
</dataurls>
<dataurls>
<data_url_prefix>http://www.xxxxxx.net/shangji/
showshangji.asp?id=</data_url_prefix>
<start>2265</start>
<end>2267</end>
<sub_dir>showshangji</sub_dir>
<starthtml><![CDATA[<table width="645" border="0"
cellspacing="0" cellpadding="0">]]></starthtml>
<endhtml><![CDATA[<table width="98%" border="0"
align="center" cellpadding="0" cellspacing="0">]]></endhtml>
</dataurls>
</config>
------------------------------------------------------------------------------------------------------------------------------
html解析实现模块：
########################
# Version: 0.02
### Author: dungang
### Date: 2009.03.05
### File: ParseData.pm
# Email: dungang@hotmail.com
########################
package ParseData;
use HTML::Parser;
use base 'HTML::Parser';
use IO::File;
sub setstart {
my ( $self , $savefile, $startstr, $endstr ) = @_;
$self->{fh} = IO::File->new();
$self->{fh}->open(">" . $savefile);
$self->{startstr} = $startstr;
$self->{endstr} = $endstr;
}

sub start
{
my ($self,$tagname,$attr,$text,$dtext ) = @_;
if ( lc($tagname) eq 'table' ) {
if ( $text eq $self->{startstr} ){
$self->{bool} = 1;
}
elsif ( $text eq $self->{endstr} ) {
$self->{bool} = 0;
}
}
}

sub text
{
my ( $self, $text ) = @_;
if ( $self->{bool} ) {
$text =~s/(\s*)|(&.*?;)|()//g;
$text =~s///g;
$self->{fh}->print( $text . "\n") if $text ne '' ;
}
}

sub setend
{
my $self = shift;
$self->{fh}->close;
$self->eof;
}

-----------------------------------------------------------------------------------------------------------------------------------
实现抓取脚本：getPage.pl

#!/usr/bin/perl
########################
# Version: 0.02
### Author: dungang
### Date: 2009.03.05
### File: getPage.pl
# Email: dungang@hotmail.com
########################
use XML::Parser;
use LWP::UserAgent;
use HTTP::Cookies;
use XML::Simple;
use File::Path;
use ParseData;
$XML::Simple::PREFERRED_PARSER = "XML::Parser";
-e 'config.xml' or die "Can't find config.xml file in current
directory !";
my $config = XMLin('config.xml');
my $cookie_jar = HTTP::Cookies->new();
my @cks = split(';',$config->{cookies});
foreach (@cks) {
my @nv = split('=',$_);
$cookie_jar->set_cookie( $config->{cookie_version}, $nv[0] , $nv
[1], $config->{path}||'/', $config->{domain}, '80', '', '', '1' );
}
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1;
SV1; .NET CLR 2.0.50727)");
$ua->cookie_jar($cookie_jar);
my $p = ParseData->new(
start_h => [\&ParseData::start,"self,tagname,attr,text,dtext"],
text_h => [\&ParseData::text,'self,text'],
);
foreach my $url (@{$config->{dataurls}}) {
my $data_dir = $config->{data_dir} . '/' . $url->{sub_dir};
mkpath($data_dir) unless -d $data_dir;
for ( my $i=$url->{start}; $i <= $url->{end}; $i++ ) {
my $req = HTTP::Request->new(GET => $url->
{data_url_prefix} . $i);
my $res = $ua->request($req);
if ($res->is_success) {
$p->setstart($data_dir . '/' . $i . '.txt', $url->{starthtml},
$url->{endhtml});
$p->parse($res->content);
$p->setend;
}
else {
print $res->status_line, "\n";
}
}
}

[PerlChina] Re: 有谁用过lwp中的authenicate？

xu zhou wrote:
> use LWP::UserAgent;
>
> my $url = "my url";
>
> my $mech = LWP::UserAgent->new();
> my $req = HTTP::Request->new(GET => $url);
> $req->authorization_basic('uid','password');
> print $mech->request($req)->as_string; 这个可以通过验证
> -----------------------------------------------------------------------------------------------
>
>
> my $url = "my url";
>
> my $mech = LWP::UserAgent->new();
> $mech->credentials(
> "$url:80",
> "Please Input Your Password",
> "uid" => "password",
> );
> my $response = $mech->get("http://$url/");
> die "Error getting $url: ", $response->status_line
> if $response->is_error;
> 这个就失败了
> ------------------------------------------------------------------------------------------------------
>

只是一个猜测。。realm 对么？错误信息是什么。。

Qiang(James)

[PerlChina] Re: Perl vs Python

python的格式我受不了，还是习惯c语言的格式

2009/3/4 rorot <yang.liana@gmail.com>:
> 诸位好，
>
> 我想我需要重拾对Perl的信心。
>
> 以前写脚本喜欢用Perl, 因为他的正则表达式，因为他的CAPN里面众多的功能扩展。
>
> 但是，我对Perl的OOP编程没有什么认识，只觉得Perl的OOP实际上就是Package的封装。所以当需要OOP的时候，我想到Python，但是不
> 清楚Perl和Python在语言上，各有什么差异，比如Python在OOP上，有什么优势？
>
> 望不吝赐教。
>
> rorot
>
> >
>

[PerlChina] 有谁用过lwp中的authenicate？

use LWP::UserAgent;

my $url = "my url";

my $mech = LWP::UserAgent->new();
my $req = HTTP::Request->new(GET => $url);
$req->authorization_basic('uid','password');
print $mech->request($req)->as_string; 这个可以通过验证
-----------------------------------------------------------------------------------------------

my $url = "my url";

my $mech = LWP::UserAgent->new();
$mech->credentials(
"$url:80",
"Please Input Your Password",
"uid" => "password",
);
my $response = $mech->get("http://$url/");
die "Error getting $url: ", $response->status_line
if $response->is_error;
这个就失败了
------------------------------------------------------------------------------------------------------

哪位知道为什么吗？

2009年3月4日星期三

[PerlChina] Re: Perl vs Python

这么难，有空也去看看

On 3/5/09, xu zhou <redicaps@gmail.com> wrote:

有可能是你java，c，python，perl之类的学多了
脑筋一下子不好转过来

2009/3/5 smallfish <perluo777@gmail.com>:
> 定义函数的方式很有意思的说，看来不是我的智商问题啊。刚看了一天多 :)
> pugs貌似就是用这个写的
>
> 2009/3/5 agentzh <agentzh@gmail.com>
>>
>> 2009/3/5 smallfish <perluo777@gmail.com>
>>>
>>> 百度下。一种函数式编程语言。很牛x的说，可惜我看了几天是一头雾水，太过深奥，有点接受不了它的描述方式。
>>
>> 呵呵，Larry 一次在 Perl 6 核心小组的电话会议上说他下决心学了 8 次才对 Haskell
>> 有些感觉。。。我则学了好几个年头才上手。。。呵呵
>>
>> -agentzh
>> ---
>> "Haskell makes hard things simple, simple things weird." -- Larry Wall
>
> --
> blog - http://hi.baidu.com/smallfish7788
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

有可能是你java，c，python，perl之类的学多了
脑筋一下子不好转过来

2009/3/5 smallfish <perluo777@gmail.com>:
> 定义函数的方式很有意思的说，看来不是我的智商问题啊。刚看了一天多 :)
> pugs貌似就是用这个写的
>
> 2009/3/5 agentzh <agentzh@gmail.com>
>>
>> 2009/3/5 smallfish <perluo777@gmail.com>
>>>
>>> 百度下。一种函数式编程语言。很牛x的说，可惜我看了几天是一头雾水，太过深奥，有点接受不了它的描述方式。
>>
>> 呵呵，Larry 一次在 Perl 6 核心小组的电话会议上说他下决心学了 8 次才对 Haskell
>> 有些感觉。。。我则学了好几个年头才上手。。。呵呵
>>
>> -agentzh
>> ---
>> "Haskell makes hard things simple, simple things weird." -- Larry Wall
>
> --
> blog - http://hi.baidu.com/smallfish7788
>
> >
>

[PerlChina] Re: Perl vs Python

定义函数的方式很有意思的说，看来不是我的智商问题啊。刚看了一天多 :)
pugs貌似就是用这个写的

2009/3/5 agentzh <agentzh@gmail.com>

2009/3/5 smallfish <perluo777@gmail.com>
百度下。一种函数式编程语言。很牛x的说，可惜我看了几天是一头雾水，太过深奥，有点接受不了它的描述方式。

呵呵，Larry 一次在 Perl 6 核心小组的电话会议上说他下决心学了 8 次才对 Haskell 有些感觉。。。我则学了好几个年头才上手。。。呵呵

-agentzh
---
"Haskell makes hard things simple, simple things weird." -- Larry Wall

[PerlChina] Re: Perl vs Python

2009/3/5 smallfish <perluo777@gmail.com>

百度下。一种函数式编程语言。很牛x的说，可惜我看了几天是一头雾水，太过深奥，有点接受不了它的描述方式。

呵呵，Larry 一次在 Perl 6 核心小组的电话会议上说他下决心学了 8 次才对 Haskell 有些感觉。。。我则学了好几个年头才上手。。。呵呵

-agentzh
---
"Haskell makes hard things simple, simple things weird." -- Larry Wall

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

百度下。一种函数式编程语言。很牛x的说，可惜我看了几天是一头雾水，太过深奥，有点接受不了它的描述方式。

2009/3/5 Michael Zeng <galaxy2004@gmail.com>

Haskell 是干啥的，大牛解释一下

On 3/5/09, smallfish <perluo777@gmail.com> wrote:
说不准你的英语表达方式已经影响到周围的同事咯 :)

2009/3/5 agentzh <agentzh@gmail.com>

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

没办法，有时候自己写的程序过了2个月自己都看不懂

这让我想起从前上初中的时候，我刚开始尝试用英语来写日记，结果发现没过几天就看不懂自己写的究竟是啥了，但我还是坚持了很长一段时间，呵呵。如今，我经常很自恋地反复地大声朗读自己写的英文 blog，吵得周围同事都受不了了，呵呵。

Cheers,
-agentzh

[PerlChina] Re: Perl vs Python

Haskell 是干啥的，大牛解释一下

On 3/5/09, smallfish <perluo777@gmail.com> wrote:

说不准你的英语表达方式已经影响到周围的同事咯 :)

2009/3/5 agentzh <agentzh@gmail.com>

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

没办法，有时候自己写的程序过了2个月自己都看不懂

这让我想起从前上初中的时候，我刚开始尝试用英语来写日记，结果发现没过几天就看不懂自己写的究竟是啥了，但我还是坚持了很长一段时间，呵呵。如今，我经常很自恋地反复地大声朗读自己写的英文 blog，吵得周围同事都受不了了，呵呵。

Cheers,
-agentzh

--
blog - http://hi.baidu.com/smallfish7788
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

说不准你的英语表达方式已经影响到周围的同事咯 :)

2009/3/5 agentzh <agentzh@gmail.com>

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

没办法，有时候自己写的程序过了2个月自己都看不懂

这让我想起从前上初中的时候，我刚开始尝试用英语来写日记，结果发现没过几天就看不懂自己写的究竟是啥了，但我还是坚持了很长一段时间，呵呵。如今，我经常很自恋地反复地大声朗读自己写的英文 blog，吵得周围同事都受不了了，呵呵。

Cheers,
-agentzh

[PerlChina] Re: Perl vs Python

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

没办法，有时候自己写的程序过了2个月自己都看不懂

这让我想起从前上初中的时候，我刚开始尝试用英语来写日记，结果发现没过几天就看不懂自己写的究竟是啥了，但我还是坚持了很长一段时间，呵呵。如今，我经常很自恋地反复地大声朗读自己写的英文 blog，吵得周围同事都受不了了，呵呵。

Cheers,
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

2009/3/5 smallfish <perluo777@gmail.com>

咋丑陋的，不是蛮好看的嘛。

Larry 就在公开场合声称永远不能忍受自己的代码"悬在半空"。我自从写多了 Haskell 之后不是那么挑剔了，但 Python 在代码简洁性和表达力上和 Haskell 相比还是有不小的距离的，呵呵。公平地说，Python 是一门不错的语言，就是名字听得有些吓人，呵呵 :)

Cheers,
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

我看vb和delphi的代码实在觉得丑陋无比

2009/3/5 Shu Cho <neatcho@gmail.com>

好不好看那是时尚问题，时尚那是轮回地变的。guido根本就不懂时尚，搞个保鲜膜包裹一下得到了时尚界的肯定就非得100年不变的说这是最好看的代码，可能嘛.
too simple, too Naïve.

[PerlChina] Re: firefox插件，是否可以做一些本地程序能实现的功能？

2009/3/5 Beckheng Lam <bi.ken.lam@gmail.com>

例如直接利用FIREFOX浏览网页，又可以获取机器的一些信息，例如操作系统版本，MAC地址等？

这个贴子发到 perlchina 邮件组确实有些有趣，呵呵，有 OT 之嫌。你通过 Firefox 插件方式（更准确地说是 chrome 模式）可以取得当前用户的所有信息，但 content 网页中不通过特别授权是无法取的 :)

Cheers,
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

2009/3/4 Don Qin <icefishc@gmail.com>

perl5 的ＯＯ过于灵活，　自己写的时候这种灵活可以带来很多方便。
可在项目中就不一样，　现抛开可读性那种主观的东西不谈。
每个人都有自己的风格，　组合到一起总是显得很乱。　有可能还会出现相互不兼容的情况造成麻烦。

perl 本来就很像自然语言。　：p

*nod*

引用 #perl6 中的一小段对白：

19:25 geoffb Perl certainly is like English . . . so much power, and SO messy
19:26 PerlJam geoffb: yep. Fortunately for perl, the world is quite messy too. That makes it easier to get a one-to-one correspondence between reality and your software.

Cheers,
-agentzh
---
"The reasonable man adapts himself to the world; the unreasonable one persists in trying to adapt the world to himself. Therefore all progress depends on the unreasonable man." -- George Bernard Shaw

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

好不好看那是时尚问题，时尚那是轮回地变的。guido根本就不懂时尚，搞个保鲜膜包裹一下得到了时尚界的肯定就非得100年不变的说这是最好看的代码，可能嘛.
too simple, too Naïve.

2009/3/5 smallfish <perluo777@gmail.com>:
> 咋丑陋的，不是蛮好看的嘛。
>
> 2009/3/5 Shu Cho <neatcho@gmail.com>
>>
>> 可惜的是，我觉得python的代码很丑陋，至少审美疲劳是肯定会有的
>>
>> 2009/3/4 purl lamp <lamp.purl@gmail.com>:
>> > http://python-history.blogspot.com/
>> >
>> > 从这个 blog 看来，python 的设计思想里面也并不缺乏简洁，只是优先级相对较低 :)
>> > 他的设计中第一优先级是 Beautiful is better than ugly
>> > 但是对于蓝领来说美丽是太崇高的追求 :)
>> >
>> > guido 的设计思想是 Borrow ideas from elsewhere whenever it makes sense.
>> > 而larry 确实花钱买了 pcre 的引擎来构造 perl，也许perl 的 practical 应该是翻译成实惠的。
>> >
>> > 2009/3/4 kindy <kindy61@gmail.com>
>> >>
>> >> 我学习 perl 的初始原因是他的简洁语法。
>> >> 特别是文件处理，正则处理。
>> >>
>> >> 这2个方面 python 在语法简介程度上没法比。
>> >>
>> >> On 3月4日, 下午2时50分, Shu Cho <neat...@gmail.com> wrote:
>> >> > use Moose;
>> >> >
>> >> > 2009/3/4 rorot <yang.li...@gmail.com>:
>> >> >
>> >> >
>> >> >
>> >> > > 诸位好，
>> >> >
>> >> > > 我想我需要重拾对Perl的信心。
>> >> >
>> >> > > 以前写脚本喜欢用Perl, 因为他的正则表达式，因为他的CAPN里面众多的功能扩展。
>> >> >
>> >> > >
>> >> > >
>> >> > > 但是，我对Perl的OOP编程没有什么认识，只觉得Perl的OOP实际上就是Package的封装。所以当需要OOP的时候，我想到Python，但是不
>> >> > > 清楚Perl和Python在语言上，各有什么差异，比如Python在OOP上，有什么优势？
>> >> >
>> >> > > 望不吝赐教。
>> >> >
>> >> > > rorot
>> >>
>> >
>> >
>> > >
>> >
>>
>
> --
> blog - http://hi.baidu.com/smallfish7788
>
> >
>

[PerlChina] Re: Perl vs Python

咋丑陋的，不是蛮好看的嘛。

2009/3/5 Shu Cho <neatcho@gmail.com>

可惜的是，我觉得python的代码很丑陋，至少审美疲劳是肯定会有的

2009/3/4 purl lamp <lamp.purl@gmail.com>:

> http://python-history.blogspot.com/
>
> 从这个 blog 看来，python 的设计思想里面也并不缺乏简洁，只是优先级相对较低 :)
> 他的设计中第一优先级是 Beautiful is better than ugly
> 但是对于蓝领来说美丽是太崇高的追求 :)
>
> guido 的设计思想是 Borrow ideas from elsewhere whenever it makes sense.
> 而larry 确实花钱买了 pcre 的引擎来构造 perl，也许perl 的 practical 应该是翻译成实惠的。
>
> 2009/3/4 kindy <kindy61@gmail.com>
>>
>> 我学习 perl 的初始原因是他的简洁语法。
>> 特别是文件处理，正则处理。
>>
>> 这2个方面 python 在语法简介程度上没法比。
>>
>> On 3月4日, 下午2时50分, Shu Cho <neat...@gmail.com> wrote:
>> > use Moose;
>> >
>> > 2009/3/4 rorot <yang.li...@gmail.com>:
>> >
>> >
>> >
>> > > 诸位好，
>> >
>> > > 我想我需要重拾对Perl的信心。
>> >
>> > > 以前写脚本喜欢用Perl, 因为他的正则表达式，因为他的CAPN里面众多的功能扩展。
>> >
>> > >
>> > > 但是，我对Perl的OOP编程没有什么认识，只觉得Perl的OOP实际上就是Package的封装。所以当需要OOP的时候，我想到Python，但是不
>> > > 清楚Perl和Python在语言上，各有什么差异，比如Python在OOP上，有什么优势？
>> >
>> > > 望不吝赐教。
>> >
>> > > rorot
>>
>
>
> >
>

[PerlChina] Re: Perl vs Python

可惜的是，我觉得python的代码很丑陋，至少审美疲劳是肯定会有的

2009/3/4 purl lamp <lamp.purl@gmail.com>:
> http://python-history.blogspot.com/
>
> 从这个 blog 看来，python 的设计思想里面也并不缺乏简洁，只是优先级相对较低 :)
> 他的设计中第一优先级是 Beautiful is better than ugly
> 但是对于蓝领来说美丽是太崇高的追求 :)
>
> guido 的设计思想是 Borrow ideas from elsewhere whenever it makes sense.
> 而larry 确实花钱买了 pcre 的引擎来构造 perl，也许perl 的 practical 应该是翻译成实惠的。
>
> 2009/3/4 kindy <kindy61@gmail.com>
>>
>> 我学习 perl 的初始原因是他的简洁语法。
>> 特别是文件处理，正则处理。
>>
>> 这2个方面 python 在语法简介程度上没法比。
>>
>> On 3月4日, 下午2时50分, Shu Cho <neat...@gmail.com> wrote:
>> > use Moose;
>> >
>> > 2009/3/4 rorot <yang.li...@gmail.com>:
>> >
>> >
>> >
>> > > 诸位好，
>> >
>> > > 我想我需要重拾对Perl的信心。
>> >
>> > > 以前写脚本喜欢用Perl, 因为他的正则表达式，因为他的CAPN里面众多的功能扩展。
>> >
>> > >
>> > > 但是，我对Perl的OOP编程没有什么认识，只觉得Perl的OOP实际上就是Package的封装。所以当需要OOP的时候，我想到Python，但是不
>> > > 清楚Perl和Python在语言上，各有什么差异，比如Python在OOP上，有什么优势？
>> >
>> > > 望不吝赐教。
>> >
>> > > rorot
>>
>
>
> >
>

[PerlChina] firefox插件，是否可以做一些本地程序能实现的功能？

例如直接利用FIREFOX浏览网页，又可以获取机器的一些信息，例如操作系统版本，MAC地址等？

--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 09年上海第二次聚会

呵呵，我改投上海阵营算了，安排在周末，时间挺好的 :)

2009/3/4 purl lamp <lamp.purl@gmail.com>

在北京这个周四的聚会之后，我们也可以再来一次，这次的主题恰巧也是 Catalyst 相关的 DBIx :D
时间可以定在这个月14日下午两点，地点仍然在人民广场附近，有合适的地点请推荐。

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 09年上海第二次聚会

另外，鉴于chinaunix上perl论坛人气比较旺，建议lz可以在该论坛也发个帖子让更多的爱好者知道有此活动。

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

> 呃。。。Perl 5 中的 OO 是很另类的东西，在其之上可以轻松实现各种 OO 模型，比如基于 Prototype 的（如
> Class::Prototyped ），基于 Inside-out 的（如 Class::Std ），基于 Smalltalk/Ruby OO 和
> Perl 6 Role 模型的（如 Moose），当然还有 Good Old Hash/Scalar 引用方式的 OO，等等等等。
>
> 我记得几年前，当时 Moose 的主要作者 steven 就曾和 nothingmuch 等人在 #perl6 频道中津津乐道 Perl 5 OO
> 的灵活性和可塑性。
>
> 当然，这也是一把双刃剑，过于灵活和与众不同的 OO 模型让许多初学者无所适从，同时对于老手也会让代码变得不必要的
> ugly，呵呵。所以大家才会那么疯狂于 Moose 这样的比较优雅的封装，但作为代价，要在程序启动时牺牲一些性能。Larry 也在
> YAPC::Asia 的一次 Perl 6 为主题的 keynote 演讲中坦言 Perl 5 的 OO 设计过于 orthogonal
> 了，呵呵，他一直致力于在 Perl 6 中纠正这个失误 ;) 而 Rakudo，这个 parrot 之上的 Perl 6 编译器实现已经支持
> roles 已久了，值得玩一玩了哈 ;)
>
> Cheers,
> -agentzh

谢谢各位的指教！

[PerlChina] Re: 09年上海第二次聚会

太好了，希望我那时候能有时间。有朋至远方来，不亦悦乎

On 3月4日, 上午11时38分, purl lamp <lamp.p...@gmail.com> wrote:
> 在北京这个周四的聚会之后，我们也可以再来一次，这次的主题恰巧也是 Catalyst 相关的 DBIx :D
> 时间可以定在这个月14日下午两点，地点仍然在人民广场附近，有合适的地点请推荐。
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

2009/3/4 Michael Zeng <galaxy2004@gmail.com>:
> 有空还是想学学python，毕竟是现在主流语言

何以见得？或者说你是怎么得出这个结论的？
有相关的数据支持还是说只是你的感觉？

lee

[PerlChina] Re: Perl vs Python

有空还是想学学python，毕竟是现在主流语言

2009/3/4 xu zhou <redicaps@gmail.com>

前些天看了下perl6的语法
比perl5更加飘逸

2009/3/4 Don Qin <icefishc@gmail.com>:

> perl5 的ＯＯ过于灵活，　自己写的时候这种灵活可以带来很多方便。
> 可在项目中就不一样，　现抛开可读性那种主观的东西不谈。
> 每个人都有自己的风格，　组合到一起总是显得很乱。　有可能还会出现相互不兼容的情况造成麻烦。
>
> perl 本来就很像自然语言。　：p
>
> 2009/3/4 agentzh <agentzh@gmail.com>
>>
>> 2009/3/4 Michael Zeng <galaxy2004@gmail.com>
>>>
>>> perl的代码可读性太差，个人风格差的太远
>>
>>
>> 呵呵，按照这个逻辑，我可以说英语、古汉语、西伯来文、拉丁语这些语言对于不以这些语言为母语的国家的人来说，也是一样的啦。。。计算机语言其实和自然语言是一个道理
>> ;)
>>
>> Cheers,
>> -agentzh
>>
>>
>>
>
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

发帖者 lazayworm 时间： 06:00 没有评论:

[PerlChina] Re: Perl vs Python

前些天看了下perl6的语法
比perl5更加飘逸

2009/3/4 Don Qin <icefishc@gmail.com>:
> perl5 的ＯＯ过于灵活，　自己写的时候这种灵活可以带来很多方便。
> 可在项目中就不一样，　现抛开可读性那种主观的东西不谈。
> 每个人都有自己的风格，　组合到一起总是显得很乱。　有可能还会出现相互不兼容的情况造成麻烦。
>
> perl 本来就很像自然语言。　：p
>
> 2009/3/4 agentzh <agentzh@gmail.com>
>>
>> 2009/3/4 Michael Zeng <galaxy2004@gmail.com>
>>>
>>> perl的代码可读性太差，个人风格差的太远
>>
>>
>> 呵呵，按照这个逻辑，我可以说英语、古汉语、西伯来文、拉丁语这些语言对于不以这些语言为母语的国家的人来说，也是一样的啦。。。计算机语言其实和自然语言是一个道理
>> ;)
>>
>> Cheers,
>> -agentzh
>>
>>
>>
>
>
> >
>

[PerlChina] Re: Perl vs Python

确实严肃了很多。呵呵。

2009/3/4 kind terry <kindterry@gmail.com>

一开始我也看重python代码的可维护性，准备好好学学，所以加入了python的邮件列表。不过我个人不喜欢python社区，虽然那里技术氛围浓厚，但是感觉不自在。在python社区里面这不准聊，那不准聊，好像除了技术以外生活中就没有别的了，不爽。

2009/3/4 purl lamp <lamp.purl@gmail.com>

http://python-history.blogspot.com/

从这个 blog 看来，python 的设计思想里面也并不缺乏简洁，只是优先级相对较低 :)
他的设计中第一优先级是 Beautiful is better than ugly
但是对于蓝领来说美丽是太崇高的追求 :)

guido 的设计思想是 Borrow ideas from elsewhere whenever it makes sense.
而larry 确实花钱买了 pcre 的引擎来构造 perl，也许perl 的 practical 应该是翻译成实惠的。

2009/3/4 kindy <kindy61@gmail.com>

我学习 perl 的初始原因是他的简洁语法。

特别是文件处理，正则处理。

这2个方面 python 在语法简介程度上没法比。

On 3月4日, 下午2时50分, Shu Cho <neat...@gmail.com> wrote:
> use Moose;
>

> 2009/3/4 rorot <yang.li...@gmail.com>:

>
>
>
> > 诸位好，
>
> > 我想我需要重拾对Perl的信心。
>
> > 以前写脚本喜欢用Perl, 因为他的正则表达式，因为他的CAPN里面众多的功能扩展。
>
> > 但是，我对Perl的OOP编程没有什么认识，只觉得Perl的OOP实际上就是Package的封装。所以当需要OOP的时候，我想到Python，但是不
> > 清楚Perl和Python在语言上，各有什么差异，比如Python在OOP上，有什么优势？
>
> > 望不吝赐教。
>
> > rorot

[PerlChina] Re: Perl vs Python

一开始我也看重python代码的可维护性，准备好好学学，所以加入了python的邮件列表。不过我个人不喜欢python社区，虽然那里技术氛围浓厚，但是感觉不自在。在python社区里面这不准聊，那不准聊，好像除了技术以外生活中就没有别的了，不爽。

2009/3/4 purl lamp <lamp.purl@gmail.com>

http://python-history.blogspot.com/

从这个 blog 看来，python 的设计思想里面也并不缺乏简洁，只是优先级相对较低 :)
他的设计中第一优先级是 Beautiful is better than ugly
但是对于蓝领来说美丽是太崇高的追求 :)

guido 的设计思想是 Borrow ideas from elsewhere whenever it makes sense.
而larry 确实花钱买了 pcre 的引擎来构造 perl，也许perl 的 practical 应该是翻译成实惠的。

2009/3/4 kindy <kindy61@gmail.com>

我学习 perl 的初始原因是他的简洁语法。

特别是文件处理，正则处理。

这2个方面 python 在语法简介程度上没法比。

On 3月4日, 下午2时50分, Shu Cho <neat...@gmail.com> wrote:
> use Moose;
>

> 2009/3/4 rorot <yang.li...@gmail.com>:

>
>
>
> > 诸位好，
>
> > 我想我需要重拾对Perl的信心。
>
> > 以前写脚本喜欢用Perl, 因为他的正则表达式，因为他的CAPN里面众多的功能扩展。
>
> > 但是，我对Perl的OOP编程没有什么认识，只觉得Perl的OOP实际上就是Package的封装。所以当需要OOP的时候，我想到Python，但是不
> > 清楚Perl和Python在语言上，各有什么差异，比如Python在OOP上，有什么优势？
>
> > 望不吝赐教。
>
> > rorot

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

perl5 的ＯＯ过于灵活，　自己写的时候这种灵活可以带来很多方便。
可在项目中就不一样，　现抛开可读性那种主观的东西不谈。
每个人都有自己的风格，　组合到一起总是显得很乱。　有可能还会出现相互不兼容的情况造成麻烦。

perl 本来就很像自然语言。　：p

2009/3/4 agentzh <agentzh@gmail.com>

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

perl的代码可读性太差，个人风格差的太远

呵呵，按照这个逻辑，我可以说英语、古汉语、西伯来文、拉丁语这些语言对于不以这些语言为母语的国家的人来说，也是一样的啦。。。计算机语言其实和自然语言是一个道理 ;)

Cheers,
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl vs Python

http://python-history.blogspot.com/

从这个 blog 看来，python 的设计思想里面也并不缺乏简洁，只是优先级相对较低 :)
他的设计中第一优先级是 Beautiful is better than ugly
但是对于蓝领来说美丽是太崇高的追求 :)

guido 的设计思想是 Borrow ideas from elsewhere whenever it makes sense.
而larry 确实花钱买了 pcre 的引擎来构造 perl，也许perl 的 practical 应该是翻译成实惠的。

2009/3/4 kindy <kindy61@gmail.com>

我学习 perl 的初始原因是他的简洁语法。
特别是文件处理，正则处理。

这2个方面 python 在语法简介程度上没法比。

On 3月4日, 下午2时50分, Shu Cho <neat...@gmail.com> wrote:
> use Moose;
>

> 2009/3/4 rorot <yang.li...@gmail.com>:

>
>
>
> > 诸位好，
>
> > 我想我需要重拾对Perl的信心。
>
> > 以前写脚本喜欢用Perl, 因为他的正则表达式，因为他的CAPN里面众多的功能扩展。
>
> > 但是，我对Perl的OOP编程没有什么认识，只觉得Perl的OOP实际上就是Package的封装。所以当需要OOP的时候，我想到Python，但是不
> > 清楚Perl和Python在语言上，各有什么差异，比如Python在OOP上，有什么优势？
>
> > 望不吝赐教。
>
> > rorot

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl安装程序，最小多少？哪里有下载

可以看看 pp 出来的 par 包，大小不会超过3M。
另外参考一下 perlembed 文档。

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

你是嵌入式系统吧，对容量这么介意

perl还能在嵌入式上用啊

On 3/4/09, ck862 <ck862@hotmail.com> wrote:

On 3月4日, 下午3时09分, Michael Zeng <galaxy2...@gmail.com> wrote:
>  perl 5.10.0 的源代码是70M，不知道编译完是多少
>
> On 3/4/09, ck862 <ck...@hotmail.com> wrote:
>
>
>
>
>
> > On 3月4日, 上午9时44分, agentzh <agen...@gmail.com> wrote:
> > > 2009/3/3 Lee Duhem <lee.du...@gmail.com>
>
> > > > 2009/3/3 ck862 <ck...@hotmail.com>:
> > > > > 如题。
> > > > > 我想在我的linux上安装，但是我的硬盘很小，所以希望perl越小越好。
>
> > > > 自己编译一个。
>
> > > 嗯，下载 perl 5.10.0 的源码 tarball 之后解压 build 之：
>
> > >   sh Configure -Dinc_version_list=none -Dprefix=/opt/perl -des
> > >   make
> > >   make test
> > >   sudo make install
>
> > > 呵呵。不过我这里配置的 perl 是禁用多线程的，呵呵。
>
> > > Cheers,
> > > -agentzh
>
> > 那请问自己buil perl 5.10.0，编译出来后，perl大概多大？
>
> --
>             Yours Sincerely
>                     Zeng Hong

Thank u！不过我需要的是只有1-2M的，估计是找不到了

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

2009年3月3日星期二

[PerlChina] Re: 有关浮点计算值

什么是standard modules ?

这个问题挺奇怪的，我以前从来没有碰见过

On 3/4/09, purl lamp <lamp.purl@gmail.com> wrote:

sure, unless you look for "standard" modules :)

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

主要是我不明白啊，这个简单计算怎么会出这样的值

只能靠自己四舍五入了？

On 3/4/09, purl lamp <lamp.purl@gmail.com> wrote:
在哪个版本也都会是这个结果呀？浮点运算你还能指望什么呢？

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

use strict ;

print 5293.937 - 5292.239 ;

这个在5.8.8/5.8.9 下运行怎么会得到 1.69800000000032 呢

这可是减法啊

--
            Yours Sincerely
                    Zeng Hong

--
            Yours Sincerely
                    Zeng Hong

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

发帖者 lazayworm 时间： 23:27 没有评论:

[PerlChina] Re: 有关浮点计算值

sure, unless you look for "standard" modules :)

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

主要是我不明白啊，这个简单计算怎么会出这样的值

只能靠自己四舍五入了？

On 3/4/09, purl lamp <lamp.purl@gmail.com> wrote:
在哪个版本也都会是这个结果呀？浮点运算你还能指望什么呢？

2009/3/4 Michael Zeng <galaxy2004@gmail.com>

use strict ;

print 5293.937 - 5292.239 ;

这个在5.8.8/5.8.9 下运行怎么会得到 1.69800000000032 呢

这可是减法啊

--
            Yours Sincerely
                    Zeng Hong

--
            Yours Sincerely
                    Zeng Hong

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

订阅：博文 (Atom)

2009年3月7日星期六

2009年3月6日星期五

2009年3月5日星期四

2009年3月4日星期三

2009年3月3日星期二

订阅

博客归档