if ($port==1){$a=1};
elsif ($port==2){$a=2};
elsif ($port==3){$a=4};
elsif ($port==4){$a=8};
elsif ($port==5){$a=16};
elsif ($port==6){$a=32};
elsif ($port==7){$a=64};
elsif ($port==8){$a=128};
можно ли упростить подобный код?
Ответ на:
комментарий
от anonymous

Ответ на:
комментарий
от gnomino

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум [perl]регэксп (2008)
- Форум [perl] упростить код (2010)
- Форум timidity молчит (2006)
- Форум Условие разбора выхлопа STDIN (2012)
- Форум mpu-401 uart (2006)
- Форум Зависает UDP (2017)
- Форум troubles with perl & tcp sockets (2006)
- Форум perl + com port (SerialPort) (2015)
- Форум «Человеческая» сортировка в perl (2013)
- Форум [ALSA][Timitidy++] Зависает на первой ноте (2012)