对cpan上的某个模块的constructor有疑问，请教

gaochong

perl学习中。

模块：  http://cpansearch.perl.org/src/BLOONIX/Sys-Statistics-Linux-0.59/lib/Sys/Statistics/Linux/DiskUsage.pm

new代码如下：
sub new {
    my $class = shift;
    my $opts  = ref($_[0]) ? shift : {@_};      -----A
    my %self = (
        cmd => {
            path => '/bin',
            df   => 'df -kP 2>/dev/null',
        }
    );

    foreach my $p (keys %{ $opts->{cmd} }) {    --B
    $self{cmd}{$p} = $opts->{cmd}->{$p};
    }

    return bless \%self, $class;
}

我的疑问在于：
A行、B行的目的何在？
是为了让用户指定cmd的path和df吗？

个人觉得，没有啥用处。

zhlong8

用来处理传入的参数的啊。

A：你可以传入一个 hashref 也可以在new中用 opt1 => v1, opt2 =>v2 …… 这种方式传入参数，Ａ就是这了判断你采用的哪种参数传入方法。

1. #A
   
2. 
   
3. PKG->new({opt1 => v1, opt2 => v2...}); #hashref
   
4. 
   
5. #或
   
6. PKG->new(opt1=>v1, opt2 => v2 ...);

复制代码

B：将$opt 中配置信息加入对象中[$opt 为 hashref]，即处理相应参数加到 cmd 对应的 hash 中

path df 这里是默认的，设定好了的。

gaochong

对B语句，哪个用户会指定 key是cmd,value是hash ref的hash 呀？

zhlong8

文档里面有第二种用法的例子啊

1.      Sys::Statistics::Linux::DiskUsage->new(
   
2.         cmd => {
   
3.             # This is the default
   
4.             path => '/bin',
   
5.             df   => 'df -kP 2>/dev/null',
   
6.         }
   
7.     );

复制代码

这里 cmd 不是 reference, 所以 $opt = {cmd => {...}}。 这里的 $opt 不就是个hashref， key 是 cmd 值是个 hashref ?