LINUX.ORG.RU

История изменений

Исправление redgremlin, (текущая версия) :

Лучше покажи мне выше по треду _читаемый_ код на перловке

$a=IO::Select->new;
$s=IO::Socket::INET->new(LocalPort => 3000, Blocking => 0, Listen =>1);
$a->add($s);
while(1) {
  for $e ($a->can_read) {
    $e == $s ? $a->add($e->accept)
             : do { 
                 $e->recv($msg, 4096);
                 $msg ? $e->send($msg) 
                      : $a->remove($e);
               }
  }
}

Какое конкретно месте нечитаемо? Ну, кроме того, что для краткости if () {} else {} были заменены на не совсем привычное для сишников (но не для перлистов, которым конструкции do { it } or die знакомы с детства) использование тернарного оператора ?:

Исправление redgremlin, :

Лучше покажи мне выше по треду _читаемый_ код на перловке

$a=IO::Select->new;
$s=IO::Socket::INET->new(LocalPort => 3000, Blocking => 0, Listen =>1);
$a->add($s);
while(1) {
  for $e ($a->can_read) {
    $e == $s ? $a->add($e->accept)
             : do { 
                 $e->recv($msg, 4096);
                 $msg ? $e->send($msg) 
                      : $a->remove($e);
               }
  }
}

Какое конкретно место нечитаемо? Ну, кроме того, что для краткости if () {} else {} были заменены на не совсем привычное для сишников (но не для перлистов, которым конструкции do { it } or die знакомы с детства) использование тернарного оператора ?:

Исходная версия redgremlin, :

Лучше покажи мне выше по треду _читаемый_ код на перловке

$a=IO::Select->new;
$s=IO::Socket::INET->new(LocalPort => 3000, Blocking => 0, Listen =>1);
$a->add($s);
while(1) {
  for $e ($a->can_read) {
    $e == $s ? $a->add($e->accept)
             : do { 
                 $e->recv($msg, 4096);
                 $msg ? $e->send($msg) 
                      : $a->remove($e);
               }
  }
}

Какое конкретно место нечитаемо? Ну, кроме того, что для краткости if {} else {} были заменены на не совсем привычное для сишников (но не для перлистов, которым do { it } or die знакомы с детства) использование тернарного оператора ?: