Perl China Blog Spot: 2009-08-09

2009年8月14日星期五

[PerlChina] Re: 用外国主机的，备案的时候，接入服务商填什么好？

罪孽了。浪费工信部工作人员的时间。。

2009/8/14 smallfish <smallfish.xy@gmail.com>

标准LM
--
blog: http://hi.baidu.com/smallfish_xy
2009/8/14 cnhack TNT <cnhacktnt@gmail.com>
完全不用穿着棉袄去洗澡
呵呵
2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>
代表自己遵纪守法哈。 :-P
cnhack TNT wrote:
用外国主机还备案干啥?

2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>

有没有perler弄过？
--  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: 用外国主机的，备案的时候，接入服务商填什么好？

标准LM
--
blog: http://hi.baidu.com/smallfish_xy

2009/8/14 cnhack TNT <cnhacktnt@gmail.com>

完全不用穿着棉袄去洗澡
呵呵
2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>
代表自己遵纪守法哈。 :-P
cnhack TNT wrote:
用外国主机还备案干啥?

2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>

有没有perler弄过？
--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html 

[PerlChina] Re: 用外国主机的，备案的时候，接入服务商填什么好？

完全不用穿着棉袄去洗澡
呵呵

2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>

代表自己遵纪守法哈。 :-P
cnhack TNT wrote:
用外国主机还备案干啥?

2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>

有没有perler弄过？
--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html 

[PerlChina] Re: 用外国主机的，备案的时候，接入服务商填什么好？

代表自己遵纪守法哈。 :-P

cnhack TNT wrote:

用外国主机还备案干啥?

2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>

有没有perler弄过？

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

[PerlChina] Re: 用外国主机的，备案的时候，接入服务商填什么好？

用外国主机还备案干啥?

2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>

有没有perler弄过？

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

[PerlChina] 用外国主机的，备案的时候，接入服务商填什么好？

有没有perler弄过？

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

2009年8月13日星期四

[PerlChina] Re: 如何制作Blast网页版

可以点击下面的链接下载网络版的wwwBlast。安装后可直接通过网页运行blast，可以自己设定数据库。

ftp://ftp.ncbi.nih.gov/blast/executables/release/2.2.21/wwwblast-2.2.21-x64-linux.tar.gz

ftp://ftp.ncbi.nih.gov/blast/executables/release/2.2.21/wwwblast-2.2.21-x64-solaris.tar.gz

ftp://ftp.ncbi.nih.gov/blast/executables/release/2.2.21/wwwblast-2.2.21-universal-macosx.tar.gz

ftp://ftp.ncbi.nih.gov/blast/executables/release/2.2.21/wwwblast-2.2.21-sparc64-solaris.tar.gz

ftp://ftp.ncbi.nih.gov/blast/executables/release/2.2.21/wwwblast-2.2.21-ia64-linux.tar.gz

ftp://ftp.ncbi.nih.gov/blast/executables/release/2.2.21/wwwblast-2.2.21-ia32-solaris.tar.gz

ftp://ftp.ncbi.nih.gov/blast/executables/release/2.2.21/wwwblast-2.2.21-ia32-linux.tar.gz

ftp://ftp.ncbi.nih.gov/blast/executables/release/2.2.21/wwwblast-2.2.21-ia32-freebsd.tar.gz

----- Original Message -----

From: joe jiang

To: perlchina@googlegroups.com

Sent: Friday, August 14, 2009 10:41 AM

Subject: [PerlChina] Re: 如何制作Blast网页版

http://www.bioperl.org/wiki/BLAST
2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>
Blast是什么东东?

Berlan wrote:
想把Blast做成网页版，已有本地版的Blast，不知道如何去做？请给出思路。谢谢！  
-- 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: 如何制作Blast网页版

http://www.bioperl.org/wiki/BLAST

2009/8/14 Beckheng Lam <bi.ken.lam@gmail.com>

Blast是什么东东?

Berlan wrote:

想把Blast做成网页版，已有本地版的Blast，不知道如何去做？请给出思路。谢谢！

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

[PerlChina] Re: 如何制作Blast网页版

Blast是什么东东?

Berlan wrote:

想把Blast做成网页版，已有本地版的Blast，不知道如何去做？请给出思路。谢谢！

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

[PerlChina] 如何制作Blast网页版

想把Blast做成网页版，已有本地版的Blast，不知道如何去做？请给出思路。谢谢！
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 有没有人申请过软件著作权？

"實用新型" 專利慢則好像需要2年時間做審核

-------- Original Message --------
Subject: [PerlChina] Re: 有没有人申请过软件著作权？
From: Beckheng Lam <bi.ken.lam@gmail.com>
To: perlchina@googlegroups.com
Date: 13/8/2009 10:24
> 我看了信息产业部的说明，不明白为何这个费用比某些专利的费用还要贵。
> 昨天跟一个朋友聊起，他的一个"实用新型"的专利，申请的时候可以提交优惠
> 的，可以优惠超过50%的。
>
> 说起webmail,好似有个perler叫hzXXX的，以前也搞了套webmail。 :-)
>
> 华 (Hua) wrote:
>> 软件著作权很容易申请的，找家代理公司，费用不到1000块钱，3个月可拿到国家知识产权局的证书。
>> 我一个朋友用perl搞了套webmail卖给高校，就申请了软件著作权。
>>
>>
>>> -------- Original Message --------
>>> Subject: [PerlChina] Re: 有没有人申请过软件著作权？
>>> From: Beckheng Lam <bi.ken.lam@gmail.com>
>>> Date: Wed, August 12, 2009 7:07 pm
>>> To: perlchina@googlegroups.com
>>>
>>>
>>> 不知道Open Source的软件遇到侵权是怎样处理的呢？
>>>
>>> 小飞侠 wrote:
>>>
>>>> 这个还真没尝试过
>>>>
>>>> On 8月11日, 下午3时06分, Beckheng Lam <bi.ken....@gmail.com> wrote:
>>>>
>>>>> RT
>>>>>
>>>>>
>>>>>
>
> --
> Perl乐事 -- http://www.perlersh.org
> 我的博客 -- http://www.perlersh.org/blog.html
>
> >

--
Best Regards,
Anthony WU

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

[PerlChina] Re: 性能、多线程

不要盲目使用多进程或多线程，首先看看你现在程序的 IO 和 CPU 消耗，
如果单进程的情况下 IO 和 CPU 都是满负荷的话，多进程和多线程也
并不能带来性能提升，反而很容易使性能下降。

