Perl China Blog Spot: 2011-07-31

2011年8月4日星期四

[PerlChina] Re: 百度2011夏季招贤纳士群英会

顶顶！！！！

On 8月3日, 下午3时26分, op baidu <baiduop...@gmail.com> wrote:
> 你是否已经觉得Coding不再有挑战？
> 你是否已经在日复一日变幻不定的开发需求中失去了激情？
> 那么，加入百度运维吧，它将带给你更宽广的技术视野，更强悍的架构能力。
>
> 同时，你也将面对数十亿流量的互联网产品，数万台的服务集群；迎接大规模服务部署、架构优化，海量数据分析，超大集群调度，数以万计在线服务实时监控等
> 领域中前所未有的挑战。
>
> 作为一名百度运维工程师
> 你将亲手调整系统架构和内部运行逻辑，让它精确管理和从容协调每个任务的执行;
> 你将亲手优化网络存储架构，使海量数据的传输、存储与访问也变得轻而易举;
> 你将亲手设计高性能数据库集群，让每条记录都能快速、准确的记录与索引
> 你将亲手规划分布式与虚拟化应用，为计算效率、运营效率的不断提高做出贡献。
>
> 不用再犹豫，快来参加8月13日 "百度运维部2011夏季招贤纳士群英会"
> 投简历、笔试、面试，1天搞定
> 无论你现在是运维、研发、测试或其他，只要你行，Offer当天发放。
> 请将简历邮件发送到 op-...@baidu.com
> 职位详情，请访问：http://hr.baidu.com/static/opzhaopin.html
>
> 百度运维达人秀
>
> 宋同学（原某国企研发工程师）
> 项目负责人
> 部门：基础平台运维组
> 2010年6月入职
>
> 大家好，我是武汉人，从武汉大学信息安全专业毕业后，在某国家事业单位从事研发工作，并成为项目负责人，工作两年后，实在是厌倦了事业单位的压抑与闲
> 散，毅然决然的跳槽来到BAIDU，希望开始"走直线"。
> 在BAIDU的一年多时间里，我真正体会到之前无法想象的激情与挑战。进入了基础平台运维小组这个"简单可依赖"的团队，在导师的全身心的指导下，入职
> 后的第一个季度独立负责了一个完整产品的运维工作，并荣获"最佳新人奖"；接下来的两个季度，逐步开始参与到更多重量级产品的运维中，并成为三个产品线
> 的负责人。从中不但体会到互联网产品设计、运行的精妙，更为亿万网民带来百分百可依赖的服务。我并在2011年上半年近乎100%完成核心KPI要
> 求，荣获百度技术部大奖――季度之星。
> 来了BAIDU，发现工作是为了成为对同事、对用户"简单可依赖"的人，也发现自己真的开始"走直线"！
>
> 贾同学（原某软件公司研发工程师）
> 现任：项目经理
> 部门：搜索运维部离线集群组
> 2009年6月入职
>
> 大家好！2009年对我来说是人生出现转折的一年，因为那一年，我告别研发，加入了百度的运维大家庭，没有别的原因，只想自己活得更精彩！
> 入职后的我，被百度的文化震撼了，这里没有责任推诿，没有相互猜疑，只有专心致志，精益求精，齐心协力，"简单可依赖"在团队每个人身上都体现的淋漓尽
> 致。带着做一名合格的百度人的决心，我迅速投入的运维工作中。伴随着导师一次次耐心的指导，我迅速成长为百度国际化产品运维的骨干，参与国际化项目，凭
> 借努力得到大家的认可，入职不久即被授予重托，负责国际化产品线的改造，大规模服务异地迁移等多个项目，并独立组建运维团队。入职两年的时间里，先后荣
> 获了最佳导师、季度之星、最佳团队等多个奖项。
> 我知道这只是一个开始，在百度，只要你有能力，没有透明的天花板。我时常想，努力，坚持，而后收获，还有比这更美好的青春么！

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

2011年8月3日星期三

Re: [PerlChina] Re: 百度运维部2011夏季招贤纳士群英会

这么诚恳的顶，帮顶

2011/8/2 op baidu <baiduop123@gmail.com>

顶起来顶起来！！！！！

On 7月26日, 下午8时07分, op baidu <baiduop...@gmail.com> wrote:

> 你是否已经觉得Coding不再有挑战？
> 你是否已经在日复一日变幻不定的开发需求中失去了激情？
> 那么，加入百度运维吧，它将带给你更宽广的技术视野，更强悍的架构能力。
>
> 同时，你也将面对数十亿流量的互联网产品，数万台的服务集群；迎接大规模服务部署、架构优化，海量数据分析，超大集群调度，数以万计在线服务实时监控等
> 领域中前所未有的挑战。
>
> 作为一名百度运维工程师
> 你将亲手调整系统架构和内部运行逻辑，让它精确管理和从容协调每个任务的执行;
> 你将亲手优化网络存储架构，使海量数据的传输、存储与访问也变得轻而易举;
> 你将亲手设计高性能数据库集群，让每条记录都能快速、准确的记录与索引
> 你将亲手规划分布式与虚拟化应用，为计算效率、运营效率的不断提高做出贡献。
>
> 不用再犹豫，快来参加8月13日 "百度运维部2011夏季招贤纳士群英会"
> 投简历、笔试、面试，1天搞定
> 无论你现在是运维、研发、测试或其他，只要你行，Offer当天发放。
> 职位详情，请访问：http://hr.baidu.com/static/opzhaopin.html
>
> 百度运维达人秀
>
> 宋同学（原某国企研发工程师）
> 项目负责人
> 部门：基础平台运维组
> 2010年6月入职
>
> 大家好，我是武汉人，从武汉大学信息安全专业毕业后，在某国家事业单位从事研发工作，并成为项目负责人，工作两年后，实在是厌倦了事业单位的压抑与闲
> 散，毅然决然的跳槽来到BAIDU，希望开始"走直线"。
> 在BAIDU的一年多时间里，我真正体会到之前无法想象的激情与挑战。进入了基础平台运维小组这个"简单可依赖"的团队，在导师的全身心的指导下，入职
> 后的第一个季度独立负责了一个完整产品的运维工作，并荣获"最佳新人奖"；接下来的两个季度，逐步开始参与到更多重量级产品的运维中，并成为三个产品线
> 的负责人。从中不但体会到互联网产品设计、运行的精妙，更为亿万网民带来百分百可依赖的服务。我并在2011年上半年近乎100%完成核心KPI要
> 求，荣获百度技术部大奖――季度之星。
> 来了BAIDU，发现工作是为了成为对同事、对用户"简单可依赖"的人，也发现自己真的开始"走直线"！
>
> 贾同学（原某软件公司研发工程师）
> 现任：项目经理
> 部门：搜索运维部离线集群组
> 2009年6月入职
>
> 大家好！2009年对我来说是人生出现转折的一年，因为那一年，我告别研发，加入了百度的运维大家庭，没有别的原因，只想自己活得更精彩！
> 入职后的我，被百度的文化震撼了，这里没有责任推诿，没有相互猜疑，只有专心致志，精益求精，齐心协力，"简单可依赖"在团队每个人身上都体现的淋漓尽
> 致。带着做一名合格的百度人的决心，我迅速投入的运维工作中。伴随着导师一次次耐心的指导，我迅速成长为百度国际化产品运维的骨干，参与国际化项目，凭
> 借努力得到大家的认可，入职不久即被授予重托，负责国际化产品线的改造，大规模服务异地迁移等多个项目，并独立组建运维团队。入职两年的时间里，先后荣
> 获了最佳导师、季度之星、最佳团队等多个奖项。
> 我知道这只是一个开始，在百度，只要你有能力，没有透明的天花板。我时常想，努力，坚持，而后收获，还有比这更美好的青春么！

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

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

