关于perl函数的几个问题

chenjintao_ii

-------------代码一----------------------------
$mesg = $ldap_master->start_tls(
              verify     => "$config{verify}",
             clientcert => "$config{clientcert}",
             clientkey  => "$config{clientkey}",
             cafile     => "$config{cafile}"
        );      
# 以上为start_tls调用的参数

-------------代码二，被代码一调用----------------------------
sub start_tls {
  my $ldap = shift;
  my $arg  = &_options;
  my $sock = $ldap->socket;       #问题一：$ldap 怎么就成一个“类”了？还能调用函数的？

  require IO::Socket::SSL;
  require Net::LDAP::Extension;
  my $mesg = $ldap->message('Net::LDAP::Extension' => $arg);  #问题二：message调用的是一个hash表么？

  return _error($ldap, $mesg, LDAP_OPERATIONS_ERROR, "TLS already started")
    if $sock->isa('IO::Socket::SSL');

  return _error($ldap, $mesg, LDAP_PARAM_ERROR, "StartTLS requires LDAPv3")
    if $ldap->version < 3;

  $mesg->encode(
    extendedReq => {
      requestName => LDAP_EXTENSION_START_TLS,
    }
  );

-------------代码三，被代码二调用----------------------------
sub message {  #问题三：这个函数在是什么作用？求具体的解释，特别是shift这里没看懂
  my $ldap = shift;
  shift->new($ldap, @_);
}


以上三段代码来自/usr/share/perl5/Net/LDAP.pm

flw

你连 shift 都看不懂，还是先看书吧。

兰花仙子

你问的都是一些基本的Perl与Perl OO概念性问题。
看看learning perl和immediate perl再看别人的源代码吧，尤其是LDAP这样著名的package。
BTW：本版的py斑竹是LDAP方面专家。

chenjintao_ii

好吧，shift是将参数向左移出一个并赋值给$ldap，但是shift->new这个是什么作用？

chenjintao_ii

我很需要ldap方面的专家T3T，在配置ldap的时候，总是出错。
在不使用tls的模式下能访问到ldap服务器，但是添加tls功能，系统总是报错：
Could not start_tls: unsupported extended operation
CAfile、clientcertfile、clientkeyfile都有。
跪求一份完整的，能成功配置ldaps的文档

zhlong8

chenjintao_ii 发表于 2011-12-19 13:51
好吧，shift是将参数向左移出一个并赋值给$ldap，但是shift->new这个是什么作用？

对 shift 的返回值调用 new 方法

my $tmp = shift @_;
$tmp->new;

哪个简洁？算种习惯用法了

chenjintao_ii

$ldap->message('Net::LDAP::Extension' => $arg);
这个只有一个参数啊，两次shift，哪来的数据啊？

zhlong8

chenjintao_ii 发表于 2011-12-19 14:08
$ldap->message('Net::LDAP::Extension' => $arg);
这个只有一个参数啊，两次shift，哪来的数据啊？

=> 相当于加强版的逗号，并不是创建 hash 的。创建 hash 只有通过 %hash, {a=>1,b=>2}（匿名hashref） 和 autovivification 三种方式创建，而且后两种都是引用