如果 IO 和 CPU 都有空闲，多进程/线程就有很好的效果了。

还有，你所谓的计算密集是什么计算，在文本处理等方面 C 并不比 Perl
效率高，很多情况下 C 的效率更低(这不是语言的问题，Perl 也是 C 写的，
之所以出现这个情况，是因为没几个人能写出和 Perl 开发者一样好的 C 代码。)。
如果是数值计算，我的测试结果是 C++(本人不会C)至少比 Perl 快一个数量级。

如果在单线程的情况下 IO 的 CPU 都满负荷，(排除你算法有问题的情况)
优化的首选方案就是改用 C++

> 在2009-08-13，"yi wang" <wangyi2412@gmail.com> 写道：
> Hi， all!请教一个性能方面的问题，应该是常碰到的吧。需要下载远程
> xml文件（千万量级的文件数量，每个有10k左右）并进行处理后保存
> （处理后每个约3k）。现使用的是get函数，一次请求若干xml后，
> 直接调用xml：：smart进行xml相关内容的提取，而后进行我们的计算，
> 然后保存为新的若个个xml文件。速度非常非常的低，平均5秒/xml，
> 无法完成要求（照这个速度得用两年时间）！想请教各位，
> 除了提升处理算法的速度，有没有什么其他的办法提高整体性能。
> 比如我用的请求函数是否还有更好的，xml处理时候还有更好的，
> 用多线程/多进程，文件打开、保存、关闭的方式等，有没有什么建议？
> 搜索引擎的爬虫也会做类似更高难度的工作，不知道是怎么做的，
> 有没有什么可以借鉴的？另外，有没有人做过这种IO计算都密集的程序，
> 用c和perl的效率比较？

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

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

[PerlChina] Re: 性能、多线程

服务器可控的话最好能打包下载，貌似很多时间都浪费在建立连接上了

2009/8/13 yi wang <wangyi2412@gmail.com>

谢谢。看来只有先试试多线程了。对此毫不了解，先学习下perl多线程编程。
对于空间的问题，我的想法是处理一个删一个。
2009/8/13 Beckheng Lam <bi.ken.lam@gmail.com>
服务器没有限制的话，开100个线程下载xml文件试试，同时可以尝试用另外一个程序进行XML的处理。同时要注意硬盘空间是否被撑爆。

yi wang wrote:
"边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。"---没看懂，能否再讲清楚些？

2009/8/13 joe jiang <lamp.purl@gmail.com>

最简单的细分是这样的：
看看5秒中里面那些是 I/O，那些花在计算。个人感觉是其中没有多少花在计算。
最好是一次多些下载，然后慢慢在后台计算。边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。

2009/8/13 yi wang <wangyi2412@gmail.com>

我现在知道的是可以用c的poll，或者直接使用外部调用wget，但是从perl的script调用一个外部程序貌似也有效率损失啊。还有更好的方法吗？

2009/8/13 yi wang <wangyi2412@gmail.com>

Hi， all!
请教一个性能方面的问题，应该是常碰到的吧。
需要下载远程xml文件（千万量级的文件数量，每个有10k左右）并进行处理后保存（处理后每个约3k）。
现使用的是get函数，一次请求若干xml后，直接调用xml：：smart进行xml相关内容的提取，而后进行我们的计算，然后保存为新的若个个xml 文件。速度非常非常的低，平均5秒/xml，无法完成要求（照这个速度得用两年时间）！
想请教各位，除了提升处理算法的速度，有没有什么其他的办法提高整体性能。比如我用的请求函数是否还有更好的，xml处理时候还有更好的，用多线程/多进程，文件打开、保存、关闭的方式等，有没有什么建议？搜索引擎的爬虫也会做类似更高难度的工作，不知道是怎么做的，有没有什么可以借鉴的？另外，有没有人做过这种IO计算都密集的程序，用c和perl的效率比较？

--
和你在一起
--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html 
--
和你在一起

[PerlChina] Re: 性能、多线程

谢谢。看来只有先试试多线程了。对此毫不了解，先学习下perl多线程编程。
对于空间的问题，我的想法是处理一个删一个。

2009/8/13 Beckheng Lam <bi.ken.lam@gmail.com>

服务器没有限制的话，开100个线程下载xml文件试试，同时可以尝试用另外一个程序进行XML的处理。同时要注意硬盘空间是否被撑爆。

yi wang wrote:
“边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。”---没看懂，能否再讲清楚些？

2009/8/13 joe jiang <lamp.purl@gmail.com>

最简单的细分是这样的：
看看5秒中里面那些是 I/O，那些花在计算。个人感觉是其中没有多少花在计算。
最好是一次多些下载，然后慢慢在后台计算。边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。

2009/8/13 yi wang <wangyi2412@gmail.com>

我现在知道的是可以用c的poll，或者直接使用外部调用wget，但是从perl的script调用一个外部程序貌似也有效率损失啊。还有更好的方法吗？

2009/8/13 yi wang <wangyi2412@gmail.com>

Hi， all!
请教一个性能方面的问题，应该是常碰到的吧。
需要下载远程xml文件（千万量级的文件数量，每个有10k左右）并进行处理后保存（处理后每个约3k）。
现使用的是get函数，一次请求若干xml后，直接调用xml：：smart进行xml相关内容的提取，而后进行我们的计算，然后保存为新的若个个xml 文件。速度非常非常的低，平均5秒/xml，无法完成要求（照这个速度得用两年时间）！
想请教各位，除了提升处理算法的速度，有没有什么其他的办法提高整体性能。比如我用的请求函数是否还有更好的，xml处理时候还有更好的，用多线程/多进程，文件打开、保存、关闭的方式等，有没有什么建议？搜索引擎的爬虫也会做类似更高难度的工作，不知道是怎么做的，有没有什么可以借鉴的？另外，有没有人做过这种IO计算都密集的程序，用c和perl的效率比较？

--
和你在一起
--  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: 性能、多线程

邮件收取有点延时，哈哈。 :-D 大家看法差不多。

langq 235 wrote:

将线程分类，一类线程处理下载，将文件存储在一个位置；一类线程处理计算，读取下载下来的文件；再弄个管理线程，互不影响

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

[PerlChina] Re: 性能、多线程

服务器没有限制的话，开100个线程下载xml文件试试，同时可以尝试用另外一个程序进行XML的处理。同时要注意硬盘空间是否被撑爆。

