2009年7月4日星期六

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

On 6/30/09, Ericzhao82 <ericzhao82@gmail.com> wrote:
> 能说下原因吗?谢谢
>
> 2009/6/30 <redicaps@gmail.com>
>
>> 少用 foreach (<FH>)这种写法

foreach (<FH>) { ... }

等价于:

@lines = <FH>;
foreach (@lines) { ... }

即先一口气把文件中的每一行都读到内存里来(即 @lines 数组里),再一行一行地处理。这种方式对于较大的文件,内存使用效率是很低的。我们多这么写:

while (<FH>) { ... }

其实就是

while (my $line = <FH>) { ... }

读一行,处理一行,扔一行,然后再读下一行。。。如此这般,内存使用效率很高 :)

>> 用while

*nod*

Cheers,
-agentzh

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

2009年7月3日星期五

[PerlChina] Re: 请教perl如何随机排列数组项?

上面的寫法,如隨機數一樣那數據不就會覆寫?

-------- Original Message  --------
Subject: [PerlChina] Re: 请教perl如何随机排列数组项?
From: Michael Zeng <galaxy2004@gmail.com>
To: perlchina@googlegroups.com
Date: 3/7/2009 19:49
List::Util 不是有shuffle这个  函数么
 
use List::Util qw/shuffle /;
print shuffle 1..10 ;
 


 
2009/7/3 Cheese <cheeselee@126.com>
2 楼正解

On 7月3日, 上午10时04分, imxae <imx365s...@gmail.com> wrote:
> 请教perl如何随机排列数组项?
>
> 想随机打乱数组排列顺序该怎么做?



--
           Yours Sincerely
                   Zeng Hong



--  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: 请教perl如何随机排列数组项?

List::Util 不是有shuffle这个  函数么
 
use List::Util qw/shuffle /;
print shuffle 1..10 ;
 


 
2009/7/3 Cheese <cheeselee@126.com>
2楼正解

On 7月3日, 上午10时04分, imxae <imx365s...@gmail.com> wrote:
> 请教perl如何随机排列数组项?
>
> 想随机打乱数组排列顺序该怎么做?



--
           Yours Sincerely
                   Zeng Hong

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

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

2009年7月2日星期四

[PerlChina] Re: 请教perl如何随机排列数组项?

2楼正解

On 7月3日, 上午10时04分, imxae <imx365s...@gmail.com> wrote:
> 请教perl如何随机排列数组项?
>
> 想随机打乱数组排列顺序该怎么做?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教perl如何随机排列数组项?

这样操作内存会使用太多吧.用map不知道行不行

2009/7/3 xsir317 <xsir317@163.com>:
> 额。。。把数组的各个值作为Hash的Value,然后随机生成Key,最后按照Key排序,数组自然就乱掉了。
>
>
> 2009-07-03

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

[PerlChina] Re: 请教perl如何随机排列数组项?

这个挺不错的

2009/7/3 wd <wd@wdicc.com>:
> sub fisher_yates_shuffle {
> my $array = shift;
> my $i;
> for ($i = @$array; --$i; ) {
> my $j = int rand ($i+1);
> next if $i == $j;
> @$array[$i,$j] = @$array[$j,$i];
> }
> }
>
> 搜到的。传一个 array ref 进去,最好加一个数组是不是空的判断。
>
> 2009/7/3 purl lamp <lamp.purl@gmail.com>
>>
>> sort { rand 1 > 0.5 } (1..10)
>>
>> 2009/7/3 imxae <imx365ster@gmail.com>
>>>
>>> 用这个是不是太复杂了?
>>>
>>>
>>
>>
>>
>
>
> >
>

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

[PerlChina] Re: 请教perl如何随机排列数组项?

呵呵   是啊~~ 这样不错啊  简单明了~

2009/7/3 xsir317 <xsir317@163.com>
额。。。把数组的各个值作为Hash的Value,然后随机生成Key,最后按照Key排序,数组自然就乱掉了。
 
 
2009-07-03


发件人: purl lamp
发送时间: 2009-07-03  10:44:35
收件人: perlchina
抄送:
主题: [PerlChina] Re: 请教perl如何随机排列数组项?
sort { rand 1 > 0.5 } (1..10)

2009/7/3 imxae <imx365ster@gmail.com>
用这个是不是太复杂了?






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

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

[PerlChina] Re: 请教perl如何随机排列数组项?

额。。。把数组的各个值作为Hash的Value,然后随机生成Key,最后按照Key排序,数组自然就乱掉了。
 
 
2009-07-03


发件人: purl lamp
发送时间: 2009-07-03  10:44:35
收件人: perlchina
抄送:
主题: [PerlChina] Re: 请教perl如何随机排列数组项?
sort { rand 1 > 0.5 } (1..10)

2009/7/3 imxae <imx365ster@gmail.com>
用这个是不是太复杂了?



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

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

[PerlChina] Re: 请教perl如何随机排列数组项?

sub fisher_yates_shuffle {
    my $array = shift;
    my $i;
    for ($i = @$array; --$i; ) {
        my $j = int rand ($i+1);
        next if $i == $j;
        @$array[$i,$j] = @$array[$j,$i];
    }
}

搜到的。传一个 array ref 进去,最好加一个数组是不是空的判断。

2009/7/3 purl lamp <lamp.purl@gmail.com>
sort { rand 1 > 0.5 } (1..10)

2009/7/3 imxae <imx365ster@gmail.com>
用这个是不是太复杂了?







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

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

[PerlChina] Re: 请教perl如何随机排列数组项?

sort { rand 1 > 0.5 } (1..10)

2009/7/3 imxae <imx365ster@gmail.com>
用这个是不是太复杂了?




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

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

[PerlChina] Re: 请教perl如何随机排列数组项?

用这个是不是太复杂了?

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

