Netzwerkprogrammierung: HILFE ! ! !: Beispiele aus dem Buch gehen nicht... - #37632 (Netzwerkprogrammierung und Netzwerke mit Perl)

J-jayz-Z

2005-07-14 19:17

User since
2005-04-13
625 Artikel
BenutzerIn

Hat jemand ne idee, wieso man in diesem snippet 2mal enter drücken muss, zur bestätigung?

Code: (dl )

....
#Schleife, für die Kommunikation
while(defined(my $msg_out = <STDIN>)) {

#Verschlüsseltes Passwort
if ($msg_out =~ /Pw: (.*)\n/) {
my $temp = $1;
my $passwd = crypt("$temp", "oO");
print $socket "Pw: $passwd";
} else {

#Nachricht verschicken
print $socket $msg_out;

#Nachrichten empfangen
my $msg_in = <$socket>;

#Nachricht ausgeben
print $msg_in;
}
}
....

danke euch mal im vorraus...

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de