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

    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

a

从上面看，是调用了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 访问此网上论坛。

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