[PerlChina] Re: 请教perl如何随机排列数组项?

List::Util

2009/7/3 imxae <imx365ster@gmail.com>:
> 请教perl如何随机排列数组项?
>
> 想随机打乱数组排列顺序该怎么做?
> >
>

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

[PerlChina] 请教perl如何随机排列数组项?

请教perl如何随机排列数组项?

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

2009年7月1日星期三

[PerlChina] Re: 请教:用perl怎么把文件夹中所有文件明提取出来

use File::Spec;
File::Spec->rel2abs()

相对路径转绝对路径,可能对LZ有用

On 6月30日, 上午11时15分, 刘泽琛 <lynn.liuzec...@gmail.com> wrote:
> 请高手指点:
>
> 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到一个文件中。输出的文件中,每一行列出一个文件的全路径。
>
> 比如待提取的文件夹路径为
> /data/perl/waiting/
>
> 生成的文件为 /data/perl/mine/list
>
> 谢谢!
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 基于 标签(tag) 和 版本(version) 的个人文件系统(filesystem)

gmail 的影响很大。

On 7月1日, 上午11时56分, Huangj <reds...@163.com> wrote:
> 是很好的想法,受 Gmail 的启发?
>
> 在2009-06-29,"扳道岔的人" <leoncraw...@gmail.com> 写道:
>
> 有点像toddlywiki,完全基于tag管理组织blog,并且记录了每个blog的更改时间,查找的话也是按tag查找。
>
> On 6月29日, 上午12时32分, kindy 讨论组了,有重复看到的不要扁我 :)。
>
>
>
>
>
> > 最近在找是否有文件系统是基于 标签 和 版本 来管理文件的,
> > 就是说我可以随便的丢一个文件进系统中,可以任意、无限的标签它。
> > 也可以随便的修改,每一次修改都会被记录,我不用另存,不用复制,只需要删除我不需要的中间版本即可。
> > 至于文件的获取,可以通过搜索+浏览来实现,其实 搜索 在 Mac 中已经很流行,
> > 只是他的文件系统好像还不是很能够随意的让我去丢文件进去,因为大多数时候还是需要我自己去目录下面翻文件,
> > 不知道 spotlight 是搜索文件的哪些 metadata 的。所以嘛,不了解细节对我这样的人来说,用起来很痛苦。
> > 系统构想:
>
> > - 添加文件比较简单,可以随意的丢文件进去,然后标签(也可以完全不打标签)
> > - 可以丢文件包进去,就是说我的一组文件是作为一个文件来处理的,对以检索来说
> > - 查询时候,根据 标签(自动补齐),类别,日期(c/a/m),使用频率 之类来检索(受 find 影响)
> > - UI 界面下的检索结果列表,可以将新文件拖到这个结果界面中,那么这个新文件将自动被赋予这些标签(CLI 下如何操作?)
>
> > 这种东西可能跟 linux 下的 find、grep 重复,不过,在现有的文件系统下存储,
> > 仍然需要建立复杂的目录和 ln -s 连接才可以模拟这样的效果,
> > 如果有软件可以更加方便的使用 ln 来模拟就更好了。 就是说我可以用 ls x 来开始搜索,然后 tab 补齐(可以考虑列出来,直接、直观的选择),比如
> > abc,
> > 加斜杠的意义就是在所有标有 abc 标签之下再检索,再自动补齐,然后觉得满意了直接回车,然后出来所有满足条件的文件。
> > 添加 文件类型、文件、版本、使用频率 之类的检索条件,比较完美了。
> > 对于文件保存,几乎不覆盖,而是类似增量保存,然后可以选择抛弃某个版本。
> > 适用:
>
> > - 收藏资料、图片、软件之类大而碎的文件 的用户
> > - 应该也可以作为服务器的存储底层来使用
>
> > 有啥想法呢??
> > 或者有啥推荐呢?
> > 有任何兴趣或者建议,请直接留言或者 mail 给我(kindy61 在 G邮箱)。
>
> > --
> > Regards,
>
> > Lin Qing
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

Re: 答复: [PerlChina] 今年 Beijing Perl Workshop 大会?

支持,定好日子。等着报名呢!

2009/6/30 Beckheng Lam <bi.ken.lam@gmail.com>
一年一度的盛会又准备了呀。

On 6月30日, 下午9时00分, PIG <addm...@gmail.com> wrote:
> 公司用那个的很少吧。
>
> 2009/6/30 xjdengz <xjde...@gmail.com>
>
>
>
> > 2009/6/30 Young vincent <pcwl.vinc...@gmail.com>:
> > > perl社区真冷清啊~~~~   python的社区火上天去了~~~
> > python的确火,每天好几十封信件,所以退定了
> > > 2009/6/29 Yuan Jiang <sleetd...@gmail.com>
>
> > >> 强强! 哈哈,每月固定的活动呢?
>
> > >> 2009/6/29 蒋宇捷 <hf...@163.com>
>
> > >>> 不错 支持:)~~
>
> > >>> -----邮件原件-----
> > >>> 发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表
> > >>> Qiang (James)
> > >>> 发送时间: 2009年6月29日 16:31
> > >>> 收件人: perlchina@googlegroups.com
> > >>> 主题: [PerlChina] 今年 Beijing Perl Workshop 大会?
>
> > >>> 去年 Perl 讲座咱们是 11 月 8 号举办的。今年的举办日期还在考虑中(可能 9
> > >>> 月19或20号(周六或日)在 日本 YAPC::Asia 一星期后,顺便免费吸引更多国际
> > >>> Perl 高手 :) )。
>
> > >>> 大家感觉如何?
>
> > >>> PS: 去年没参加的朋友可以看这里http://conference.perlchina.org/bjpw2008/
>
> > >>> Qiang(James)
>
> > >> --
> > >> 姜源
> > >> Yuan Jiang
> > >>http://blog.vetcafe.net
> > >>http://twitter.com/sleetdrop- 隐藏被引用文字 -
>
> - 显示引用的文字 -




--
Azure.Wang

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

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

2009年6月30日星期二

[PerlChina] Re: 基于 标签(tag) 和 版本(version) 的个人文件系统(filesystem)

是很好的想法,受 Gmail 的启发?


在2009-06-29,"扳道岔的人" <leoncrawler@gmail.com> 写道:
有点像toddlywiki,完全基于tag管理组织blog,并且记录了每个blog的更改时间,查找的话也是按tag查找。  On 6月29日, 上午12时32分, kindy 讨论组了,有重复看到的不要扁我 :)。 > > 最近在找是否有文件系统是基于 标签 和 版本 来管理文件的, > 就是说我可以随便的丢一个文件进系统中,可以任意、无限的标签它。 > 也可以随便的修改,每一次修改都会被记录,我不用另存,不用复制,只需要删除我不需要的中间版本即可。 > 至于文件的获取,可以通过搜索+浏览来实现,其实 搜索 在 Mac 中已经很流行, > 只是他的文件系统好像还不是很能够随意的让我去丢文件进去,因为大多数时候还是需要我自己去目录下面翻文件, > 不知道 spotlight 是搜索文件的哪些 metadata 的。所以嘛,不了解细节对我这样的人来说,用起来很痛苦。 > 系统构想: > >    - 添加文件比较简单,可以随意的丢文件进去,然后标签(也可以完全不打标签) >    - 可以丢文件包进去,就是说我的一组文件是作为一个文件来处理的,对以检索来说 >    - 查询时候,根据 标签(自动补齐),类别,日期(c/a/m),使用频率 之类来检索(受 find 影响) >    - UI 界面下的检索结果列表,可以将新文件拖到这个结果界面中,那么这个新文件将自动被赋予这些标签(CLI 下如何操作?) > > 这种东西可能跟 linux 下的 find、grep 重复,不过,在现有的文件系统下存储, > 仍然需要建立复杂的目录和 ln -s 连接才可以模拟这样的效果, > 如果有软件可以更加方便的使用 ln 来模拟就更好了。 就是说我可以用 ls x 来开始搜索,然后 tab 补齐(可以考虑列出来,直接、直观的选择),比如 > abc, > 加斜杠的意义就是在所有标有 abc 标签之下再检索,再自动补齐,然后觉得满意了直接回车,然后出来所有满足条件的文件。 > 添加 文件类型、文件、版本、使用频率 之类的检索条件,比较完美了。 > 对于文件保存,几乎不覆盖,而是类似增量保存,然后可以选择抛弃某个版本。 > 适用: > >    - 收藏资料、图片、软件之类大而碎的文件 的用户 >    - 应该也可以作为服务器的存储底层来使用 > > 有啥想法呢?? > 或者有啥推荐呢? > 有任何兴趣或者建议,请直接留言或者 mail 给我(kindy61 在 G邮箱)。 > > -- > Regards, > > Lin Qing  



200万种商品,最低价格,疯狂诱惑你 --~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

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

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

gethostbyname?

On 6月30日, 下午7时52分, Anthony WU <anthonywu...@gmail.com> wrote:
> 不直接用 nslookup ?
>
>
>
>
>
> -------- Original Message --------
> Subject: [PerlChina] Re: 请教两个foreach嵌套的问题,谢谢
> From: Ericzhao82 <ericzha...@gmail.com>
> To: perlchina@googlegroups.com
> Date: 30/6/2009 13:53
> > 能说下原因吗?谢谢
>
> > 2009/6/30 <redic...@gmail.com <mailto:redic...@gmail.com>>
>
> > 少用 foreach (<FH>)这种写法
> > 用while
> > On Jun 30, 2009 10:46am, Ericzhao82 <ericzha...@gmail.com
> > <mailto:ericzha...@gmail.com>> wrote:
> > > 小脚本实现的目的
>
> > > 1.通过dig $domain 返回的结果,从中截取IP地址
> > > 2.向这些IP地址,发$domain的Host头的HTTP请求。
>
> > > 例如:
>
> > > 1.digwww.163.com<http://www.163.com>
> > > 2.返回61.135.253.16
>
> > > 然后做,curl "Host:www.163.com<http://www.163.com>"
> > http://61.135.253.16
>
> > > 下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印
> > 出来,例如"
> > > Domain is:www.163.com<http://www.163.com>
>
> > > IP is: news-biz.cache.163.gslb.netease.com
> > <http://news-biz.cache.163.gslb.netease.com>.
> > > "
>
> > > 请指点一二,多谢了。
>
> > > #!/usr/bin/perl -w
>
> > > open (DOMAIN,"
> > > foreach $domain () {
> > > open (IP,"dig +short $domain |") or die "$!\n";
> > > foreach $ip () {
> > > print "IP is: $ip\n";
> > > print "Domain is: $domain\n";
>
> > > }
> > > close IP;
> > > }
> > > close DOMAIN;
>
> > > #namelist 文件
> > >www.163.com<http://www.163.com>
> > > news.163.com <http://news.163.com>
> > > ........................
> > > ........................
>
> > &gt
>
> > --
> > ................................................
> > Ericzhao
>
> > Email: Ericzha...@gmail.com <mailto:Ericzha...@gmail.com>
> > MSN: Ericzhao...@hotmail.com <mailto:Ericzhao...@hotmail.com>
> > BLOG: share82.freebsder.info <http://share82.freebsder.info>
>
> > []
>
> --
> Best Regards,
> Anthony WU- 隐藏被引用文字 -
>
> - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

Re: 答复: [PerlChina] 今年 Beijing Perl Workshop 大会?

一年一度的盛会又准备了呀。

On 6月30日, 下午9时00分, PIG <addm...@gmail.com> wrote:
> 公司用那个的很少吧。
>
> 2009/6/30 xjdengz <xjde...@gmail.com>
>
>
>
> > 2009/6/30 Young vincent <pcwl.vinc...@gmail.com>:
> > > perl社区真冷清啊~~~~ python的社区火上天去了~~~
> > python的确火,每天好几十封信件,所以退定了
> > > 2009/6/29 Yuan Jiang <sleetd...@gmail.com>
>
> > >> 强强! 哈哈,每月固定的活动呢?
>
> > >> 2009/6/29 蒋宇捷 <hf...@163.com>
>
> > >>> 不错 支持:)~~
>
> > >>> -----邮件原件-----
> > >>> 发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表
> > >>> Qiang (James)
> > >>> 发送时间: 2009年6月29日 16:31
> > >>> 收件人: perlchina@googlegroups.com
> > >>> 主题: [PerlChina] 今年 Beijing Perl Workshop 大会?
>
> > >>> 去年 Perl 讲座咱们是 11 月 8 号举办的。今年的举办日期还在考虑中(可能 9
> > >>> 月19或20号(周六或日)在 日本 YAPC::Asia 一星期后,顺便免费吸引更多国际
> > >>> Perl 高手 :) )。
>
> > >>> 大家感觉如何?
>
> > >>> PS: 去年没参加的朋友可以看这里http://conference.perlchina.org/bjpw2008/
>
> > >>> Qiang(James)
>
> > >> --
> > >> 姜源
> > >> 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: 请教:用perl怎么把文件夹中所有文件明提取出来

