Community  »  Perl: Allgemeines Forum

Socketverbindung öffnen	Seitenanfang
Hi, ich bin noch ein ziemlicher perl neuling und suche die ganze zeit danach, wie man eine socketverbindung öffnet.Finde aber nichts, könnt ihr mir hier vielleicht ein beispiel posten? Eine socketverbindung auf port 25 (smtp) und vor allem, wie übergebe ich dann noch daten daran? Thx schonmal Datum: 13.01.2005-19:47
re: Socketverbindung öffnen	Seitenanfang
hallo, Net::SMTP kann dir da weiterhelfen. gruß stef Datum: 13.01.2005-21:23
re: Socketverbindung öffnen	Seitenanfang
#!perl -w use strict; use IO::Socket::INET; use vars qw/$sck/; #erstellt eine neue socket $sck = IO::Socket::INET->new(PeerAddr => 'www.deinsmptserver.de', PeerPort => 25, Proto => 'tcp'); #Autoflush sollte man sicherheitshalber immer mal anmachen $sck->autoflush(); #$handle->send(String) sendet den String $sck->send("Hey World\n"); #oder... print $sck "Hallo ich bin ein SMTP-Client\n"; #...das selbe wie $sck->send() $sck->close; __END__ Falls du die Socket auch lesen willst musst du ne Schleife laufen lassen die das Sockethandle ausließt. So vielleicht: while(<$sck>) { s/\n//g; #entfernt die Newlines print "Habe gerade '$_' empfangen\n"; } Datum: 22.01.2005-12:11