yi wang wrote:

"边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。"---没看懂，能否再讲清楚些？

2009/8/13 joe jiang <lamp.purl@gmail.com>

最简单的细分是这样的：
看看5秒中里面那些是 I/O，那些花在计算。个人感觉是其中没有多少花在计算。
最好是一次多些下载，然后慢慢在后台计算。边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。

2009/8/13 yi wang <wangyi2412@gmail.com>

我现在知道的是可以用c的poll，或者直接使用外部调用wget，但是从perl的script调用一个外部程序貌似也有效率损失啊。还有更好的方法吗？

2009/8/13 yi wang <wangyi2412@gmail.com>

Hi， all!
请教一个性能方面的问题，应该是常碰到的吧。
需要下载远程xml文件（千万量级的文件数量，每个有10k左右）并进行处理后保存（处理后每个约3k）。
现使用的是get函数，一次请求若干xml后，直接调用xml：：smart进行xml相关内容的提取，而后进行我们的计算，然后保存为新的若个个xml 文件。速度非常非常的低，平均5秒/xml，无法完成要求（照这个速度得用两年时间）！
想请教各位，除了提升处理算法的速度，有没有什么其他的办法提高整体性能。比如我用的请求函数是否还有更好的，xml处理时候还有更好的，用多线程/多进程，文件打开、保存、关闭的方式等，有没有什么建议？搜索引擎的爬虫也会做类似更高难度的工作，不知道是怎么做的，有没有什么可以借鉴的？另外，有没有人做过这种IO计算都密集的程序，用c和perl的效率比较？

--
和你在一起

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

[PerlChina] Re: 性能、多线程

将线程分类，一类线程处理下载，将文件存储在一个位置；一类线程处理计算，读取下载下来的文件；再弄个管理线程，互不影响

[PerlChina] Re: 性能、多线程

“边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。”---没看懂，能否再讲清楚些？

2009/8/13 joe jiang <lamp.purl@gmail.com>

最简单的细分是这样的：
看看5秒中里面那些是 I/O，那些花在计算。个人感觉是其中没有多少花在计算。
最好是一次多些下载，然后慢慢在后台计算。边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。

2009/8/13 yi wang <wangyi2412@gmail.com>

我现在知道的是可以用c的poll，或者直接使用外部调用wget，但是从perl的script调用一个外部程序貌似也有效率损失啊。还有更好的方法吗？

2009/8/13 yi wang <wangyi2412@gmail.com>

Hi， all!
请教一个性能方面的问题，应该是常碰到的吧。
需要下载远程xml文件（千万量级的文件数量，每个有10k左右）并进行处理后保存（处理后每个约3k）。
现使用的是get函数，一次请求若干xml后，直接调用xml：：smart进行xml相关内容的提取，而后进行我们的计算，然后保存为新的若个个xml文件。速度非常非常的低，平均5秒/xml，无法完成要求（照这个速度得用两年时间）！
想请教各位，除了提升处理算法的速度，有没有什么其他的办法提高整体性能。比如我用的请求函数是否还有更好的，xml处理时候还有更好的，用多线程/多进程，文件打开、保存、关闭的方式等，有没有什么建议？搜索引擎的爬虫也会做类似更高难度的工作，不知道是怎么做的，有没有什么可以借鉴的？另外，有没有人做过这种IO计算都密集的程序，用c和perl的效率比较？

--
和你在一起

[PerlChina] Re: 性能、多线程

最简单的细分是这样的：
看看5秒中里面那些是 I/O，那些花在计算。个人感觉是其中没有多少花在计算。
最好是一次多些下载，然后慢慢在后台计算。边算边标记那些是处理过的，比如 move 到另一个目录。这样不必 fork/thread ... IPC，就是两类进程的分工。

2009/8/13 yi wang <wangyi2412@gmail.com>

我现在知道的是可以用c的poll，或者直接使用外部调用wget，但是从perl的script调用一个外部程序貌似也有效率损失啊。还有更好的方法吗？

2009/8/13 yi wang <wangyi2412@gmail.com>

Hi， all!
请教一个性能方面的问题，应该是常碰到的吧。
需要下载远程xml文件（千万量级的文件数量，每个有10k左右）并进行处理后保存（处理后每个约3k）。
现使用的是get函数，一次请求若干xml后，直接调用xml：：smart进行xml相关内容的提取，而后进行我们的计算，然后保存为新的若个个xml文件。速度非常非常的低，平均5秒/xml，无法完成要求（照这个速度得用两年时间）！
想请教各位，除了提升处理算法的速度，有没有什么其他的办法提高整体性能。比如我用的请求函数是否还有更好的，xml处理时候还有更好的，用多线程/多进程，文件打开、保存、关闭的方式等，有没有什么建议？搜索引擎的爬虫也会做类似更高难度的工作，不知道是怎么做的，有没有什么可以借鉴的？另外，有没有人做过这种IO计算都密集的程序，用c和perl的效率比较？

--
和你在一起

[PerlChina] Re: 性能、多线程

我现在知道的是可以用c的poll，或者直接使用外部调用wget，但是从perl的script调用一个外部程序貌似也有效率损失啊。还有更好的方法吗？

2009/8/13 yi wang <wangyi2412@gmail.com>

Hi， all!
请教一个性能方面的问题，应该是常碰到的吧。
需要下载远程xml文件（千万量级的文件数量，每个有10k左右）并进行处理后保存（处理后每个约3k）。
现使用的是get函数，一次请求若干xml后，直接调用xml：：smart进行xml相关内容的提取，而后进行我们的计算，然后保存为新的若个个xml文件。速度非常非常的低，平均5秒/xml，无法完成要求（照这个速度得用两年时间）！
想请教各位，除了提升处理算法的速度，有没有什么其他的办法提高整体性能。比如我用的请求函数是否还有更好的，xml处理时候还有更好的，用多线程/多进程，文件打开、保存、关闭的方式等，有没有什么建议？搜索引擎的爬虫也会做类似更高难度的工作，不知道是怎么做的，有没有什么可以借鉴的？另外，有没有人做过这种IO计算都密集的程序，用c和perl的效率比较？

2009年8月12日星期三

[PerlChina] 性能、多线程