嗯,同样建议遍历子目录就用File::Find,要不就用glob也可以。

On 6月30日, 下午8时27分, Michael Zeng <galaxy2...@gmail.com> wrote:
> use File::Find
>
> use File::Spec ;
> use File::Basename
>
> 2009/6/30 wd <w...@wdicc.com>
>
>
>
>
>
> > 那还不如用 find
> > find /data/ -type f
>
> > 2009/6/30 xjdengz <xjde...@gmail.com>
>
> > 2009/6/30 刘泽琛 <lynn.liuzec...@gmail.com>:
> >> > 请高手指点:
>
> >> > 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到一个文件中。输出的文件中,每一行列出一个文件的全路径。
>
> >> > 比如待提取的文件夹路径为
> >> > /data/perl/waiting/
>
> >> > 生成的文件为 /data/perl/mine/list
>
> >> 为什么不用shell呢
> >> 只提取文件名 ls -Rl yourdir |grep ^- |awk '{print $NF}'
> >> 提取完整路径 find path -type f
> >> 然后重定向到文件就行了吧
> >> > 谢谢!
>
> --
> Yours Sincerely
> Zeng Hong- 隐藏被引用文字 -
>
> - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

Re: 答复: [PerlChina] 今年 Beijing Perl Workshop 大会?

公司用那个的很少吧。

2009/6/30 xjdengz <xjdengz@gmail.com>
2009/6/30 Young vincent <pcwl.vincent@gmail.com>:
> perl社区真冷清啊~~~~   python的社区火上天去了~~~
python的确火,每天好几十封信件,所以退定了
> 2009/6/29 Yuan Jiang <sleetdrop@gmail.com>
>>
>> 强强! 哈哈,每月固定的活动呢?
>>
>> 2009/6/29 蒋宇捷 <hfahe@163.com>
>>>
>>> 不错 支持:)~~
>>>
>>> -----邮件原件-----
>>> 发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表
>>> Qiang (James)
>>> 发送时间: 2009年6月29日 16:31
>>> 收件人: perlchina@googlegroups.com
>>> 主题: [PerlChina] 今年 Beijing Perl Workshop 大会?
>>>
>>> 去年 Perl 讲座咱们是 11 月 8 号举办的。今年的举办日期还在考虑中(可能 9
>>> 月19或20号(周六或日)在 日本 YAPC::Asia 一星期后,顺便免费吸引更多国际
>>> Perl 高手 :) )。
>>>
>>> 大家感觉如何?
>>>
>>> PS: 去年没参加的朋友可以看这里 http://conference.perlchina.org/bjpw2008/
>>>
>>> Qiang(James)
>>>
>>>
>>>
>>>
>>
>>
>>
>> --
>> 姜源
>> 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: 请教:用perl怎么把文件夹中所有文件明提取出来

use File::Find
 
use File::Spec ;
use File::Basename
 


 
2009/6/30 wd <wd@wdicc.com>
那还不如用 find
find /data/ -type f

2009/6/30 xjdengz <xjdengz@gmail.com>

2009/6/30 刘泽琛 <lynn.liuzechen@gmail.com>:
> 请高手指点:
>
> 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到一个文件中。输出的文件中,每一行列出一个文件的全路径。
>
> 比如待提取的文件夹路径为
> /data/perl/waiting/
>
> 生成的文件为        /data/perl/mine/list
>
为什么不用shell呢
只提取文件名 ls -Rl yourdir |grep ^- |awk '{print $NF}'
提取完整路径 find path -type f
然后重定向到文件就行了吧
> 谢谢!
>
> >
>





--
           Yours Sincerely
                   Zeng Hong

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

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

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

不直接用 nslookup ?

-------- Original Message  --------
Subject: [PerlChina] Re: 请教两个foreach嵌套的问题,谢谢
From: Ericzhao82 <ericzhao82@gmail.com>
To: perlchina@googlegroups.com
Date: 30/6/2009 13:53
能说下原因吗?谢谢

