Hallo Liste!

Ich bin in der Perl-Welt relativ neu und weiß keinen rechten Rat...
Wo ist der Unterschied zwischen:

my $pass = "secret";

und

print "Kennwort :"
my $pass = <stdin>;
... # Kennwort: secret
chomp($pass);

??

Ein print "*".$pass."*"; liefert in beiden Fällen: *secret*
ein Bind Befehl wie:
my $mesg = $ldap->bind ($dn, password => $oldpass );
läuft im ersten Fall wunderbar, im zweiten Fall dagegen resultiert eine Endlosschleife.

Weiß irgend jemand, was da passiert??

Vielen Dank,
Clemens

P.S: Das gleiche Script auf einer anderen Maschine ausgeführt läuft...

Wenn die Ausgabe von print "*".$pass."*"; gleich ist, sollte das Verhalten auch gleich sein. Der Fehler liegt wohl wo anders, wie auch Dein p.s. vermuten lässt.

Tipp: Code kannst Du hier im Forum in [code]-Tags bzw. [perl]-Tags einschließen. Ist manchmal etwas tükisch, aber in der Regel besser lesbar.

1. es heisst <STDIN>, nicht <stdin>, und wenn du in Perl use warnings; und use strict; aktivierst, wuerdest Perl dir das auch sagen.
2. $pass weist du auf beiden Kisten $oldpass zu?
3. Kommst du mit einem LDAP-Browser von der Kiste aus, wo es nicht laeuft, an ds directory dran?

Hallo Strat,
1) und 2) sind Schlampereien von mir: Im Script steht auch <STDIN>, und an Stelle von $oldpass als Parameter von bind() muß $pass stehen. Das ist ein Fehler im Posting, das Script ist hier korrekt.

Zu 3): Ja. An das Verzeichnis komme ich mit sämtlichen Tools heran. Der LDAP Server ist zu Debug-Zwecken global geöffnet (alle dürfen alles). Wenn die Credentials nicht ausreichen, würde ich einen Fehlerhaften bind()-Versuch erwarten - der abfragbar ist. Das Script hängt leider komplett...

Ich hatte gehofft, daß das ein bekannter Bug (vielleicht sogar mit fertigem workaround ;) o.ä. ist.

Hallo Crian,
genau das läßt mich ja so langsam auh verzweifeln. Das LDAP-Modul habe ich sicherheitshalber noch einmal neu installiert...
Und:



Clemens

da ist mir nichts bekannt.
1. Fragst du beim new einen eventuellen Fehler ab?

oder wie sieht dein connect aus?

2. Funktioniert ein anonymer bind? ( $ldap->bind() )
3. gib mal beim connect die version mit an: Net::LDAP->new($host, version => 3)
4. was passiert, wenn du bei Net::LDAP->new($host, debug => 3) mit angibst? blockiert es da auch, oder werden da noch daten ausgetauscht?\n\n

<!--EDIT|Strat|1071149307-->