Re: [PerlChina] File::System的使用

>Object 模块是在开发基于 File::System 的子模块时用的。例如通过看 Real 的
源码，它就是继承了 Object。所以使用 File::System->new 时，现在可用的子模块有 Real, Table 等。

谢谢，我的问题好像解决了。

use strict;

use warnings;

use File::System;

use base qw( File::System::Object );

my $obj = File::System->new("Real");

my $root = $obj->root;

my $value = $obj->get_property("object_type");

die $@ if($@);

小结一下，File::System->new的时候会返回Object, 然后对这个Object调用各种方法就可以了。

谢谢各位。

2011/8/3 Qiang (James) <shijialee@gmail.com>

On 08/03/2011 02:06 PM, Phillip Huang wrote:
> 谢谢James,
>
> 我之前尝试过你的建议,
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use File::System;
> use base qw( File::System::Object );
>
> my $root = File::System->new("Object", root=> '/tmp');
>
>

> phillip@athens:/tmp$ perl 1.pl <http://1.pl>

> Can't locate object method "new" via package "File::System::Object" at

> 1.pl <http://1.pl> line 8
>
> 上面的Object换成Real是可以的。Object.pm中也并没有new这个方法。
>
>

大致看了一下 File::System 的设计
http://search.cpan.org/~hanenkamp/File-System-1.16/

File::System::Object Abstract class that every file system module
builds upon

Object 模块是在开发基于 File::System 的子模块时用的。例如通过看 Real 的
源码，它就是继承了 Object。

所以使用 File::System->new 时，现在可用的子模块有 Real, Table 等。

Qiang

>
>
>
> 2011/8/3 Qiang (James) <shijialee@gmail.com <mailto:shijialee@gmail.com>>

>
> 文档和 test 文件你应该多看几遍。
>
> File::System 里的文档里提到了
>
> my $root = File::System->new("Real", root => '/var/chroot/foo');
>
> 我的理解是你可以把 Real 替换为 'Object'，来调用 File::System::Object，这
> 里调用的是 File::System::Real. File::System 的工作就是一个主的
> Factory，通过它可以调用其他分工厂。所以上面的例子就是调用 Real 分厂里的
> new 方法，并把其他变量(root => ...)传递过去。
>
> 看这个模块很久没有更新，2005 3月出来一直更新到 12 月不知道是否靠谱。
>
> Perl 本身就自带很多操作系统的函数和一些模块，建议还是使用这些成熟的。而
> 且一般的骆驼书里都会对这些作些介绍。
>
> Qiang
>
> On 08/03/2011 01:43 PM, Phillip Huang wrote:
> > >my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明
> 的话你
> > 的obj是个字符串吧，并不是个对象
> > 我真是不知道怎样去new一个File::System::Object。
> >
> > 不过我模仿了.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法:
> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > use base qw( File::System::Object );
> >
> > my $obj = 'File::System::Object';
> >
> > my @files = qw/
> > a ab abc abcd
> > b bc bcd
> > c cd
> > d
> > .a .ab .abc .abcd
> > .b .bc .bcd
> > .c .cd
> > .d
> > /;
> >
> > my @match_path = $obj->match_glob('a', @files);
> >
> > print $_ foreach @match_path;
> >
> >

> > phillip@athens:/tmp$ perl 1.pl <http://1.pl> <http://1.pl>

> > a
> >
> > 从上面看，是调用了File::System::Object的match_glob方法。
> >
> >
> >
> > 2011/8/3 金玉玮 <aujade2009@gmail.com

> <mailto:aujade2009@gmail.com> <mailto:aujade2009@gmail.com

> <mailto:aujade2009@gmail.com>>>
> >
> > my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话
> > 你的obj是个字符串吧，并不是个对象
> >
> > 在 2011年8月3日下午1:07，Phillip Huang <phillip.hwong@gmail.com
> <mailto:phillip.hwong@gmail.com>
> > <mailto:phillip.hwong@gmail.com
> <mailto:phillip.hwong@gmail.com>>>写道：
> >
> > 我参考.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法。
> >
> >
> >
> > 2011/8/3 Robin Lee <robinlee.sysu@gmail.com
> <mailto:robinlee.sysu@gmail.com>

> > <mailto:robinlee.sysu@gmail.com <mailto:robinlee.sysu@gmail.com>>>

> >
> > 对象好像都没创建
> >
> > 2011/8/3 Phillip Huang <phillip.hwong@gmail.com
> <mailto:phillip.hwong@gmail.com>

> > <mailto:phillip.hwong@gmail.com <mailto:phillip.hwong@gmail.com>>>:

> > > Hi 各位，
> > > 本人最近在尝试用Perl写一个文件管理脚本，想使用
> > File::System模块。可是按照CPAN的文档(和File::System::Object
> > 的)，我始终无法执行以下操作，如：
> > > #!/usr/bin/perl use strict; use warnings; use
> > File::System::Object; my $obj
> > > = 'File::System::Object'; my $file = $obj->root;

> > root@athens:/tmp# perl 1.pl <http://1.pl> <http://1.pl>

> > > Can't locate object method "root" via package

> > "File::System::Object" at 1.pl <http://1.pl> <http://1.pl>
> > > line 10.
> > > 我查看了object.pm <http://object.pm> <http://object.pm>,

> > > 并没有找到root这个方法。请各位高手帮我看看，或者举个例解
> > 释一些File::System和File::System::Object的简单用法。
> > > 先谢谢。
> > > Phillip
> > >

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。

要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 百度2011夏季招贤纳士群英会

这个和google每年的竞赛不是一样么，前几名的人可以直接进入google，

2011/8/3 op baidu <baiduop123@gmail.com>