2009/6/30 <redicaps@gmail.com>
少 用 foreach (<FH>)这种写法
用while
On Jun 30, 2009 10:46am, Ericzhao82 <ericzhao82@gmail.com> wrote:
> 小脚本实现的目的
>
> 1.通过dig $domain 返回的结果,从中截取IP地址
> 2.向这些IP地址,发$domain的Host头的HTTP请求。
>
> 例如:
>
> 1.dig www.163.com
> 2.返回61.135.253.16
>
> 然后做,curl "Host: www.163.com" http://61.135.253.16
>
>
> 下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
> Domain is: www.163.com
>
>
> IP is: news-biz.cache.163.gslb.netease.com.
> "
>
> 请指点一二,多谢了。
>
> #!/usr/bin/perl -w
>
> open (DOMAIN,"
> foreach $domain () {
>         open (IP,"dig +short $domain |") or die "$!\n";
>         foreach $ip () {
>                 print "IP is: $ip\n";
>                 print "Domain is: $domain\n";
>
>         }
>         close IP;
> }
> close DOMAIN;
>
>
>
> #namelist 文件
> www.163.com
> news.163.com
> ……………………
> ……………………
>
>
>
>
>
>
>
&gt





--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

[]


--  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: 请教:用perl怎么把文件夹中所有文件明提取出来

那还不如用 find
find /data/ -type f

2009/6/30 xjdengz <xjdengz@gmail.com>
2009/6/30 刘泽琛 <lynn.liuzechen@gmail.com>:
> 请高手指点:
>
> 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到一个文件中。输出的文件中,每一行列出一个文件的全路径。
>
> 比如待提取的文件夹路径为
> /data/perl/waiting/
>
> 生成的文件为        /data/perl/mine/list
>
为什么不用shell呢
只提取文件名 ls -Rl yourdir |grep ^- |awk '{print $NF}'
提取完整路径 find path -type f
然后重定向到文件就行了吧
> 谢谢!
>
> >
>




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

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

Re: 答复: [PerlChina] 今年 Beijing Perl Workshop 大会?

2009/6/30 Young vincent <pcwl.vincent@gmail.com>:
> perl社区真冷清啊~~~~   python的社区火上天去了~~~
python的确火,每天好几十封信件,所以退定了
> 2009/6/29 Yuan Jiang <sleetdrop@gmail.com>
>>
>> 强强! 哈哈,每月固定的活动呢?
>>
>> 2009/6/29 蒋宇捷 <hfahe@163.com>
>>>
>>> 不错 支持:)~~
>>>
>>> -----邮件原件-----
>>> 发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表
>>> Qiang (James)
>>> 发送时间: 2009年6月29日 16:31
>>> 收件人: perlchina@googlegroups.com
>>> 主题: [PerlChina] 今年 Beijing Perl Workshop 大会?
>>>
>>> 去年 Perl 讲座咱们是 11 月 8 号举办的。今年的举办日期还在考虑中(可能 9
>>> 月19或20号(周六或日)在 日本 YAPC::Asia 一星期后,顺便免费吸引更多国际
>>> Perl 高手 :) )。
>>>
>>> 大家感觉如何?
>>>
>>> PS: 去年没参加的朋友可以看这里 http://conference.perlchina.org/bjpw2008/
>>>
>>> Qiang(James)
>>>
>>>
>>>
>>>
>>
>>
>>
>> --
>> 姜源
>> 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: 请教:用perl怎么把文件夹中所有文件明提取出来

2009/6/30 刘泽琛 <lynn.liuzechen@gmail.com>:
> 请高手指点:
>
> 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到一个文件中。输出的文件中,每一行列出一个文件的全路径。
>
> 比如待提取的文件夹路径为
> /data/perl/waiting/
>
> 生成的文件为        /data/perl/mine/list
>
为什么不用shell呢
只提取文件名 ls -Rl yourdir |grep ^- |awk '{print $NF}'
提取完整路径 find path -type f
然后重定向到文件就行了吧
> 谢谢!
>
> >
>

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

2009年6月29日星期一

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

能说下原因吗?谢谢