Hi， all!
请教一个性能方面的问题，应该是常碰到的吧。
需要下载远程xml文件（千万量级的文件数量，每个有10k左右）并进行处理后保存（处理后每个约3k）。
现使用的是get函数，一次请求若干xml后，直接调用xml：：smart进行xml相关内容的提取，而后进行我们的计算，然后保存为新的若个个xml文件。速度非常非常的低，平均5秒/xml，无法完成要求（照这个速度得用两年时间）！
想请教各位，除了提升处理算法的速度，有没有什么其他的办法提高整体性能。比如我用的请求函数是否还有更好的，xml处理时候还有更好的，用多线程/多进程，文件打开、保存、关闭的方式等，有没有什么建议？搜索引擎的爬虫也会做类似更高难度的工作，不知道是怎么做的，有没有什么可以借鉴的？另外，有没有人做过这种IO计算都密集的程序，用c和perl的效率比较？

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

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

[PerlChina] Sam invite you to horsenetworking.com.

Hi!

Check out my photos on horsenetworking.com

I invited you to join horsenetworking.com a while back and wanted to remind you that once you join,
we'll be able to connect online! horsenetworking.com is professional and free!! That's worth something.

Best regards,

Sam
samsheng133@gmail.com

This invitation was sent to perlchina@googlegroups.com on behalf of Sam Sam (samsheng133@gmail.com).
If you do not wish to receive invitations from horsenetworking.com members, click on the link below:
http://www.horsenetworking.com/moveInvite?email=perlchina@googlegroups.com

[PerlChina] Re: 有没有人申请过软件著作权？

因为基本上国内的版权申请时都不会仔细查，你就说很多园区的创新奖金吧，明明一个现成的东西，编一个词，查新的人在内部搜索引擎和google/baidu上搜索不到，或者低于多少条搜索结果，那就算有效的一次创新，那就会发放奖金。

再来说GPL系列协议以及BSD等等，在国内的看法上，不存在什么法律不法律的问题，你考虑的太人道了。

你看看lenovo不也把使用/proc 查看系统信息申请专利了么？新华不也弄什么USB启动的专利？

2009/8/13 Beckheng Lam <bi.ken.lam@gmail.com>

Teng,
这个正是我想了解的。
开源社区的源码在中国被某人申请了软件著作权，那么其它人再使用的话，到时会不会被这个“某人”诉讼的？
换一种看法就是，我们中国人写的软件，如果只是以开源协议发布了，但没有申请软件著作权，而又被另一个人在中国拿去申请了软件著作权，那么，在中国，到时这个软件的著作权，似乎并不是属于原作者，而是后来这个人吧？那么，这个开源协议是如何以法律途径帮助源作者保护个人版权呢？

teng zhaozhi wrote:
现在很多公司，都是用开源社区的源码申请的，中国就根本不处理，那些版权中心的人对开源软件了解得少，而且都是公务员类型，把流程走完，完成自己的工作，收到钱，其他的就基本不管
2009/8/13 Beckheng Lam <bi.ken.lam@gmail.com>
不知道Open Source的软件遇到侵权是怎样处理的呢？

小飞侠 wrote:
这个还真没尝试过  On 8月11日, 下午3时06分, Beckheng Lam <bi.ken....@gmail.com> wrote: 
RT   
--
Kind regards
滕召智 (Ben teng)
Cell: 13381221392
MSN: freet15@hotmail.com
Skype: freet15
--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html 

--
Kind regards
滕召智 (Ben teng)
Cell: 13381221392
MSN: freet15@hotmail.com
Skype: freet15

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

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

[PerlChina] Re: 有没有人申请过软件著作权？

我看了信息产业部的说明，不明白为何这个费用比某些专利的费用还要贵。
昨天跟一个朋友聊起，他的一个"实用新型"的专利，申请的时候可以提交优惠的，可以优惠超过50%的。

说起webmail,好似有个perler叫hzXXX的，以前也搞了套webmail。 :-)

华 (Hua) wrote:

软件著作权很容易申请的，找家代理公司，费用不到1000块钱，3个月可拿到国家知识产权局的证书。 我一个朋友用perl搞了套webmail卖给高校，就申请了软件著作权。

-------- Original Message -------- Subject: [PerlChina] Re: 有没有人申请过软件著作权？ From: Beckheng Lam <bi.ken.lam@gmail.com> Date: Wed, August 12, 2009 7:07 pm To: perlchina@googlegroups.com   不知道Open Source的软件遇到侵权是怎样处理的呢？  小飞侠 wrote:

这个还真没尝试过  On 8月11日, 下午3时06分, Beckheng Lam <bi.ken....@gmail.com> wrote:

RT

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

[PerlChina] Re: 有没有人申请过软件著作权？

Teng,
这个正是我想了解的。
开源社区的源码在中国被某人申请了软件著作权，那么其它人再使用的话，到时会不会被这个"某人"诉讼的？
换一种看法就是，我们中国人写的软件，如果只是以开源协议发布了，但没有申请软件著作权，而又被另一个人在中国拿去申请了软件著作权，那么，在中国，到时这个软件的著作权，似乎并不是属于原作者，而是后来这个人吧？那么，这个开源协议是如何以法律途径帮助源作者保护个人版权呢？

teng zhaozhi wrote:

现在很多公司，都是用开源社区的源码申请的，中国就根本不处理，那些版权中心的人对开源软件了解得少，而且都是公务员类型，把流程走完，完成自己的工作，收到钱，其他的就基本不管
2009/8/13 Beckheng Lam <bi.ken.lam@gmail.com>
不知道Open Source的软件遇到侵权是怎样处理的呢？

小飞侠 wrote:
这个还真没尝试过  On 8月11日, 下午3时06分, Beckheng Lam <bi.ken....@gmail.com> wrote: 
RT   
--
Kind regards
滕召智 (Ben teng)
Cell: 13381221392
MSN: freet15@hotmail.com
Skype: freet15

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

[PerlChina] Re: 有没有人申请过软件著作权？

软件著作权很容易申请的，找家代理公司，费用不到1000块钱，3个月可拿到国家知识产权局的证书。
我一个朋友用perl搞了套webmail卖给高校，就申请了软件著作权。

> -------- Original Message --------
> Subject: [PerlChina] Re: 有没有人申请过软件著作权？
> From: Beckheng Lam <bi.ken.lam@gmail.com>
> Date: Wed, August 12, 2009 7:07 pm
> To: perlchina@googlegroups.com
>
>
> 不知道Open Source的软件遇到侵权是怎样处理的呢？
>
> 小飞侠 wrote:
> > 这个还真没尝试过
> >
> > On 8月11日, 下午3时06分, Beckheng Lam <bi.ken....@gmail.com> wrote:
> >> RT
> >>
> >>
>
>
> --
> 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: 有没有人申请过软件著作权？