你是否已经觉得Coding不再有挑战？
你是否已经在日复一日变幻不定的开发需求中失去了激情？
那么，加入百度运维吧，它将带给你更宽广的技术视野，更强悍的架构能力。

同时，你也将面对数十亿流量的互联网产品，数万台的服务集群；迎接大规模服务部署、架构优化，海量数据分析，超大集群调度，数以万计在线服务实时监控等
领域中前所未有的挑战。

作为一名百度运维工程师
你将亲手调整系统架构和内部运行逻辑，让它精确管理和从容协调每个任务的执行;
你将亲手优化网络存储架构，使海量数据的传输、存储与访问也变得轻而易举;
你将亲手设计高性能数据库集群，让每条记录都能快速、准确的记录与索引
你将亲手规划分布式与虚拟化应用，为计算效率、运营效率的不断提高做出贡献。

不用再犹豫，快来参加8月13日 “百度运维部2011夏季招贤纳士群英会”
投简历、笔试、面试，1天搞定
无论你现在是运维、研发、测试或其他，只要你行，Offer当天发放。
请将简历邮件发送到 op-job@baidu.com
职位详情，请访问：http://hr.baidu.com/static/opzhaopin.html

百度运维达人秀

宋同学（原某国企研发工程师）
项目负责人
部门：基础平台运维组
2010年6月入职

大家好，我是武汉人，从武汉大学信息安全专业毕业后，在某国家事业单位从事研发工作，并成为项目负责人，工作两年后，实在是厌倦了事业单位的压抑与闲
散，毅然决然的跳槽来到BAIDU，希望开始“走直线”。
在BAIDU的一年多时间里，我真正体会到之前无法想象的激情与挑战。进入了基础平台运维小组这个“简单可依赖”的团队，在导师的全身心的指导下，入职
后的第一个季度独立负责了一个完整产品的运维工作，并荣获“最佳新人奖”；接下来的两个季度，逐步开始参与到更多重量级产品的运维中，并成为三个产品线
的负责人。从中不但体会到互联网产品设计、运行的精妙，更为亿万网民带来百分百可依赖的服务。我并在2011年上半年近乎100%完成核心KPI要
求，荣获百度技术部大奖——季度之星。
来了BAIDU，发现工作是为了成为对同事、对用户“简单可依赖”的人，也发现自己真的开始“走直线”！

贾同学（原某软件公司研发工程师）
现任：项目经理
部门：搜索运维部离线集群组
2009年6月入职

大家好！2009年对我来说是人生出现转折的一年，因为那一年，我告别研发，加入了百度的运维大家庭，没有别的原因，只想自己活得更精彩！
入职后的我，被百度的文化震撼了，这里没有责任推诿，没有相互猜疑，只有专心致志，精益求精，齐心协力，“简单可依赖”在团队每个人身上都体现的淋漓尽
致。带着做一名合格的百度人的决心，我迅速投入的运维工作中。伴随着导师一次次耐心的指导，我迅速成长为百度国际化产品运维的骨干，参与国际化项目，凭
借努力得到大家的认可，入职不久即被授予重托，负责国际化产品线的改造，大规模服务异地迁移等多个项目，并独立组建运维团队。入职两年的时间里，先后荣
获了最佳导师、季度之星、最佳团队等多个奖项。
我知道这只是一个开始，在百度，只要你有能力，没有透明的天花板。我时常想，努力，坚持，而后收获，还有比这更美好的青春么！

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

--
Yours Sincerely
Zeng Hong

[PerlChina] 百度2011夏季招贤纳士群英会

你是否已经觉得Coding不再有挑战？
你是否已经在日复一日变幻不定的开发需求中失去了激情？
那么，加入百度运维吧，它将带给你更宽广的技术视野，更强悍的架构能力。

同时，你也将面对数十亿流量的互联网产品，数万台的服务集群；迎接大规模服务部署、架构优化，海量数据分析，超大集群调度，数以万计在线服务实时监控等
领域中前所未有的挑战。

作为一名百度运维工程师
你将亲手调整系统架构和内部运行逻辑，让它精确管理和从容协调每个任务的执行;
你将亲手优化网络存储架构，使海量数据的传输、存储与访问也变得轻而易举;
你将亲手设计高性能数据库集群，让每条记录都能快速、准确的记录与索引
你将亲手规划分布式与虚拟化应用，为计算效率、运营效率的不断提高做出贡献。

不用再犹豫，快来参加8月13日 "百度运维部2011夏季招贤纳士群英会"
投简历、笔试、面试，1天搞定
无论你现在是运维、研发、测试或其他，只要你行，Offer当天发放。
请将简历邮件发送到 op-job@baidu.com
职位详情，请访问：http://hr.baidu.com/static/opzhaopin.html

百度运维达人秀

宋同学（原某国企研发工程师）
项目负责人
部门：基础平台运维组
2010年6月入职

大家好，我是武汉人，从武汉大学信息安全专业毕业后，在某国家事业单位从事研发工作，并成为项目负责人，工作两年后，实在是厌倦了事业单位的压抑与闲
散，毅然决然的跳槽来到BAIDU，希望开始"走直线"。
在BAIDU的一年多时间里，我真正体会到之前无法想象的激情与挑战。进入了基础平台运维小组这个"简单可依赖"的团队，在导师的全身心的指导下，入职
后的第一个季度独立负责了一个完整产品的运维工作，并荣获"最佳新人奖"；接下来的两个季度，逐步开始参与到更多重量级产品的运维中，并成为三个产品线
的负责人。从中不但体会到互联网产品设计、运行的精妙，更为亿万网民带来百分百可依赖的服务。我并在2011年上半年近乎100%完成核心KPI要
求，荣获百度技术部大奖――季度之星。
来了BAIDU，发现工作是为了成为对同事、对用户"简单可依赖"的人，也发现自己真的开始"走直线"！

贾同学（原某软件公司研发工程师）
现任：项目经理
部门：搜索运维部离线集群组
2009年6月入职

大家好！2009年对我来说是人生出现转折的一年，因为那一年，我告别研发，加入了百度的运维大家庭，没有别的原因，只想自己活得更精彩！
入职后的我，被百度的文化震撼了，这里没有责任推诿，没有相互猜疑，只有专心致志，精益求精，齐心协力，"简单可依赖"在团队每个人身上都体现的淋漓尽
致。带着做一名合格的百度人的决心，我迅速投入的运维工作中。伴随着导师一次次耐心的指导，我迅速成长为百度国际化产品运维的骨干，参与国际化项目，凭
借努力得到大家的认可，入职不久即被授予重托，负责国际化产品线的改造，大规模服务异地迁移等多个项目，并独立组建运维团队。入职两年的时间里，先后荣
获了最佳导师、季度之星、最佳团队等多个奖项。
我知道这只是一个开始，在百度，只要你有能力，没有透明的天花板。我时常想，努力，坚持，而后收获，还有比这更美好的青春么！

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

