![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
wangfang_0728
这个作者很懒,什么都没留下…
展开
-
ldap login (cgi)
print "/n"; my $user=param(user); my $password=param(password); my $ldapserver="ldap_server"; my $ldap = Net::LDAP->new($ldapserver); my $search_result = $ldap->search(base=>"O=COM",filter=>"(原创 2009-03-02 19:09:00 · 757 阅读 · 0 评论 -
perl 访问 url
#!/bin/perl -wuse strict;use LWP::UserAgent;my $hostname = shift;my $controller = shift;my $action = shift;print "hostname=/n$hostname/n";print "controller=/n$controller/n";print "action=/n$action/n";原创 2008-12-25 16:42:00 · 1029 阅读 · 0 评论