Switch в perl

может $inn содержит символ перевода коретки. Ну и не 0 а, наверно, «0».

> Где я не прав?
chomp ($inn = <>);

Вы забыли убрать \n с конца $inn.

не содержит, дела по перлдок там именно 0 или 1, так именно работает с if конструкция.

содержит :)

теперь увидел, странно.

Есть же given/when же.

блин вечно чего-то забываю, пошел листать перлдок

еще не отучился от С

предлагаете так:

chomp ($inn = <>);
given ($inn) {
   when 1 { print "$inn \n"; }
   when 0 { print "$inn \n"; }
}

> when 1

man perlsyn
/given

Да я не предлагаю, я сам тот ещё погромист. Ну просто зачем подключать чего-то, есть же варианты свитч реализовать. С другой стороны в доке написано, что ваш switch больше похож на сишный по поведению.

Ему интерпретатор по идее должен ругнуться. )

просто привык пользоваться чем в С этим же пытаюсь пользоваться в перл, да и код получается понятным =)

спасибо, но как-то перлдок мне приятней и понятней

Во всех книжках написано на первой же касающейся программирования странице - always use warnings and strict.

да я это помню. но прост сегодня для примера написал код на коленке и захотелось его разнообразить, сейчас уже добавляю use strict и my к переменным.

да и пока так с ардуиной нормально работает

мда… ну ничего, может когда-нибудь и выучишь %)

> print «Enter 1 or 0: »;

либо перевод строки добавь, либо $|=1. иначе оно так и будет в буфере висеть, пока он не заполнится…

спасибо все потихонечку да потихонечку двигаюсь к намеченной цели, главное язык нравиться. Для привязки терминала и записи логов с железяк самое то =)

Да добавил.

А всё равно посмотрите какие-нибудь книги с learn.perl.org - в частности в том же beginning Perl, даже при том, что вы уже умеете программировать и вам будет скучно, много внимания уделяется отличию Perl от C. А то будете 'с акцентом' писать.

Ещё отличное развлечение - вооружиться Data::Dumper и почитать perldsc и perllol. Как раз для пятницы занятие.

Спасибо. Займусь на досуге.

примерно так оно будет выглядеть на перле 5.10+

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use Device::SerialPort;

my $port = Device::SerialPort->new('/dev/ttyUSB0');

# 9600, 81N on the USB ftdi driver
$port->baudrate(9600);
$port->databits(8);
$port->parity('none');
$port->stopbits(1);
$port->write_settings();

POLL:
for ($| = 1;;) {
    print 'Enter 1 or 0: ';
    chomp (my $inn = <>);
    given ($inn) {
        $port->write($_)  when [qw/0 1/];
        last POLL         when 'q';
        say 'wrong';
    }
}

любопытно 0_0!

Version     : 5.12.3

given для perl6 чуть-чуть по-другому пишется.

Страшно, как будем перелезать на другую версию

> Version : 5.12.3

в 5.12 мало интересного… вот 5.14 очень вкусным обещает быть.

> Страшно, как будем перелезать на другую версию

перл6 — это не другая версия, это другой перл… :(

посижу на пятом до 5.98, а там видно будет ;)

Не юзайте switch. Он использует фильтры исходного кода и может отвалиться в самый неожиданный момент

Deprecated Modules:
Switch
Switch is buggy and should be avoided. You may find Perl's new given/when feature a suitable replacement. See «Switch statements» in perlsyn for more information.

http://search.cpan.org/perldoc?perl5120delta

попробую, перепишу

1) Switch - кривое говно. Использовать только given/when.
2) На perl6 еще дооооолго не придется переходить.

+0.5 Switch конечно ооочнеь медленный, но етсь нюансы. Не везде есть последний перл и не везде позволяют юзать use Modern::Perl; Так что иногда лучше оставаться на if %)

> Switch конечно ооочнеь медленный

при компиляции, не в работе. Switch, по сути, препроцессор, заменяющий switch-case конструкции на if-elif-else конструкции. если скрипт часто запускается и мало работает (обработка CGI; find -exec и т.п.), то да, падение скорости будет существенным. но если это какой-то долгоиграющий скрипт (FastCGI; монитор логов…) — падение скорости запуска не критично.

Чего? Given/when с 12ого, если не с 10ого перла. Modern::Perl тут не при чем

Страшно, как будем перелезать на другую версию

А мы не будем перелизать никуда. То что будет нам интересно, будет бакпортиться в пятерочку.