2011年8月2日星期二

Re: [PerlChina] File::System的使用

On 08/03/2011 02:06 PM, Phillip Huang wrote:
> 谢谢James,
>
> 我之前尝试过你的建议,
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use File::System;
> use base qw( File::System::Object );
>
> my $root = File::System->new("Object", root=> '/tmp');
>
>
> phillip@athens:/tmp$ perl 1.pl <http://1.pl>
> Can't locate object method "new" via package "File::System::Object" at
> 1.pl <http://1.pl> line 8
>
> 上面的Object换成Real是可以的。Object.pm中也并没有new这个方法。
>
>

大致看了一下 File::System 的设计
http://search.cpan.org/~hanenkamp/File-System-1.16/

File::System::Object Abstract class that every file system module
builds upon

Object 模块是在开发基于 File::System 的子模块时用的。例如通过看 Real 的
源码，它就是继承了 Object。

所以使用 File::System->new 时，现在可用的子模块有 Real, Table 等。

Qiang

>
>
>
> 2011/8/3 Qiang (James) <shijialee@gmail.com <mailto:shijialee@gmail.com>>
>
> 文档和 test 文件你应该多看几遍。
>
> File::System 里的文档里提到了
>
> my $root = File::System->new("Real", root => '/var/chroot/foo');
>
> 我的理解是你可以把 Real 替换为 'Object'，来调用 File::System::Object，这
> 里调用的是 File::System::Real. File::System 的工作就是一个主的
> Factory，通过它可以调用其他分工厂。所以上面的例子就是调用 Real 分厂里的
> new 方法，并把其他变量(root => ...)传递过去。
>
> 看这个模块很久没有更新，2005 3月出来一直更新到 12 月不知道是否靠谱。
>
> Perl 本身就自带很多操作系统的函数和一些模块，建议还是使用这些成熟的。而
> 且一般的骆驼书里都会对这些作些介绍。
>
> Qiang
>
> On 08/03/2011 01:43 PM, Phillip Huang wrote:
> > >my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明
> 的话你
> > 的obj是个字符串吧，并不是个对象
> > 我真是不知道怎样去new一个File::System::Object。
> >
> > 不过我模仿了.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法:
> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > use base qw( File::System::Object );
> >
> > my $obj = 'File::System::Object';
> >
> > my @files = qw/
> > a ab abc abcd
> > b bc bcd
> > c cd
> > d
> > .a .ab .abc .abcd
> > .b .bc .bcd
> > .c .cd
> > .d
> > /;
> >
> > my @match_path = $obj->match_glob('a', @files);
> >
> > print $_ foreach @match_path;
> >
> >
> > phillip@athens:/tmp$ perl 1.pl <http://1.pl> <http://1.pl>
> > a
> >
> > 从上面看，是调用了File::System::Object的match_glob方法。
> >
> >
> >
> > 2011/8/3 金玉玮 <aujade2009@gmail.com
> <mailto:aujade2009@gmail.com> <mailto:aujade2009@gmail.com
> <mailto:aujade2009@gmail.com>>>
> >
> > my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话
> > 你的obj是个字符串吧，并不是个对象
> >
> > 在 2011年8月3日下午1:07，Phillip Huang <phillip.hwong@gmail.com
> <mailto:phillip.hwong@gmail.com>
> > <mailto:phillip.hwong@gmail.com
> <mailto:phillip.hwong@gmail.com>>>写道：
> >
> > 我参考.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法。
> >
> >
> >
> > 2011/8/3 Robin Lee <robinlee.sysu@gmail.com
> <mailto:robinlee.sysu@gmail.com>
> > <mailto:robinlee.sysu@gmail.com <mailto:robinlee.sysu@gmail.com>>>
> >
> > 对象好像都没创建
> >
> > 2011/8/3 Phillip Huang <phillip.hwong@gmail.com
> <mailto:phillip.hwong@gmail.com>
> > <mailto:phillip.hwong@gmail.com <mailto:phillip.hwong@gmail.com>>>:
> > > Hi 各位，
> > > 本人最近在尝试用Perl写一个文件管理脚本，想使用
> > File::System模块。可是按照CPAN的文档(和File::System::Object
> > 的)，我始终无法执行以下操作，如：
> > > #!/usr/bin/perl use strict; use warnings; use
> > File::System::Object; my $obj
> > > = 'File::System::Object'; my $file = $obj->root;
> > root@athens:/tmp# perl 1.pl <http://1.pl> <http://1.pl>
> > > Can't locate object method "root" via package
> > "File::System::Object" at 1.pl <http://1.pl> <http://1.pl>
> > > line 10.
> > > 我查看了object.pm <http://object.pm> <http://object.pm>,
> > > 并没有找到root这个方法。请各位高手帮我看看，或者举个例解
> > 释一些File::System和File::System::Object的简单用法。
> > > 先谢谢。
> > > Phillip
> > >

Re: [PerlChina] File::System的使用

谢谢James,

我之前尝试过你的建议,

#!/usr/bin/perl

use strict;

use warnings;

use File::System;

use base qw( File::System::Object );

my $root = File::System->new("Object", root=> '/tmp');

phillip@athens:/tmp$ perl 1.pl

Can't locate object method "new" via package "File::System::Object" at 1.pl line 8

上面的Object换成Real是可以的。Object.pm中也并没有new这个方法。

2011/8/3 Qiang (James) <shijialee@gmail.com>

文档和 test 文件你应该多看几遍。

File::System 里的文档里提到了

my $root = File::System->new("Real", root => '/var/chroot/foo');

我的理解是你可以把 Real 替换为 'Object'，来调用 File::System::Object，这
里调用的是 File::System::Real. File::System 的工作就是一个主的
Factory，通过它可以调用其他分工厂。所以上面的例子就是调用 Real 分厂里的
new 方法，并把其他变量(root => ...)传递过去。

看这个模块很久没有更新，2005 3月出来一直更新到 12 月不知道是否靠谱。

Perl 本身就自带很多操作系统的函数和一些模块，建议还是使用这些成熟的。而
且一般的骆驼书里都会对这些作些介绍。

Qiang

On 08/03/2011 01:43 PM, Phillip Huang wrote:
> >my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话你
> 的obj是个字符串吧，并不是个对象
> 我真是不知道怎样去new一个File::System::Object。
>
> 不过我模仿了.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法:
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use base qw( File::System::Object );
>
> my $obj = 'File::System::Object';
>
> my @files = qw/
> a ab abc abcd
> b bc bcd
> c cd
> d
> .a .ab .abc .abcd
> .b .bc .bcd
> .c .cd
> .d
> /;
>
> my @match_path = $obj->match_glob('a', @files);
>
> print $_ foreach @match_path;
>
>

