BrutalBlackPie
Сообщений: 25
Оценки: 0
Присоединился: 2009-09-30 13:48:14.630000
|
my $name = <>;
print Server "user $name";
$answer= <Server>;
print "-> $answer";
print "-> vvedite parol': ";
my $pass = <>;
print Server "pass $pass";
$answer= <Server>;
print "-> $answer"; язык Perl, вот таким куском кода я пытаюсь авторизоваться сервер мне пишет сначала +OK, а потом +OK password required for user %name%
|