现在很多公司，都是用开源社区的源码申请的，中国就根本不处理，那些版权中心的人对开源软件了解得少，而且都是公务员类型，把流程走完，完成自己的工作，收到钱，其他的就基本不管

2009/8/13 Beckheng Lam <bi.ken.lam@gmail.com>

不知道Open Source的软件遇到侵权是怎样处理的呢？

小飞侠 wrote:

这个还真没尝试过  On 8月11日, 下午3时06分, Beckheng Lam <bi.ken....@gmail.com> wrote:

RT

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

[PerlChina] Re: 有没有人申请过软件著作权？

不知道Open Source的软件遇到侵权是怎样处理的呢？

小飞侠 wrote:

这个还真没尝试过  On 8月11日, 下午3时06分, Beckheng Lam <bi.ken....@gmail.com> wrote:

RT

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

[PerlChina] Re: 强行将缓存写入文件

不错

On 8月12日, 上午11时35分, yi wang <wangyi2...@gmail.com> wrote:
> 多谢。http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-outp...
> 上面讲得很清楚。
> 总结下，如果不是每次print后都要flush，可以使用
> use IO::Handle <http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-outp...>
> 在要写入时候 FILEHANDLE->flush
> <http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-outp...>
>
> <http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-outp...>
>
> 2009/8/12 Yuan Jiang <sleetd...@gmail.com>
>
>
>
>
>
> > 嗯嗯，是这样的。
>
> > 哈哈，我不太会perl, 当初google到这句
>
> > or using the traditional idiom:
>
> > select((select(OUTPUT_HANDLE), $| = 1)[0]);
>
> > 就经常把它在代码里粘来贴去滴......
>
> > 2009/8/11 Qiang (James) <shijia...@gmail.com>
>
> >> yi wang wrote:
> >> > 程序用追加模式打开一个监控文件，写入一行信息，然后进入一个大循环，在循环
> >> > 里面没迭代一次写一次文件，最后程序结束前关闭文件。
> >> > 由于缓存机制，并不能在程序运行时及时看到写入文件的内容，如何才能不靠关闭
> >> > 文件，强制将缓存写入文件呢？
>
> >> 短答案：使用 Perl 的 autoflush 符号 $|, 通过 $|++ (或者 $|=1) 设为true 即可.
>
> >> 更长点的解释请阅读
>
> >>http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-outp...
> >> ?
>
> >> Qiang
>
> > --
> > 姜源
> > Yuan Jiang
> >http://blog.vetcafe.net
> >http://twitter.com/sleetdrop
>
> --
> 和你在一起
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 有没有人申请过软件著作权？

这个还真没尝试过

On 8月11日, 下午3时06分, Beckheng Lam <bi.ken....@gmail.com> wrote:
> RT
>
> --
> 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: 有没有人申请过软件著作权？

引用百度贴吧某人的说法：
    ● 通过登记机构的定期公告，可以向社会宣传自己的产品。
    ● 在发生软件著作权争议时，《软件著作权登记证书》是主张软件权利的有力武器，同时是向人民法院提起诉讼，请求司法保护的前提。
    ● 在进行软件版权贸易时，《软件著作权登记证书》作为权利证明，有利于交易的顺利完成。同时，国家权威部门的认证将使您的软件作品价值倍增。
    ● 合法在我国境内经营或者销售该软件产品，并可以出版发行
    ● 申请人可享受《产业政策》所规定的有关鼓励政策。

PIG wrote:

听起来和域名备案一样简单。有啥好处？
2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>
谢谢. :-)

teng zhaozhi wrote:
Beckheng Lam

你可以选择两个方式：

1，自己申报
需要填写著作权登记表，书写软件简要说明书，提供软件源码的前后50~60页(A4幅面)
如果是法人或者单位，需要提供机构相关的证明材料
如果是个人，需要提交如身份证复印件

提交给中国版权中心

2，找到最近的代理商
有专业机构代理这项服务，服务的收费标准不一，一般在200~600左右

一般是建议寻找当地的代理机构。
2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>
RT
--  
--
Kind regards
滕召智 (Ben teng)
Cell: 13381221392
MSN: freet15@hotmail.com
Skype: freet15

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

[PerlChina] Re: perl的HTML 压缩,如何去掉无用的空格回车等

看起来很复杂

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

[PerlChina] Re: perl的HTML 压缩,如何去掉无用的空格回车等

~~ 看起来就是 perl 的 //，用来包裹正则的，其他的东西原本就是 perl 的正则，用 =~s// 就可以了。

2009/8/10 imxae <imx365ster@gmail.com>

$out = preg_replace("~>\s+<~", "><",preg_replace("~>\s+\r\n~", ">",
$out)); //HTML 压缩 added by millken

在网上看到个如上php代码，希望高人指点怎么改成perl能用的代码。perl的HTML 压缩,如何去掉无用的空格回车等

[PerlChina] Re: 有没有人申请过软件著作权？

听起来和域名备案一样简单。有啥好处？

2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>

谢谢. :-)

teng zhaozhi wrote:
Beckheng Lam

你可以选择两个方式：

1，自己申报
需要填写著作权登记表，书写软件简要说明书，提供软件源码的前后50~60页(A4幅面)
如果是法人或者单位，需要提供机构相关的证明材料
如果是个人，需要提交如身份证复印件

提交给中国版权中心

2，找到最近的代理商
有专业机构代理这项服务，服务的收费标准不一，一般在200~600左右

一般是建议寻找当地的代理机构。
2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>
RT
--  
--
Kind regards
滕召智 (Ben teng)
Cell: 13381221392
MSN: freet15@hotmail.com
Skype: freet15
--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html 

2009年8月11日星期二

[PerlChina] Re: 强行将缓存写入文件

多谢。
http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-output-filehandle?--Why-must-I-do-this
 上面讲得很清楚。
总结下，如果不是每次print后都要flush，可以使用
use IO::Handle
在要写入时候  FILEHANDLE->flush

2009/8/12 Yuan Jiang <sleetdrop@gmail.com>

嗯嗯，是这样的。

哈哈，我不太会perl, 当初google到这句

or using the traditional idiom:

select((select(OUTPUT_HANDLE), $| = 1)[0]);

就经常把它在代码里粘来贴去滴......