> phillip@athens:/tmp$ perl 1.pl <http://1.pl>

> a
>
> 从上面看，是调用了File::System::Object的match_glob方法。
>
>
>

> 2011/8/3 金玉玮 <aujade2009@gmail.com <mailto:aujade2009@gmail.com>>

>
> my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话
> 你的obj是个字符串吧，并不是个对象
>
> 在 2011年8月3日下午1:07，Phillip Huang <phillip.hwong@gmail.com

> <mailto:phillip.hwong@gmail.com>>写道：

>
> 我参考.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法。
>
>
>
> 2011/8/3 Robin Lee <robinlee.sysu@gmail.com

> <mailto:robinlee.sysu@gmail.com>>

>
> 对象好像都没创建
>
> 2011/8/3 Phillip Huang <phillip.hwong@gmail.com

> <mailto:phillip.hwong@gmail.com>>:

> > Hi 各位，
> > 本人最近在尝试用Perl写一个文件管理脚本，想使用
> File::System模块。可是按照CPAN的文档(和File::System::Object
> 的)，我始终无法执行以下操作，如：
> > #!/usr/bin/perl use strict; use warnings; use
> File::System::Object; my $obj
> > = 'File::System::Object'; my $file = $obj->root;

> root@athens:/tmp# perl 1.pl <http://1.pl>

> > Can't locate object method "root" via package

> "File::System::Object" at 1.pl <http://1.pl>
> > line 10.
> > 我查看了object.pm <http://object.pm>,
> > 并没有找到root这个方法。请各位高手帮我看看，或者举个例解

> 释一些File::System和File::System::Object的简单用法。
> > 先谢谢。
> > Phillip
> >
> > --
> > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina
> Mongers 讨论组”论坛。
> > 要向此网上论坛发帖，请发送电子邮件至

> perlchina@googlegroups.com <mailto:perlchina@googlegroups.com>。

> > 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com

> <mailto:perlchina%2Bunsubscribe@googlegroups.com>。

> > 若有更多问题，请通过
> http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上
> 论坛。
> >
>
> --

> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina
> Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至

> perlchina@googlegroups.com <mailto:perlchina@googlegroups.com>。

> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com

> <mailto:perlchina%2Bunsubscribe@googlegroups.com>。

> 若有更多问题，请通过
> http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上
> 论坛。
>
>
> --

> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers
> 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com

> <mailto:perlchina@googlegroups.com>。

> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com

> <mailto:perlchina%2Bunsubscribe@googlegroups.com>。

> 若有更多问题，请通过
> http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论

> 组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com

> <mailto:perlchina@googlegroups.com>。

> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com

> <mailto:perlchina%2Bunsubscribe@googlegroups.com>。

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

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

Re: [PerlChina] File::System的使用

文档和 test 文件你应该多看几遍。

File::System 里的文档里提到了

my $root = File::System->new("Real", root => '/var/chroot/foo');

我的理解是你可以把 Real 替换为 'Object'，来调用 File::System::Object，这
里调用的是 File::System::Real. File::System 的工作就是一个主的
Factory，通过它可以调用其他分工厂。所以上面的例子就是调用 Real 分厂里的
new 方法，并把其他变量(root => ...)传递过去。

看这个模块很久没有更新，2005 3月出来一直更新到 12 月不知道是否靠谱。

Perl 本身就自带很多操作系统的函数和一些模块，建议还是使用这些成熟的。而
且一般的骆驼书里都会对这些作些介绍。

Qiang

On 08/03/2011 01:43 PM, Phillip Huang wrote:
> >my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话你
> 的obj是个字符串吧，并不是个对象
> 我真是不知道怎样去new一个File::System::Object。
>
> 不过我模仿了.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法:
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> use base qw( File::System::Object );
>
> my $obj = 'File::System::Object';
>
> my @files = qw/
> a ab abc abcd
> b bc bcd
> c cd
> d
> .a .ab .abc .abcd
> .b .bc .bcd
> .c .cd
> .d
> /;
>
> my @match_path = $obj->match_glob('a', @files);
>
> print $_ foreach @match_path;
>
>
> phillip@athens:/tmp$ perl 1.pl <http://1.pl>
> a
>
> 从上面看，是调用了File::System::Object的match_glob方法。
>
>
>
> 2011/8/3 金玉玮 <aujade2009@gmail.com <mailto:aujade2009@gmail.com>>
>
> my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话
> 你的obj是个字符串吧，并不是个对象
>
> 在 2011年8月3日下午1:07，Phillip Huang <phillip.hwong@gmail.com
> <mailto:phillip.hwong@gmail.com>>写道：
>
> 我参考.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法。
>
>
>
> 2011/8/3 Robin Lee <robinlee.sysu@gmail.com
> <mailto:robinlee.sysu@gmail.com>>
>
> 对象好像都没创建
>
> 2011/8/3 Phillip Huang <phillip.hwong@gmail.com
> <mailto:phillip.hwong@gmail.com>>:
> > Hi 各位，
> > 本人最近在尝试用Perl写一个文件管理脚本，想使用
> File::System模块。可是按照CPAN的文档(和File::System::Object
> 的)，我始终无法执行以下操作，如：
> > #!/usr/bin/perl use strict; use warnings; use
> File::System::Object; my $obj
> > = 'File::System::Object'; my $file = $obj->root;
> root@athens:/tmp# perl 1.pl <http://1.pl>
> > Can't locate object method "root" via package
> "File::System::Object" at 1.pl <http://1.pl>
> > line 10.
> > 我查看了object.pm <http://object.pm>,
> > 并没有找到root这个方法。请各位高手帮我看看，或者举个例解
> 释一些File::System和File::System::Object的简单用法。
> > 先谢谢。
> > Phillip
> >
> > --
> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina
> Mongers 讨论组"论坛。
> > 要向此网上论坛发帖，请发送电子邮件至
> perlchina@googlegroups.com <mailto:perlchina@googlegroups.com>。
> > 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com
> <mailto:perlchina%2Bunsubscribe@googlegroups.com>。
> > 若有更多问题，请通过
> http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上
> 论坛。
> >
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina
> Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至
> perlchina@googlegroups.com <mailto:perlchina@googlegroups.com>。
> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com
> <mailto:perlchina%2Bunsubscribe@googlegroups.com>。
> 若有更多问题，请通过
> http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上
> 论坛。
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers
> 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com
> <mailto:perlchina@googlegroups.com>。
> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com
> <mailto:perlchina%2Bunsubscribe@googlegroups.com>。
> 若有更多问题，请通过
> http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论
> 组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com
> <mailto:perlchina@googlegroups.com>。
> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com
> <mailto:perlchina%2Bunsubscribe@googlegroups.com>。
> 若有更多问题，请通过
> http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN
> 访问此网上论坛。