2009/6/30 <redicaps@gmail.com>
少用 foreach (<FH>)这种写法
用while
On Jun 30, 2009 10:46am, Ericzhao82 <ericzhao82@gmail.com> wrote:
> 小脚本实现的目的
>
> 1.通过dig $domain 返回的结果,从中截取IP地址
> 2.向这些IP地址,发$domain的Host头的HTTP请求。
>
> 例如:
>
> 1.dig www.163.com
> 2.返回61.135.253.16
>
> 然后做,curl "Host: www.163.com" http://61.135.253.16
>
>
> 下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
> Domain is: www.163.com
>
>
> IP is: news-biz.cache.163.gslb.netease.com.
> "
>
> 请指点一二,多谢了。
>
> #!/usr/bin/perl -w
>
> open (DOMAIN,"
> foreach $domain () {
>         open (IP,"dig +short $domain |") or die "$!\n";
>         foreach $ip () {
>                 print "IP is: $ip\n";
>                 print "Domain is: $domain\n";
>
>         }
>         close IP;
> }
> close DOMAIN;
>
>
>
> #namelist 文件
> www.163.com
> news.163.com
> ……………………
> ……………………
>
>
>
>
>
>
>
&gt





--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

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

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

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

少用 foreach (<FH>)这种写法
用while
On Jun 30, 2009 10:46am, Ericzhao82 <ericzhao82@gmail.com> wrote:
> 小脚本实现的目的
>
> 1.通过dig $domain 返回的结果,从中截取IP地址
> 2.向这些IP地址,发$domain的Host头的HTTP请求。
>
> 例如:
>
> 1.dig www.163.com
> 2.返回61.135.253.16
>
> 然后做,curl "Host: www.163.com" http://61.135.253.16
>
>
> 下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
> Domain is: www.163.com
>
>
> IP is: news-biz.cache.163.gslb.netease.com.
> "
>
> 请指点一二,多谢了。
>
> #!/usr/bin/perl -w
>
> open (DOMAIN,"
> foreach $domain () {
>         open (IP,"dig +short $domain |") or die "$!\n";
>         foreach $ip () {
>                 print "IP is: $ip\n";
>                 print "Domain is: $domain\n";
>
>         }
>         close IP;
> }
> close DOMAIN;
>
>
>
> #namelist 文件
> www.163.com
> news.163.com
> ……………………
> ……………………
>
>
>
>
>
>
>
>
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

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

[PerlChina] Re: 请教:用perl怎么把文件夹中所有文件明提取出来

以前写过一个处理FTP文件夹的脚本,遍历文件夹并且算所有的MD5.
 
刚刚改了一下,做个清理文件夹的脚本,其实都是一样的。
 
push (my @dirs,'/store/MetaBase/');
push (@dirs,'/store/logs/');
while (@dirs) {
        my $rcdir = shift @dirs;
        opendir DIR,$rcdir or die "Cant open Dir $rcdir :$!\n";
        while (my $name = readdir DIR)
        {                
            if ($name!~ /\.?\.$/)
            {
                 my $filename = $rcdir.$name;#文件夹加上文件名,这样就是完整路径了
                 if(-f $filename)
                 {
&ulog(time." delete:$filename clear.pl "."\n");
unlink $filename;
 }
                 #如果是文件夹,那么放入数组中等待遍历。
                 else
                 {                                        
                    push (@dirs,$filename."/");
                 }
            }
        }
}
 
如果是文件,就删除(或者记录路径等等操作),如果是文件夹,就放到数组里。然后每次从数组里取一个文件夹,重复操作就可以了。稍微有点傻,不过还是挺快的。
 
 
2009-06-30


发件人: Qiang (James)
发送时间: 2009-06-30  11:24:05
收件人: perlchina
抄送:
主题: [PerlChina] Re: 请教:用perl怎么把文件夹中所有文件明提取出来
刘泽琛 wrote:
> 请高手指点:
> 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到 
> 一个文件中。输出的文件中,每一行列出一个文件的全路径。
> 比如待提取的文件夹路径为
> /data/perl/waiting/
> 生成的文件为        /data/perl/mine/list
咳, 生成的文件应该是  /data/perl/waiting/mine/list
如果你是对固定目录操作,读取目录内容(readdir)后在判断是否文件(-d) 然后
dir + 文件名就可以了。
如果你是对多个目录或目录递归操作,使用 File::Find 即可。
具体如何写代码请查相关 perl 文档。
Qiang(James)

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

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

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

我加了个判断,搞成下面这个了.

#!/usr/bin/perl -w

open (DOMAIN,"<namelist") or die "$!\n";
foreach $domain (<DOMAIN>) {
        chomp($domain);
        open (IP,"dig +short $domain | ") or die "$!\n";
        foreach $ip (<IP>) {
                chomp($ip);
                if ($ip =~ /^[0-9]/) {
                        print "===Star===\n";
                        print "Domain is: $domain\n";
                        print "IP is: $ip\n";
                        print "===End===\n";
                        print "\n";
                }
                else {
                        next;
                }
        }
        close IP;
}
close DOMAIN;


2009/6/30 Ericzhao82 <ericzhao82@gmail.com>
那么麻烦问一下,整句shell该如何处理,像:


open (IP,"dig +short $domain | grep ^[0-9] |") or die "$!\n";

2009/6/30 smallfish.xy <smallfish.xy@gmail.com>
dig +short www.163.com | grep "^[0-9]"
2009/6/30 Ericzhao82 <ericzhao82@gmail.com>
请教用正则如何处理,谢谢。

另外,我本来在system shell里面处理,可是因为有 | 符号,运行时有错误提示

open (IP,"dig +short $domain | grep ^[0-9] |") or die "$!\n";


2009/6/30 smallfish.xy <smallfish.xy@gmail.com>

[root@main ~]# dig +short www.163.com
www.cache.gslb.netease.com.
60.191.80.142
60.191.80.34
60.191.80.127
这个返回本来就是有www.cache.gslb.netease.com,你的意思只要IP啊,那你可以用正则过滤一下。

-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 Ericzhao82 <ericzhao82@gmail.com>

小脚本实现的目的

1.通过dig $domain 返回的结果,从中截取IP地址
2.向这些IP地址,发$domain的Host头的HTTP请求。

例如:

1.dig www.163.com
2.返回61.135.253.16

然后做,curl "Host: www.163.com" http://61.135.253.16

下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
Domain is: www.163.com

IP is: news-biz.cache.163.gslb.netease.com.
"

请指点一二,多谢了。

#!/usr/bin/perl -w

open (DOMAIN,"<namelist") or die "$!\n";
foreach $domain (<DOMAIN>) {
        open (IP,"dig +short $domain |") or die "$!\n";
        foreach $ip (<IP>) {
                print "IP is: $ip\n";
                print "Domain is: $domain\n";
        }
        close IP;
}
close DOMAIN;


#namelist 文件
www.163.com
news.163.com
……………………
……………………









--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info









--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info



--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

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

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

[PerlChina] Re: 请教:用perl怎么把文件夹中所有文件明提取出来

 谢谢指点!

2009/6/30 Qiang (James) <shijialee@gmail.com>
刘泽琛 wrote:
> 请高手指点:
>
> 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到
> 一个文件中。输出的文件中,每一行列出一个文件的全路径。
>
> 比如待提取的文件夹路径为
> /data/perl/waiting/
>
> 生成的文件为        /data/perl/mine/list
>

咳, 生成的文件应该是  /data/perl/waiting/mine/list

如果你是对固定目录操作,读取目录内容(readdir)后在判断是否文件(-d) 然后
dir + 文件名就可以了。

如果你是对多个目录或目录递归操作,使用 File::Find 即可。

具体如何写代码请查相关 perl 文档。

Qiang(James)




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

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

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

那么麻烦问一下,整句shell该如何处理,像:

open (IP,"dig +short $domain | grep ^[0-9] |") or die "$!\n";

2009/6/30 smallfish.xy <smallfish.xy@gmail.com>
dig +short www.163.com | grep "^[0-9]"
2009/6/30 Ericzhao82 <ericzhao82@gmail.com>
请教用正则如何处理,谢谢。

另外,我本来在system shell里面处理,可是因为有 | 符号,运行时有错误提示

open (IP,"dig +short $domain | grep ^[0-9] |") or die "$!\n";


2009/6/30 smallfish.xy <smallfish.xy@gmail.com>

[root@main ~]# dig +short www.163.com
www.cache.gslb.netease.com.
60.191.80.142
60.191.80.34
60.191.80.127
这个返回本来就是有www.cache.gslb.netease.com,你的意思只要IP啊,那你可以用正则过滤一下。

-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 Ericzhao82 <ericzhao82@gmail.com>

小脚本实现的目的

1.通过dig $domain 返回的结果,从中截取IP地址
2.向这些IP地址,发$domain的Host头的HTTP请求。

例如:

1.dig www.163.com
2.返回61.135.253.16

然后做,curl "Host: www.163.com" http://61.135.253.16

下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
Domain is: www.163.com

IP is: news-biz.cache.163.gslb.netease.com.
"

请指点一二,多谢了。

#!/usr/bin/perl -w

open (DOMAIN,"<namelist") or die "$!\n";
foreach $domain (<DOMAIN>) {
        open (IP,"dig +short $domain |") or die "$!\n";
        foreach $ip (<IP>) {
                print "IP is: $ip\n";
                print "Domain is: $domain\n";
        }
        close IP;
}
close DOMAIN;


#namelist 文件
www.163.com
news.163.com
……………………
……………………









--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info









--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

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

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

[PerlChina] Re: 请教:用perl怎么把文件夹中所有文件明提取出来

刘泽琛 wrote:
> 请高手指点:
>
> 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到
> 一个文件中。输出的文件中,每一行列出一个文件的全路径。
>
> 比如待提取的文件夹路径为
> /data/perl/waiting/
>
> 生成的文件为 /data/perl/mine/list
>

咳, 生成的文件应该是 /data/perl/waiting/mine/list

如果你是对固定目录操作,读取目录内容(readdir)后在判断是否文件(-d) 然后
dir + 文件名就可以了。

如果你是对多个目录或目录递归操作,使用 File::Find 即可。

具体如何写代码请查相关 perl 文档。

Qiang(James)

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

[PerlChina] 请教:用perl怎么把文件夹中所有文件明提取出来

请高手指点:

怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来,并且输出到一个文件中。输出的文件中,每一行列出一个文件的全路径。

比如待提取的文件夹路径为
/data/perl/waiting/

生成的文件为        /data/perl/mine/list


谢谢!

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

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

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

dig +short www.163.com | grep "^[0-9]"
-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 Ericzhao82 <ericzhao82@gmail.com>
请教用正则如何处理,谢谢。

另外,我本来在system shell里面处理,可是因为有 | 符号,运行时有错误提示

open (IP,"dig +short $domain | grep ^[0-9] |") or die "$!\n";


2009/6/30 smallfish.xy <smallfish.xy@gmail.com>

[root@main ~]# dig +short www.163.com
www.cache.gslb.netease.com.
60.191.80.142
60.191.80.34
60.191.80.127
这个返回本来就是有www.cache.gslb.netease.com,你的意思只要IP啊,那你可以用正则过滤一下。

-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 Ericzhao82 <ericzhao82@gmail.com>

小脚本实现的目的

1.通过dig $domain 返回的结果,从中截取IP地址
2.向这些IP地址,发$domain的Host头的HTTP请求。

例如:

1.dig www.163.com
2.返回61.135.253.16

然后做,curl "Host: www.163.com" http://61.135.253.16

下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
Domain is: www.163.com

IP is: news-biz.cache.163.gslb.netease.com.
"

请指点一二,多谢了。

#!/usr/bin/perl -w

open (DOMAIN,"<namelist") or die "$!\n";
foreach $domain (<DOMAIN>) {
        open (IP,"dig +short $domain |") or die "$!\n";
        foreach $ip (<IP>) {
                print "IP is: $ip\n";
                print "Domain is: $domain\n";
        }
        close IP;
}
close DOMAIN;


#namelist 文件
www.163.com
news.163.com
……………………
……………………









--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info





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

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

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

请教用正则如何处理,谢谢。

另外,我本来在system shell里面处理,可是因为有 | 符号,运行时有错误提示

open (IP,"dig +short $domain | grep ^[0-9] |") or die "$!\n";


2009/6/30 smallfish.xy <smallfish.xy@gmail.com>
[root@main ~]# dig +short www.163.com
www.cache.gslb.netease.com.
60.191.80.142
60.191.80.34
60.191.80.127
这个返回本来就是有www.cache.gslb.netease.com,你的意思只要IP啊,那你可以用正则过滤一下。

-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 Ericzhao82 <ericzhao82@gmail.com>

小脚本实现的目的

1.通过dig $domain 返回的结果,从中截取IP地址
2.向这些IP地址,发$domain的Host头的HTTP请求。

例如:

1.dig www.163.com
2.返回61.135.253.16

然后做,curl "Host: www.163.com" http://61.135.253.16

下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
Domain is: www.163.com

IP is: news-biz.cache.163.gslb.netease.com.
"

请指点一二,多谢了。

#!/usr/bin/perl -w

open (DOMAIN,"<namelist") or die "$!\n";
foreach $domain (<DOMAIN>) {
        open (IP,"dig +short $domain |") or die "$!\n";
        foreach $ip (<IP>) {
                print "IP is: $ip\n";
                print "Domain is: $domain\n";
        }
        close IP;
}
close DOMAIN;


#namelist 文件
www.163.com
news.163.com
……………………
……………………









--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

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

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

[PerlChina] Re: 请教两个foreach嵌套的问题,谢谢

[root@main ~]# dig +short www.163.com
www.cache.gslb.netease.com.
60.191.80.142
60.191.80.34
60.191.80.127
这个返回本来就是有www.cache.gslb.netease.com,你的意思只要IP啊,那你可以用正则过滤一下。

-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 Ericzhao82 <ericzhao82@gmail.com>
小脚本实现的目的

1.通过dig $domain 返回的结果,从中截取IP地址
2.向这些IP地址,发$domain的Host头的HTTP请求。

例如:

1.dig www.163.com
2.返回61.135.253.16

然后做,curl "Host: www.163.com" http://61.135.253.16

下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
Domain is: www.163.com

IP is: news-biz.cache.163.gslb.netease.com.
"

请指点一二,多谢了。

#!/usr/bin/perl -w

open (DOMAIN,"<namelist") or die "$!\n";
foreach $domain (<DOMAIN>) {
        open (IP,"dig +short $domain |") or die "$!\n";
        foreach $ip (<IP>) {
                print "IP is: $ip\n";
                print "Domain is: $domain\n";
        }
        close IP;
}
close DOMAIN;


#namelist 文件
www.163.com
news.163.com
……………………
……………………





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

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

Re: 答复: [PerlChina] 今年 Beijing Perl Workshop 大会?

看来我RP还不错,拒了一次就进来了

2009/6/30 smallfish.xy <smallfish.xy@gmail.com>
很正常,我被拒绝过好几次
2009/6/30 wd <wd@wdicc.com>

  您对 python-cn`CPyUG`华蟒用户组(中文Py用户组) 的订阅未能获得批准
还真火,头一次申请 google group 被拒


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

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

[PerlChina] 请教两个foreach嵌套的问题,谢谢

小脚本实现的目的

1.通过dig $domain 返回的结果,从中截取IP地址
2.向这些IP地址,发$domain的Host头的HTTP请求。

例如:

1.dig www.163.com
2.返回61.135.253.16

然后做,curl "Host: www.163.com" http://61.135.253.16

下面是我写的小脚本,可是返回结果有问题,会将第一个CNAME地址打印出来,例如"
Domain is: www.163.com

IP is: news-biz.cache.163.gslb.netease.com.
"

请指点一二,多谢了。

#!/usr/bin/perl -w

open (DOMAIN,"<namelist") or die "$!\n";
foreach $domain (<DOMAIN>) {
        open (IP,"dig +short $domain |") or die "$!\n";
        foreach $ip (<IP>) {
                print "IP is: $ip\n";
                print "Domain is: $domain\n";
        }
        close IP;
}
close DOMAIN;


#namelist 文件
www.163.com
news.163.com
……………………
……………………


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

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

Re: 答复: [PerlChina] 今年 Beijing Perl Workshop 大会?

很正常,我被拒绝过好几次
-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 wd <wd@wdicc.com>
  您对 python-cn`CPyUG`华蟒用户组(中文Py用户组) 的订阅未能获得批准
还真火,头一次申请 google group 被拒



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

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

Re: 答复: [PerlChina] 今年 Beijing Perl Workshop 大会?

  您对 python-cn`CPyUG`华蟒用户组(中文Py用户组) 的订阅未能获得批准
还真火,头一次申请 google group 被拒

2009/6/30 smallfish.xy <smallfish.xy@gmail.com>
水也很深
-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 Young vincent <pcwl.vincent@gmail.com>

perl社区真冷清啊~~~~   python的社区火上天去了~~~

2009/6/29 Yuan Jiang <sleetdrop@gmail.com>

强强! 哈哈,每月固定的活动呢?

2009/6/29 蒋宇捷 <hfahe@163.com>

不错 支持:)~~

-----邮件原件-----
发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表 Qiang (James)
发送时间: 2009年6月29日 16:31
收件人: perlchina@googlegroups.com
主题: [PerlChina] 今年 Beijing Perl Workshop 大会?

去年 Perl 讲座咱们是 11 月 8 号举办的。今年的举办日期还在考虑中(可能 9
月19或20号(周六或日)在 日本 YAPC::Asia 一星期后,顺便免费吸引更多国际
Perl 高手 :) )。