2009/8/11 Qiang (James) <shijialee@gmail.com>

yi wang wrote:
> 程序用追加模式打开一个监控文件，写入一行信息，然后进入一个大循环，在循环
> 里面没迭代一次写一次文件，最后程序结束前关闭文件。
> 由于缓存机制，并不能在程序运行时及时看到写入文件的内容，如何才能不靠关闭
> 文件，强制将缓存写入文件呢？
>

短答案：使用 Perl 的 autoflush 符号 $|, 通过 $|++ (或者 $|=1) 设为true 即可.

更长点的解释请阅读
http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-output-filehandle?--Why-must-I-do-this?

Qiang

--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

[PerlChina] Re: 强行将缓存写入文件

select HD; #修改默认输出句柄
$|=1; #不使用缓存
select STDOUT;

On 8月11日, 下午7时33分, yi wang <wangyi2...@gmail.com> wrote:
> 程序用追加模式打开一个监控文件，写入一行信息，然后进入一个大循环，在循环里面没迭代一次写一次文件，最后程序结束前关闭文件。
> 由于缓存机制，并不能在程序运行时及时看到写入文件的内容，如何才能不靠关闭文件，强制将缓存写入文件呢？
>
> --
> 和你在一起
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl的HTML 压缩,如何去掉无用的空格回车等

不知道哪位大侠知道这该怎么改写?

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

[PerlChina] Re: 强行将缓存写入文件

嗯嗯，是这样的。

哈哈，我不太会perl, 当初google到这句

or using the traditional idiom:

select((select(OUTPUT_HANDLE), $| = 1)[0]);

就经常把它在代码里粘来贴去滴......

2009/8/11 Qiang (James) <shijialee@gmail.com>

yi wang wrote:
> 程序用追加模式打开一个监控文件，写入一行信息，然后进入一个大循环，在循环
> 里面没迭代一次写一次文件，最后程序结束前关闭文件。
> 由于缓存机制，并不能在程序运行时及时看到写入文件的内容，如何才能不靠关闭
> 文件，强制将缓存写入文件呢？
>

短答案：使用 Perl 的 autoflush 符号 $|, 通过 $|++ (或者 $|=1) 设为true 即可.

更长点的解释请阅读
http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-output-filehandle?--Why-must-I-do-this?

Qiang

--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

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

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

[PerlChina] Re: 强行将缓存写入文件

yi wang wrote:
> 程序用追加模式打开一个监控文件，写入一行信息，然后进入一个大循环，在循环
> 里面没迭代一次写一次文件，最后程序结束前关闭文件。
> 由于缓存机制，并不能在程序运行时及时看到写入文件的内容，如何才能不靠关闭
> 文件，强制将缓存写入文件呢？
>

短答案：使用 Perl 的 autoflush 符号 $|, 通过 $|++ (或者 $|=1) 设为true 即可.

更长点的解释请阅读
http://perldoc.perl.org/perlfaq5.html#How-do-I-flush/unbuffer-an-output-filehandle?--Why-must-I-do-this?

Qiang

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

[PerlChina] Re: 强行将缓存写入文件

use File::Handle;

比如打开了句柄 FF
open FF,'>>aaa.log' or die "$!";

FF->autoflush(1);
即可。

等效于$1=1对STDOUT的作用。

2009/8/11 Anthony WU <anthonywuy2k@gmail.com>

*nix類嗎？使用system("sync"); 看看
又或看看 http://search.cpan.org/~cevans/File-Sync-0.09/Sync.pm

-------- Original Message --------
Subject: [PerlChina] 强行将缓存写入文件
From: yi wang <wangyi2412@gmail.com>
To: perlchina@googlegroups.com
Date: 11/8/2009 19:33
> 程序用追加模式打开一个监控文件，写入一行信息，然后进入一个大循环，在循
> 环里面没迭代一次写一次文件，最后程序结束前关闭文件。
> 由于缓存机制，并不能在程序运行时及时看到写入文件的内容，如何才能不靠关
> 闭文件，强制将缓存写入文件呢？
>
> --
> 和你在一起
>
> >

--
Best Regards,
Anthony WU

[PerlChina] Re: 有没有人申请过软件著作权？

谢谢. :-)

teng zhaozhi wrote:

Beckheng Lam

你可以选择两个方式：

1，自己申报
需要填写著作权登记表，书写软件简要说明书，提供软件源码的前后50~60页(A4幅面)
如果是法人或者单位，需要提供机构相关的证明材料
如果是个人，需要提交如身份证复印件

提交给中国版权中心

2，找到最近的代理商
有专业机构代理这项服务，服务的收费标准不一，一般在200~600左右

一般是建议寻找当地的代理机构。
2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>
RT
--  
--
Kind regards
滕召智 (Ben teng)
Cell: 13381221392
MSN: freet15@hotmail.com
Skype: freet15

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

[PerlChina] Re: 有没有人申请过软件著作权？

Beckheng Lam

你可以选择两个方式：

1，自己申报
需要填写著作权登记表，书写软件简要说明书，提供软件源码的前后50~60页(A4幅面)
如果是法人或者单位，需要提供机构相关的证明材料
如果是个人，需要提交如身份证复印件

提交给中国版权中心

2，找到最近的代理商
有专业机构代理这项服务，服务的收费标准不一，一般在200~600左右

一般是建议寻找当地的代理机构。

2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>

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

[PerlChina] Re: 强行将缓存写入文件

*nix類嗎？使用system("sync"); 看看
又或看看 http://search.cpan.org/~cevans/File-Sync-0.09/Sync.pm

-------- Original Message --------
Subject: [PerlChina] 强行将缓存写入文件
From: yi wang <wangyi2412@gmail.com>
To: perlchina@googlegroups.com
Date: 11/8/2009 19:33
> 程序用追加模式打开一个监控文件，写入一行信息，然后进入一个大循环，在循
> 环里面没迭代一次写一次文件，最后程序结束前关闭文件。
> 由于缓存机制，并不能在程序运行时及时看到写入文件的内容，如何才能不靠关
> 闭文件，强制将缓存写入文件呢？
>
> --
> 和你在一起
>
> >

--
Best Regards,
Anthony WU

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

[PerlChina] 强行将缓存写入文件

程序用追加模式打开一个监控文件，写入一行信息，然后进入一个大循环，在循环里面没迭代一次写一次文件，最后程序结束前关闭文件。
由于缓存机制，并不能在程序运行时及时看到写入文件的内容，如何才能不靠关闭文件，强制将缓存写入文件呢？

