socket perl

[gcc]

Код: Выделить всё

#!/usr/bin/perl

use IO::Socket;
my $socket = IO::Socket::INET->new ("localhost:25");
defined $socket or die "ERROR: $!";
$socket->print ("EHLO1512");
$r = <$socket>;
$socket->print ("MAIL FROM:<admin\@x.org>1512");
$r = <$socket>;
$socket->print ("RCPT TO:<xxxxxx\@x.org>1512");
$r = <$socket>;
$socket->print ("DATA1512");
$r = <$socket>;
$socket->print ("From:John Doe<admin\@x.org>\n
To:Frank Smith<xxxxxx\@x.org>\n
Subject:Test. \n\n
It's just test!!!1512");

$r = <$socket>;
$socket->print ("\.1512");
$r = <$socket>;
$socket->print ("QUIT1512");
$r = <$socket>;

не отсылает письмо вообще никуда, скрипт замирает, в логах ничего нету кроме того что он хочет подключится к порту...

(вообще-то хочу отправить postfix'у чтобы он ящик создал, ему нужно только через socket отправить?
почта работает, postfixadmin тоже работет и все создает)

[gcc]

Код: Выделить всё

#!/usr/bin/perl

use IO::Socket;
my $socket = IO::Socket::INET->new (PeerAddr => 'localhost:smtp(25)') or die "ERROR: $!";

sysread $socket, $answer_data,255;
print "1: $answer_data";

syswrite $socket, "helo localhost\r\n";
sysread $socket, $answer_data,255;
print "2: $answer_data";

syswrite $socket, "mail from:<>\r\n";
sysread $socket, $answer_data,255;
print "3: $answer_data";

syswrite $socket, "rcpt to:<a\@mail.ru>\r\n";
sysread $socket, $answer_data,255;
print "4: $answer_data";

syswrite $socket, "data\r\n";
sysread $socket, $answer_data,255;
print "5: $answer_data";

syswrite $socket, "Welcome to your new account\r\n";

syswrite $socket, ".\r\n";
sysread $socket, $answer_data,255;
print "6: $answer_data";

syswrite $socket, "quit\r\n";
sysread $socket, $answer_data,255;
print "7: $answer_data";

close $socket;

[pcodr]

Ф-ция print и ее объектно ориентированный аналог буферизируют информацию и сбрасываю буфер только по достижению определенного предела. Вследствии чего данные и не поступают в сокет немедленно. Чтобы переданная ф-ции print строка сразуже поступила в сокет достаточно закончить эту строку символом перевода строки \n.
В отличии от ф-ции print, ф-ция syswrite не буферизирует переданную ей инфомацию, а сразу же отсылает по месту назначения, чем вы собственно и воспользовались.

[gcc]

спасибо, работает вроде...