關(guān)于perl函數(shù)的幾個(gè)問題

chenjintao_ii

-------------代碼一----------------------------
$mesg = $ldap_master->start_tls(
              verify     => "$config{verify}",
             clientcert => "$config{clientcert}",
             clientkey  => "$config{clientkey}",
             cafile     => "$config{cafile}"
        );      
# 以上為start_tls調(diào)用的參數(shù)

-------------代碼二，被代碼一調(diào)用----------------------------
sub start_tls {
  my $ldap = shift;
  my $arg  = &_options;
  my $sock = $ldap->socket;       #問題一：$ldap 怎么就成一個(gè)“類”了？還能調(diào)用函數(shù)的？

  require IO::Socket::SSL;
  require Net::LDAP::Extension;
  my $mesg = $ldap->message('Net::LDAP::Extension' => $arg);  #問題二：message調(diào)用的是一個(gè)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,
    }
  );

-------------代碼三，被代碼二調(diào)用----------------------------
sub message {  #問題三：這個(gè)函數(shù)在是什么作用？求具體的解釋，特別是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是將參數(shù)向左移出一個(gè)并賦值給$ldap，但是shift->new這個(gè)是什么作用？

chenjintao_ii

我很需要ldap方面的專家T3T，在配置ldap的時(shí)候，總是出錯(cuò)。
在不使用tls的模式下能訪問到ldap服務(wù)器，但是添加tls功能，系統(tǒng)總是報(bào)錯(cuò)：
Could not start_tls: unsupported extended operation
CAfile、clientcertfile、clientkeyfile都有。
跪求一份完整的，能成功配置ldaps的文檔

zhlong8

chenjintao_ii 發(fā)表于 2011-12-19 13:51
好吧，shift是將參數(shù)向左移出一個(gè)并賦值給$ldap，但是shift->new這個(gè)是什么作用？

對(duì) shift 的返回值調(diào)用 new 方法

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

哪個(gè)簡潔？算種習(xí)慣用法了

chenjintao_ii

$ldap->message('Net::LDAP::Extension' => $arg);
這個(gè)只有一個(gè)參數(shù)啊，兩次shift，哪來的數(shù)據(jù)��？

zhlong8

chenjintao_ii 發(fā)表于 2011-12-19 14:08
$ldap->message('Net::LDAP::Extension' => $arg);
這個(gè)只有一個(gè)參數(shù)啊，兩次shift，哪來的數(shù)據(jù)啊？

=> 相當(dāng)于加強(qiáng)版的逗號(hào)，并不是創(chuàng)建 hash 的。創(chuàng)建 hash 只有通過 %hash, {a=>1,b=>2}（匿名hashref） 和 autovivification 三種方式創(chuàng)建，而且后兩種都是引用