Re: [PerlChina] File::System的使用

>my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话你的obj是个字符串吧，并不是个对象

我真是不知道怎样去new一个File::System::Object。

不过我模仿了.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法:

#!/usr/bin/perl

use strict;

use warnings;

use base qw( File::System::Object );

my $obj = 'File::System::Object';

my @files = qw/

a ab abc abcd

b bc bcd

c cd

.a .ab .abc .abcd

.b .bc .bcd

.c .cd

my @match_path = $obj->match_glob('a', @files);

print $_ foreach @match_path;

phillip@athens:/tmp$ perl 1.pl

从上面看，是调用了File::System::Object的match_glob方法。

2011/8/3 金玉玮 <aujade2009@gmail.com>

my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话你的obj是个字符串吧，并不是个对象

在 2011年8月3日下午1:07，Phillip Huang <phillip.hwong@gmail.com>写道：

我参考.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法。

2011/8/3 Robin Lee <robinlee.sysu@gmail.com>

对象好像都没创建

2011/8/3 Phillip Huang <phillip.hwong@gmail.com>:

> Hi 各位，
> 本人最近在尝试用Perl写一个文件管理脚本，想使用File::System模块。可是按照CPAN的文档(和File::System::Object的)，我始终无法执行以下操作，如：
> #!/usr/bin/perl use strict; use warnings; use File::System::Object; my $obj
> = 'File::System::Object'; my $file = $obj->root; root@athens:/tmp# perl 1.pl
> Can't locate object method "root" via package "File::System::Object" at 1.pl
> line 10.
> 我查看了object.pm,
> 并没有找到root这个方法。请各位高手帮我看看，或者举个例解释一些File::System和File::System::Object的简单用法。
> 先谢谢。
> Phillip
>

> --

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

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

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

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

Re: [PerlChina] File::System的使用

my $obj = 'File::System::Object'; 这行不应该加单引号吧。这样声明的话你的obj是个字符串吧，并不是个对象

在 2011年8月3日下午1:07，Phillip Huang <phillip.hwong@gmail.com>写道：

我参考.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法。

2011/8/3 Robin Lee <robinlee.sysu@gmail.com>

对象好像都没创建

2011/8/3 Phillip Huang <phillip.hwong@gmail.com>:

> Hi 各位，
> 本人最近在尝试用Perl写一个文件管理脚本，想使用File::System模块。可是按照CPAN的文档(和File::System::Object的)，我始终无法执行以下操作，如：
> #!/usr/bin/perl use strict; use warnings; use File::System::Object; my $obj
> = 'File::System::Object'; my $file = $obj->root; root@athens:/tmp# perl 1.pl
> Can't locate object method "root" via package "File::System::Object" at 1.pl
> line 10.
> 我查看了object.pm,
> 并没有找到root这个方法。请各位高手帮我看看，或者举个例解释一些File::System和File::System::Object的简单用法。
> 先谢谢。
> Phillip
>

> --

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

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

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

Re: [PerlChina] File::System的使用

我参考.cpan/build/File-System-1.16-FnCixg/t/02_glob.t的写法。

2011/8/3 Robin Lee <robinlee.sysu@gmail.com>

对象好像都没创建

2011/8/3 Phillip Huang <phillip.hwong@gmail.com>:

> Hi 各位，
> 本人最近在尝试用Perl写一个文件管理脚本，想使用File::System模块。可是按照CPAN的文档(和File::System::Object的)，我始终无法执行以下操作，如：
> #!/usr/bin/perl use strict; use warnings; use File::System::Object; my $obj
> = 'File::System::Object'; my $file = $obj->root; root@athens:/tmp# perl 1.pl
> Can't locate object method "root" via package "File::System::Object" at 1.pl
> line 10.
> 我查看了object.pm,
> 并没有找到root这个方法。请各位高手帮我看看，或者举个例解释一些File::System和File::System::Object的简单用法。
> 先谢谢。
> Phillip
>

> --

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

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

Re: [PerlChina] File::System的使用

对象好像都没创建

2011/8/3 Phillip Huang <phillip.hwong@gmail.com>:
> Hi 各位，
> 本人最近在尝试用Perl写一个文件管理脚本，想使用File::System模块。可是按照CPAN的文档(和File::System::Object的)，我始终无法执行以下操作，如：
> #!/usr/bin/perl use strict; use warnings; use File::System::Object; my $obj
> = 'File::System::Object'; my $file = $obj->root; root@athens:/tmp# perl 1.pl
> Can't locate object method "root" via package "File::System::Object" at 1.pl
> line 10.
> 我查看了object.pm,
> 并没有找到root这个方法。请各位高手帮我看看，或者举个例解释一些File::System和File::System::Object的简单用法。
> 先谢谢。
> Phillip
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

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

Re: [PerlChina] File::System的使用

没有使用过这个模块，但是我觉得，如果你做管理工具，还是用 perl自带的模块比较好，

一方面兼容性好，都经过检验；第二方面，不需要安装那么多的模块。

http://perldoc.perl.org/index-modules-F.html

这个里面不少File系列的模块，找找看呢

xunxin

2011/8/3 Phillip Huang <phillip.hwong@gmail.com>

Hi 各位，

本人最近在尝试用Perl写一个文件管理脚本，想使用File::System模块。可是按照CPAN的文档(和File::System::Object的)，我始终无法执行以下操作，如：

#!/usr/bin/perl use strict; use warnings; use File::System::Object; my $obj = 'File::System::Object'; my $file = $obj->root; root@athens:/tmp# perl 1.pl Can't locate object method "root" via package "File::System::Object" at 1.pl line 10.

我查看了object.pm, 并没有找到root这个方法。请各位高手帮我看看，或者举个例解释一些File::System和File::System::Object的简单用法。

先谢谢。

Phillip

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

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

[PerlChina] File::System的使用

Hi 各位，

本人最近在尝试用Perl写一个文件管理脚本，想使用File::System模块。可是按照CPAN的文档(和File::System::Object的)，我始终无法执行以下操作，如：

#!/usr/bin/perl use strict; use warnings; use File::System::Object; my $obj = 'File::System::Object'; my $file = $obj->root; root@athens:/tmp# perl 1.pl Can't locate object method "root" via package "File::System::Object" at 1.pl line 10.

我查看了object.pm, 并没有找到root这个方法。请各位高手帮我看看，或者举个例解释一些File::System和File::System::Object的简单用法。

先谢谢。

Phillip

Re: [PerlChina] grep -R 效率

