Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^2: How to compare two subroutine return values, to trigger email

by anakin30 (Acolyte)
on Sep 20, 2012 at 09:55 UTC ( #994619=note: print w/ replies, xml ) Need Help??


in reply to Re: How to compare two subroutine return values, to trigger email
in thread How to compare two subroutine return values, to trigger email

Suppose the return result from subroutine query_LDAP and query_AD should be compared,but here the comparison not working.

i have no idea what is wrong here, please advice dear monks..

i have provided my source codes here, please assist..

sub query_LDAP { $ldap = Net::LDAP->new( 'hostname' ); $mesg = $ldap->bind( 'uid=username,ou=xxxx,o=bbb', password => 'secret' ); $result = $ldap->modify( "uid=username,ou=xxxx,o=bbb", replace => {"name" => "star wars"} ); $result->code && warn "failed to add entry: ", $result->error ; $result = $ldap->search ( base => "ou=xxxx,o=bbb", filter => "uid=username" ) or die ("Failed on search.$!"); foreach my $entry ($result->entries) { my $LDAP_name= $entry->get_value( "name" ); print "Query Result from LDAP : ",$LDAP_name,"\n";} $mesg= $ldap->unbind;} # take down session sub query_AD { $ldap = Net::LDAP->new('hostname') or die "$0"; $mesg = $ldap->bind( 'cn=username,ou=somecontainer,DC=com', password => 'secret'); $result = $ldap->search(base => "ou=somecontainer,DC=com", filter=> "cn=username" ) or die ("Failed on search.$!"); foreach my $entry ($result->entries){ my $AD_name= $entry->get_value( "name" ); print "Query Result from AD : ",$AD_name,"\n";} $mesg= $ldap->unbind;} # take down session if (query_LDAP() ne query_AD()) { print "not identical!!!!\n";} else{ print "its the same\n";}


Comment on Re^2: How to compare two subroutine return values, to trigger email
Download Code
Re^3: How to compare two subroutine return values, to trigger email
by brap (Pilgrim) on Sep 20, 2012 at 12:45 UTC
    Hi anakin30,

    I believe GrandFather was under the impression that your query_LDAP and query_AD functions would return the results of the queries, instead of printing them to the screen.

    If you return $LDAP_name; and return $AD_name; at the end of each function, your comparison should do what you want.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://994619]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2014-11-23 06:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (128 votes), past polls