У LYNX СЕГОДНЯ ДЕНь РОЖДЕНИЯ !!! - [5] :: Флейм

lynx

Код:

[font='Andale Mono',Monotype,'Lucida Console',monospace]#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
use IO::Select;

my $tolsty2lynx = IO::Socket::INET->new(
LocalHost => 'home.tolsty.pp.ru',
PeerAddr => 'lynx.ru-board.com:1053',
Proto => 'tcp',
Type => SOCK_STREAM,
Blocking => 0,
);

my $waiting4lynx = IO::Socket::INET->new(
LocalAddr => 'home.tolsty.pp.ru:1053',
Proto => 'tcp',
Type => SOCK_STREAM,
Blocking => 0,
Listen => 5,
ReuseAddr => 'а как же!',
);

my @answer = ('да', 'так точно', 'есть', 'как пожелаешь', 'конечно', 'возьми сколько тебе надо', 'где обычно');

my @pet_name = qw(барышня рысёнок дорогая кошечка милая);
push @pet_name, 'приятная умная девушка', 'урчащий мой модератор';

my $lynx = IO::Select->new();
$lynx->add($waiting4lynx);

*IO::Select::is_here = \&IO::Select::can_read;

{
# чтобы вы с перлом не думали, что я очепятался
my $dummy = \&IO::Select::is_here;
}

sub UNTIL_DEATH() { 1 }

while ( UNTIL_DEATH ) {
if ( $lynx->is_here(300) ) {
my ($communication_tube, $lynx_ip) = $waiting4lynx->accept();
while ( my $task = $communication_tube->getline() ) {
$communication_tube->print($answer[rand scalar @answer], ', ', $pet_name[rand scalar @pet_name], "\n");
do $task;
$communication_tube->print('готов к следующим приказаниям', ', ', $pet_name[rand scalar @pet_name], "\n")
}
} else {
$tolsty2lynx->printf("B-* x %d", rand 5) if $tolsty2lynx;
}
}[/font]

Отладить поможешь?

Добавлено

Цитата:

E:\work\lynx>perl -c lynx.pl
Name "IO::Select::is_here" used only once: possible typo at lynx.pl line 31.
lynx.pl syntax OK

perl
Это не очепятка, а для удобства восприятия.

Добавлено
perl
Ну, теперь тебе придраться не к чему

Добавлено
Цитата:

E:\work\lynx>perl -c lynx.pl
lynx.pl syntax OK

Модерирует : 3xp0, TechSup
TechSup (27-09-2004 00:58): Приём поздравлений временно преостановлен.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11