学习了

在 2011年8月2日下午9:25，夏凯 <walkerxk@gmail.com>写道：

如果只要删除当前目录的文件，不要删除子目录下的东西：find -type f -maxdepth 1
-delete，如果要删除全部，就用find -delete，对大量文件操作最好不要用*否则shell把*解析开(rm *变成rm a
b......)，会变成很长的命令，这样会产生命令长度超长的报错。
2011/8/2 Felix New <moxnet@gmail.com>:

> good case.
> 也经常这么用,比如删除某个目录下的海量文件(rm -f *搞不定这个任务). find工具的效率还是非常高的.

--

contact me:
MSN: walkerxk@gmail.com
GTALK: walkerxk@gmail.com

--

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

[PerlChina] Re: 百度运维部2011夏季招贤纳士群英会

顶起来顶起来！！！！！

On 7月26日, 下午8时07分, op baidu <baiduop...@gmail.com> wrote:
> 你是否已经觉得Coding不再有挑战？
> 你是否已经在日复一日变幻不定的开发需求中失去了激情？
> 那么，加入百度运维吧，它将带给你更宽广的技术视野，更强悍的架构能力。
>
> 同时，你也将面对数十亿流量的互联网产品，数万台的服务集群；迎接大规模服务部署、架构优化，海量数据分析，超大集群调度，数以万计在线服务实时监控等
> 领域中前所未有的挑战。
>
> 作为一名百度运维工程师
> 你将亲手调整系统架构和内部运行逻辑，让它精确管理和从容协调每个任务的执行;
> 你将亲手优化网络存储架构，使海量数据的传输、存储与访问也变得轻而易举;
> 你将亲手设计高性能数据库集群，让每条记录都能快速、准确的记录与索引
> 你将亲手规划分布式与虚拟化应用，为计算效率、运营效率的不断提高做出贡献。
>
> 不用再犹豫，快来参加8月13日 "百度运维部2011夏季招贤纳士群英会"
> 投简历、笔试、面试，1天搞定
> 无论你现在是运维、研发、测试或其他，只要你行，Offer当天发放。
> 职位详情，请访问：http://hr.baidu.com/static/opzhaopin.html
>
> 百度运维达人秀
>
> 宋同学（原某国企研发工程师）
> 项目负责人
> 部门：基础平台运维组
> 2010年6月入职
>
> 大家好，我是武汉人，从武汉大学信息安全专业毕业后，在某国家事业单位从事研发工作，并成为项目负责人，工作两年后，实在是厌倦了事业单位的压抑与闲
> 散，毅然决然的跳槽来到BAIDU，希望开始"走直线"。
> 在BAIDU的一年多时间里，我真正体会到之前无法想象的激情与挑战。进入了基础平台运维小组这个"简单可依赖"的团队，在导师的全身心的指导下，入职
> 后的第一个季度独立负责了一个完整产品的运维工作，并荣获"最佳新人奖"；接下来的两个季度，逐步开始参与到更多重量级产品的运维中，并成为三个产品线
> 的负责人。从中不但体会到互联网产品设计、运行的精妙，更为亿万网民带来百分百可依赖的服务。我并在2011年上半年近乎100%完成核心KPI要
> 求，荣获百度技术部大奖――季度之星。
> 来了BAIDU，发现工作是为了成为对同事、对用户"简单可依赖"的人，也发现自己真的开始"走直线"！
>
> 贾同学（原某软件公司研发工程师）
> 现任：项目经理
> 部门：搜索运维部离线集群组
> 2009年6月入职
>
> 大家好！2009年对我来说是人生出现转折的一年，因为那一年，我告别研发，加入了百度的运维大家庭，没有别的原因，只想自己活得更精彩！
> 入职后的我，被百度的文化震撼了，这里没有责任推诿，没有相互猜疑，只有专心致志，精益求精，齐心协力，"简单可依赖"在团队每个人身上都体现的淋漓尽
> 致。带着做一名合格的百度人的决心，我迅速投入的运维工作中。伴随着导师一次次耐心的指导，我迅速成长为百度国际化产品运维的骨干，参与国际化项目，凭
> 借努力得到大家的认可，入职不久即被授予重托，负责国际化产品线的改造，大规模服务异地迁移等多个项目，并独立组建运维团队。入职两年的时间里，先后荣
> 获了最佳导师、季度之星、最佳团队等多个奖项。
> 我知道这只是一个开始，在百度，只要你有能力，没有透明的天花板。我时常想，努力，坚持，而后收获，还有比这更美好的青春么！

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

Re: [PerlChina] grep -R 效率

如果只要删除当前目录的文件，不要删除子目录下的东西：find -type f -maxdepth 1
-delete，如果要删除全部，就用find -delete，对大量文件操作最好不要用*否则shell把*解析开(rm *变成rm a
b......)，会变成很长的命令，这样会产生命令长度超长的报错。
2011/8/2 Felix New <moxnet@gmail.com>:
> good case.
> 也经常这么用,比如删除某个目录下的海量文件(rm -f *搞不定这个任务). find工具的效率还是非常高的.
--
contact me:
MSN: walkerxk@gmail.com
GTALK: walkerxk@gmail.com

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

Re: [PerlChina] grep -R 效率

good case.

也经常这么用,比如删除某个目录下的海量文件(rm -f *搞不定这个任务). find工具的效率还是非常高的.

在 2011年8月2日下午6:19，Anthony WU <anthonywuy2k@gmail.com>写道：

可��成 find -type f -exec grep -R {} \;

-------- Original Message --------
Subject: Re: [PerlChina] grep -R 效率
From: 夏凯 <walkerxk@gmail.com>
To: perlchina@googlegroups.com
Date: 2/8/2011 13:40
> 建议使用find -type f|xargs grep，这样性能会好点，而且你可以限制一下搜索哪些文件。
> 2011/8/2 kevin_li <xiaohuidexinge@163.com>:
>> Hi,
>> 实在找不到去哪里问这个问题。。。尝试下这里有大牛能帮忙下不。。呵呵
>> 最近我们的环境机有个目录下放了大量的文件，然后这台机器上的 grep -R的运行效率直线下降，我搜索的路径里并没有包括那个有大量文件的目录，
>> 有谁能给解释下为什么会是这样，怎么能解决这个问题。把那些文件都删了不算。。。。。
>> 谢谢啦 :)

--

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

--
Best regards.
Felix New

Re: [PerlChina] grep -R 效率

可��成 find -type f -exec grep -R {} \;

