On Sat, Jan 12, 2008 at 02:23:07PM +0100, Hugo van der Kooij wrote:
> Klopt mijn aanname dat ik iets dergelijks kan doen:
> 
> 	use IO::Socket;
> 	my $sock = new IO::Socket::INET (
> 		PeerAddr => 'remoteserver',
> 		PeerPort => '25',
> 		Proto => 'tcp',
> 	);
> 	die "Error: $!\n" unless $sock;
> 
> 	$answer=<$sock>;
Je moet de protocol specificatie beter lezen. De berichten die terug
komen van de server kunnen meer dan een regel zijn. Je moet blijven
doorlezen totdat je geen continuatie regel krijgt (van de vorm nnn- as
ik mij goed herinner).

Het is misschien ook zinvol om CPAN af te zoeken, er is vast van een
module dat precies doet wat je wil...

Mvg,
-- 
Martijn van Oosterhout   <kleptog@svana.org>   http://svana.org/kleptog/
> Those who make peaceful revolution impossible will make violent revolution inevitable.
>  -- John F Kennedy


