wangfang_0728的专栏

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=>"(

#!/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";