-------- Original Message --------
Subject: Re: [PerlChina] grep -R 效率
From: 夏凯 <walkerxk@gmail.com>
To: perlchina@googlegroups.com
Date: 2/8/2011 13:40
> 建议使用find -type f|xargs grep，这样性能会好点，而且你可以限制一下搜索哪些文件。
> 2011/8/2 kevin_li <xiaohuidexinge@163.com>:
>> Hi,
>> 实在找不到去哪里问这个问题。。。尝试下这里有大牛能帮忙下不。。呵呵
>> 最近我们的环境机有个目录下放了大量的文件，然后这台机器上的 grep -R的运行效率直线下降，我搜索的路径里并没有包括那个有大量文件的目录，
>> 有谁能给解释下为什么会是这样，怎么能解决这个问题。把那些文件都删了不算。。。。。
>> 谢谢啦 :)

2011年8月1日星期一

Re:Re: [PerlChina] grep -R 效率

exclude 我尝试了，不成，可能是我用错了？再试试

在 2011-08-02 11:23:58，"Felix New" <moxnet@gmail.com> 写道：

还没打点, 手一哆嗦就出去了...

如果某目录下有大文件或有大量的小文件, 你可以使用到下面的参数, 只找你需要的,或去掉你不要的:

--include=PATTERN
Recurse in directories only searching file matching PATTERN.

--exclude=PATTERN
Recurse in directories skip file matching PATTERN.

在 2011年8月2日上午11:21，Felix New <moxnet@gmail.com>写道：

-R, -r, --recursive
Read all files under each directory, recursively; this is equivalent to the -d recurse option.

-r/-R选项是递归搜索, 查找你搜索的目录或子目录下的所有含有某个你要找的文件. 你搜索的目录或子目录下是否有大量的文件或大个头的文件? 如果是的话, 遍历起来会比较慢.

在 2011年8月2日上午11:07，kevin_li <xiaohuidexinge@163.com>写道：

Hi,
实在找不到去哪里问这个问题。。。尝试下这里有大牛能帮忙下不。。呵呵
最近我们的环境机有个目录下放了大量的文件，然后这台机器上的 grep -R的运行效率直线下降，我搜索的路径里并没有包括那个有大量文件的目录，
有谁能给解释下为什么会是这样，怎么能解决这个问题。把那些文件都删了不算。。。。。

谢谢啦 :)

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

--
Best regards.
Felix New

--
Best regards.
Felix New

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

Re:Re: [PerlChina] grep -R 效率

恩谢谢你的建议实在不行就这么改呵呵；）


在 2011-08-02 13:40:23，"夏凯" <walkerxk@gmail.com> 写道： >建议使用find -type f|xargs grep，这样性能会好点，而且你可以限制一下搜索哪些文件。 >2011/8/2 kevin_li <xiaohuidexinge@163.com>: >> Hi, >> 实在找不到去哪里问这个问题。。。 尝试下这里有大牛能帮忙下不。。 呵呵 >> 最近我们的环境机有个目录下放了大量的文件，然后这台机器上的 grep -R的运行效率直线下降，我搜索的路径里并没有包括那个有大量文件的目录， >> 有谁能给解释下为什么会是这样，怎么能解决这个问题。 把那些文件都删了不算。。。。。 >> 谢谢啦  :) >--  >contact me: >MSN: walkerxk@gmail.com >GTALK: walkerxk@gmail.com > >--  >您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 >要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。 >要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。 >若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >

Re: [PerlChina] Re: 请问谁有Google+的邀请，可否发个给我？

已加，不过最好加下我，上次我满了5000，所以我把很多没加我的都删了，现在又快满了，到时候没加我的话可能会被我删了。
2011/8/2 Matthew <hhs66317@gmail.com>:
> 同求google+
--
contact me:
MSN: walkerxk@gmail.com
GTALK: walkerxk@gmail.com

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

Re: [PerlChina] grep -R 效率

建议使用find -type f|xargs grep，这样性能会好点，而且你可以限制一下搜索哪些文件。
2011/8/2 kevin_li <xiaohuidexinge@163.com>:
> Hi,
> 实在找不到去哪里问这个问题。。。尝试下这里有大牛能帮忙下不。。呵呵
> 最近我们的环境机有个目录下放了大量的文件，然后这台机器上的 grep -R的运行效率直线下降，我搜索的路径里并没有包括那个有大量文件的目录，
> 有谁能给解释下为什么会是这样，怎么能解决这个问题。把那些文件都删了不算。。。。。
> 谢谢啦 :)
--
contact me:
MSN: walkerxk@gmail.com
GTALK: walkerxk@gmail.com

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

[PerlChina] Re: 请问谁有Google+的邀请，可否发个给我？

同求google+

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

Re: [PerlChina] grep -R 效率

还没打点, 手一哆嗦就出去了...

如果某目录下有大文件或有大量的小文件, 你可以使用到下面的参数, 只找你需要的,或去掉你不要的:

--include=PATTERN

Recurse in directories only searching file matching PATTERN.

--exclude=PATTERN

Recurse in directories skip file matching PATTERN.

在 2011年8月2日上午11:21，Felix New <moxnet@gmail.com>写道：

-R, -r, --recursive
Read all files under each directory, recursively; this is equivalent to the -d recurse option.

-r/-R选项是递归搜索, 查找你搜索的目录或子目录下的所有含有某个你要找的文件. 你搜索的目录或子目录下是否有大量的文件或大个头的文件? 如果是的话, 遍历起来会比较慢.

在 2011年8月2日上午11:07，kevin_li <xiaohuidexinge@163.com>写道：

Hi,
实在找不到去哪里问这个问题。。。尝试下这里有大牛能帮忙下不。。呵呵
最近我们的环境机有个目录下放了大量的文件，然后这台机器上的 grep -R的运行效率直线下降，我搜索的路径里并没有包括那个有大量文件的目录，
有谁能给解释下为什么会是这样，怎么能解决这个问题。把那些文件都删了不算。。。。。

谢谢啦 :)

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

--
Best regards.
Felix New

--
Best regards.
Felix New

Re: [PerlChina] grep -R 效率

-R, -r, --recursive

Read all files under each directory, recursively; this is equivalent to the -d recurse option.

-r/-R选项是递归搜索, 查找你搜索的目录或子目录下的所有含有某个你要找的文件. 你搜索的目录或子目录下是否有大量的文件或大个头的文件? 如果是的话, 遍历起来会比较慢.

在 2011年8月2日上午11:07，kevin_li <xiaohuidexinge@163.com>写道：

Hi,
实在找不到去哪里问这个问题。。。尝试下这里有大牛能帮忙下不。。呵呵
最近我们的环境机有个目录下放了大量的文件，然后这台机器上的 grep -R的运行效率直线下降，我搜索的路径里并没有包括那个有大量文件的目录，
有谁能给解释下为什么会是这样，怎么能解决这个问题。把那些文件都删了不算。。。。。

谢谢啦 :)

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