--
和你在一起

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

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

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

这是对我的教导,不是误导.让我学到了很多.

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

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

被俺们误导的小子弟终于出现了......

2009/8/11 imxae <imx365ster@gmail.com>

很高兴能得到楼上各位大侠的解答,非常感谢.原来还有这么多的方法,气氛很好,可惜小弟才疏,搭不上话.

谢谢楼上所有的人.

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

很高兴能得到楼上各位大侠的解答,非常感谢.原来还有这么多的方法,气氛很好,可惜小弟才疏,搭不上话.

谢谢楼上所有的人.

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

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

千万别过来，我刚刚提交了 Unicode 的 talk :D
不过万一来了，还可以帮忙修改 slides

2009/8/11 Question <wanliyou@gmail.com>

ping好像一次只能返回一个IP吧?
gethostbyname应该是可以多个的.
说错了就当我误人了...

--
>: ~

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

ping好像一次只能返回一个IP吧?
gethostbyname应该是可以多个的.
说错了就当我误人了...

--
>: ~

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

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

[PerlChina] Re: 有没有人申请过软件著作权？

召唤 agentzh

2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>

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

[PerlChina] 有没有人申请过软件著作权？

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

2009年8月10日星期一

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

还在上海～，9/19 想来，但是也可能来不了，Nomas 一直说要轮到我喷点什么，可我肚子里没货，喷不出来..

2009/8/11 Lin <i@lxl.cn>

嗯，确实是对问题的理解上存在歧义，我看题目是觉得问 dns 解析问题，第一反应是他可能觉得那个 Net::DNS 模组太复杂了，然后发现你俩回复的，上面都有关 ping ... 我就想，这不是文不对题吗，且 ping 速度比 nslookup 慢，不过终就条条大路通罗马，上面这些方法都没什么本质问题。

TNT 还在上海吧？9/19 Perl会上见了 ^L^

2009/8/11 cnhack TNT <cnhacktnt@gmail.com>

2009/8/11 Yuan Jiang <sleetdrop@gmail.com>

一个系统调用引发的血案！

哈哈，我刚看到 Lin 那个回复，猛地一愣！第一个反应是，难道我哪儿写错了？手误？赶紧检查一下，发现没错，并且工作良好
那么转而以为有什么更深层次的使用 ping 来获取 IP 的弊端，发现似乎不是这个问题。所以提出来自清一下，咱是负责任的，咱不好误人子弟那一口:-)

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

一直在用，公司用 ubuntu，家里用 gentoo
很和谐，很美好 :-)

2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>

;-) TNT是不是在用 LINUX呀？

cnhack TNT wrote:

2009/8/11 Yuan Jiang <sleetdrop@gmail.com>

一个系统调用引发的血案！

哈哈，我刚看到 Lin 那个回复，猛地一愣！第一个反应是，难道我哪儿写错了？手误？赶紧检查一下，发现没错，并且工作良好
那么转而以为有什么更深层次的使用 ping 来获取 IP 的弊端，发现似乎不是这个问题。所以提出来自清一下，咱是负责任的，咱不好误人子弟那一口:-)

On 8/11/09, cnhack TNT <cnhacktnt@gmail.com> wrote:
> "不知道有没有比较方面的用perl把域名转换为ip的简单代码?"
> -----
> 楼主问的是 "比较方面（便）的用 perl 把域名转换成 ip 的简单代码"，所以用 ping, nslookup, dig， Socket
> 模块，其他模块，其他方法不都能满足需求么
> 我在意的是你说 ”不要再误人子弟“，我想来想去，还以为是用 ping 有什么不妥，但无论是用 ping 这种外部工具也好，还是你提及的
> gethostbyname 方法，
> 都能满足楼主的要求，所以这个绝对不是误人子弟。
> Lin 没看清楚楼主问题而已:-)
>
> 2009/8/11 Lin <i@lxl.cn>
>
>> 人家没有问 ping 了，而且用 ping 外部程序，还不如 nslookup 呢？：）
>>
>> 2009/8/11 cnhack TNT <cnhacktnt@gmail.com>
>>
>> 用 ping 这种简单的办法有什么不妥么？
>>>
>>>
>>> 2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>
>>>
>>> 同意，我以前的是这样的：
>>>>
>>>> 如何对IP地址进行域名反向查询一样.
>>>> use Socket;
>>>> @addresses = gethostbyname($name) or die "Can't resolve $name: $!n";
>>>> @addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
>>>>
>>>> 反向查询
>>>> use Socket;
>>>> $name = gethostbyaddr(inet_aton($address), AF_INET) or die "Can't
>>>> resolve
>>>> $address: $!n";
>>>>
>>>> Lin(林兴陆) wrote:
>>>>
>>>> perl -e "print
>>>> join('.',unpack('C4',(gethostbyname('www.google.com'))[4]));"
>>>> ;
>>>>
>>>> 用unpack C4兼容性更好一点，W4似乎只在Windows下可解。
>>>>
>>>> 2009/8/11 Lin <i@lxl.cn>
>>>>
>>>>> 这都什么跟什么啊... 大家不要误人子弟了啦
>>>>>
>>>>> C:\Users\Lin\Desktop>perl -e "print
>>>>> join('.',unpack('W4',(gethostbyname('www.goo
>>>>> gle.com'))[4]));";
>>>>> 66.249.89.147
>>>>>
>>>>> %perl -e 'use Socket;my $packed_ip = gethostbyname("
>>>>> www.google.com");print

>>>>> <http://www.google.com%22%29;print/>inet_ntoa($packed_ip);' ;

>>>>> 64.233.189.147%
>>>>>
>>>>> 2009/8/10 Yuan Jiang <sleetdrop@gmail.com>
>>>>>
>>>>>> http://blog.vetcafe.net/2009/07/perl_ping_dns.html
>>>>>>
>>>>>> 2009/8/10 cnhack TNT <cnhacktnt@gmail.com>
>>>>>>
>>>>>>> print $1 if qx/ping -c1 google.com/ =~ /$([\d\.]+)$/;
>>>>>>>
>>>>>>> 2009/8/10 imxae <imx365ster@gmail.com>
>>>>>>>
>>>>>>>> 在cpan 上搜来搜去,发现有的dns模块都太复杂了,不知道有没有比较方面的用perl把域名转换为ip的简单代码?
>>>>>>>
>>>> --
>
> >
>

--

Sent from my mobile device

姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop
--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html 

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

Ping的返回信息，不是取决于防火墙的设置？

Lin(林兴陆) wrote:

嗯，确实是对问题的理解上存在歧义，我看题目是觉得问 dns 解析问题，第一反应是他可能觉得那个 Net::DNS 模组太复杂了，然后发现你俩回复的，上面都有关 ping ... 我就想，这不是文不对题吗，且 ping 速度比 nslookup 慢，不过终就条条大路通罗马，上面这些方法都没什么本质问题。

TNT 还在上海吧？9/19 Perl会上见了 ^L^

2009/8/11 cnhack TNT <cnhacktnt@gmail.com>

2009/8/11 Yuan Jiang <sleetdrop@gmail.com>

一个系统调用引发的血案！

哈哈，我刚看到 Lin 那个回复，猛地一愣！第一个反应是，难道我哪儿写错了？手误？赶紧检查一下，发现没错，并且工作良好
那么转而以为有什么更深层次的使用 ping 来获取 IP 的弊端，发现似乎不是这个问题。所以提出来自清一下，咱是负责任的，咱不好误人子弟那一口:-)

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

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

嗯，确实是对问题的理解上存在歧义，我看题目是觉得问 dns 解析问题，第一反应是他可能觉得那个 Net::DNS 模组太复杂了，然后发现你俩回复的，上面都有关 ping ... 我就想，这不是文不对题吗，且 ping 速度比 nslookup 慢，不过终就条条大路通罗马，上面这些方法都没什么本质问题。

TNT 还在上海吧？9/19 Perl会上见了 ^L^

2009/8/11 cnhack TNT <cnhacktnt@gmail.com>

2009/8/11 Yuan Jiang <sleetdrop@gmail.com>

一个系统调用引发的血案！

哈哈，我刚看到 Lin 那个回复，猛地一愣！第一个反应是，难道我哪儿写错了？手误？赶紧检查一下，发现没错，并且工作良好
那么转而以为有什么更深层次的使用 ping 来获取 IP 的弊端，发现似乎不是这个问题。所以提出来自清一下，咱是负责任的，咱不好误人子弟那一口:-)

[PerlChina] Re: 不知道有没有最简单地用perl把域名转换为ip方法?

;-) TNT是不是在用 LINUX呀？

cnhack TNT wrote:

2009/8/11 Yuan Jiang <sleetdrop@gmail.com>

一个系统调用引发的血案！

哈哈，我刚看到 Lin 那个回复，猛地一愣！第一个反应是，难道我哪儿写错了？手误？赶紧检查一下，发现没错，并且工作良好
那么转而以为有什么更深层次的使用 ping 来获取 IP 的弊端，发现似乎不是这个问题。所以提出来自清一下，咱是负责任的，咱不好误人子弟那一口:-)

