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)
- Форум Зависает UDP (2017)
- Форум mpu-401 uart (2006)
- Форум troubles with perl & tcp sockets (2006)
- Форум perl + com port (SerialPort) (2015)
- Форум «Человеческая» сортировка в perl (2013)
- Форум [ALSA][Timitidy++] Зависает на первой ноте (2012)