大家感觉如何?

PS: 去年没参加的朋友可以看这里 http://conference.perlchina.org/bjpw2008/

Qiang(James)







--
姜源
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 访问该论坛

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

Re: 答复: [PerlChina] 今年 Beijing Perl Workshop 大会?

水也很深
-------
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish_xy
http://www.douban.com/people/smallfish.xy/


2009/6/30 Young vincent <pcwl.vincent@gmail.com>
perl社区真冷清啊~~~~   python的社区火上天去了~~~

2009/6/29 Yuan Jiang <sleetdrop@gmail.com>

强强! 哈哈,每月固定的活动呢?

2009/6/29 蒋宇捷 <hfahe@163.com>

不错 支持:)~~

-----邮件原件-----
发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表 Qiang (James)
发送时间: 2009年6月29日 16:31
收件人: perlchina@googlegroups.com
主题: [PerlChina] 今年 Beijing Perl Workshop 大会?

去年 Perl 讲座咱们是 11 月 8 号举办的。今年的举办日期还在考虑中(可能 9
月19或20号(周六或日)在 日本 YAPC::Asia 一星期后,顺便免费吸引更多国际
Perl 高手 :) )。

大家感觉如何?

PS: 去年没参加的朋友可以看这里 http://conference.perlchina.org/bjpw2008/

Qiang(James)







--
姜源
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 访问该论坛

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