On 8/11/09, cnhack TNT <cnhacktnt@gmail.com> wrote:
> "不知道有没有比较方面的用perl把域名转换为ip的简单代码?"
> -----
> 楼主问的是 "比较方面（便）的用 perl 把域名转换成 ip 的简单代码"，所以用 ping, nslookup, dig， Socket
> 模块，其他模块，其他方法不都能满足需求么
> 我在意的是你说 "不要再误人子弟"，我想来想去，还以为是用 ping 有什么不妥，但无论是用 ping 这种外部工具也好，还是你提及的
> gethostbyname 方法，
> 都能满足楼主的要求，所以这个绝对不是误人子弟。
> Lin 没看清楚楼主问题而已:-)
>
> 2009/8/11 Lin <i@lxl.cn>
>
>> 人家没有问 ping 了，而且用 ping 外部程序，还不如 nslookup 呢？：）
>>
>> 2009/8/11 cnhack TNT <cnhacktnt@gmail.com>
>>
>> 用 ping 这种简单的办法有什么不妥么？
>>>
>>>
>>> 2009/8/11 Beckheng Lam <bi.ken.lam@gmail.com>
>>>
>>> 同意，我以前的是这样的：
>>>>
>>>> 如何对IP地址进行域名反向查询一样.
>>>> use Socket;
>>>> @addresses = gethostbyname($name) or die "Can't resolve $name: $!n";
>>>> @addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
>>>>
>>>> 反向查询
>>>> use Socket;
>>>> $name = gethostbyaddr(inet_aton($address), AF_INET) or die "Can't
>>>> resolve
>>>> $address: $!n";
>>>>
>>>> Lin(林兴陆) wrote:
>>>>
>>>> perl -e "print
>>>> join('.',unpack('C4',(gethostbyname('www.google.com'))[4]));"
>>>> ;
>>>>
>>>> 用unpack C4兼容性更好一点，W4似乎只在Windows下可解。
>>>>
>>>> 2009/8/11 Lin <i@lxl.cn>
>>>>
>>>>> 这都什么跟什么啊... 大家不要误人子弟了啦
>>>>>
>>>>> C:\Users\Lin\Desktop>perl -e "print
>>>>> join('.',unpack('W4',(gethostbyname('www.goo
>>>>> gle.com'))[4]));";
>>>>> 66.249.89.147
>>>>>
>>>>> %perl -e 'use Socket;my $packed_ip = gethostbyname("
>>>>> www.google.com");print

>>>>> <http://www.google.com%22%29;print/>inet_ntoa($packed_ip);' ;

>>>>> 64.233.189.147%
>>>>>
>>>>> 2009/8/10 Yuan Jiang <sleetdrop@gmail.com>
>>>>>
>>>>>> http://blog.vetcafe.net/2009/07/perl_ping_dns.html
>>>>>>
>>>>>> 2009/8/10 cnhack TNT <cnhacktnt@gmail.com>
>>>>>>
>>>>>>> print $1 if qx/ping -c1 google.com/ =~ /$([\d\.]+)$/;
>>>>>>>
>>>>>>> 2009/8/10 imxae <imx365ster@gmail.com>
>>>>>>>
>>>>>>>> 在cpan 上搜来搜去,发现有的dns模块都太复杂了,不知道有没有比较方面的用perl把域名转换为ip的简单代码?
>>>>>>>
>>>> --
>
> >
>

--

Sent from my mobile device

姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

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

订阅：博文 (Atom)

2009年8月14日星期五

2009年8月13日星期四

2009年8月12日星期三

2009年8月11日星期二

2009年8月10日星期一

订阅

博客归档