https://opennet.me/openforum/vsluhforumID9/7176.html Добрый день!<br><br>Подскажите, как реализовать программу, которая бы не ожидая ввода в нужный момент знала о нажатии на клавиатуру.<br>Поясню. Вот, например:<br><br>my $k;<br>while (1) {<br> $k=&lt;STDIN&gt;;<br> chomp($k);<br> if ($k eq "q") {exit};<br> # А тут нужно вставить код, который бы выполнялся постоянно, чтобы STDIN не задерживало цикл.<br> };<br><br>В этом примере, когда дело дойдёт до STDIN произойдет ожидание ввода. И пока я не введу что-либо, да ещё и плюс ENTER - ничего дальше не сдвинется. А мне нужно, чтобы цикл вращался и не затыкался на STDIN, но когда будет нажата клавиша, чтобы я знал об этом.<br>Как это реализовать?<br><br>Заранее благодарен,<br>Вячеслав<br> https://opennet.me/openforum/vsluhforumID9/7176.html#5 Thu, 14 Feb 2008 00:33:01 GMT &gt;Ну и конечно же обычный select() тоже поможет. <br><br>да, точно, тоже хотел посоветовать<br>я так делал в одном простеньком клиенте<br><br>vec($rb, fileno(STDIN), 1) = 1; <br>vec($rb, fileno(CD), 1) = 1; # сокет<br>if (select($rb, undef, undef, 1) &gt; 0)<br>{<br> if (vec($rb, fileno(STDIN), 1))<br> {<br> $data = &lt;STDIN&gt;;<br> warn("client: sending data to server\n");<br> send(CD, $data, 0) or warn("client: sending data fucked up\n");<br> }<br> if (vec($rb, fileno(CD), 1))<br> {<br> $data = &lt;CD&gt;;<br> warn("recivied:\n$data");<br> }<br>}<br><br><br> https://opennet.me/openforum/vsluhforumID9/7176.html#4 Wed, 13 Feb 2008 20:07:31 GMT &gt;Молодец. Можешь еще в сторону Term::ReadKey посмотреть. <br><br>Ну и конечно же обычный select() тоже поможет.<br> https://opennet.me/openforum/vsluhforumID9/7176.html#3 Wed, 13 Feb 2008 06:17:25 GMT &gt;[оверквотинг удален]<br>&gt;<br>&gt;sub getchar { <br>&gt;system "stty", "-icanon", "min", "0"; <br>&gt;my $key = &lt;STDIN&gt;;<br>&gt;system "stty", "icanon", "eol", "^@"; # ASCII NUL <br>&gt;return ($key); <br>&gt;}; <br>&gt;<br>&gt;Пользуйтесь на здоровье. <br>&gt;Всем спасибо! <br><br>Молодец. Можешь еще в сторону Term::ReadKey посмотреть.<br><br> https://opennet.me/openforum/vsluhforumID9/7176.html#2 Tue, 12 Feb 2008 20:36:01 GMT &gt;&gt;Подскажите, как реализовать программу, которая бы не ожидая ввода в нужный момент <br>&gt;&gt;знала о нажатии на клавиатуру. <br>&gt;<br>&gt;Смотреть в сторону Curses или IO::Tty <br><br>Вобщем после долгих ковыряний родил вот такую простую функцию, которая решает мою задачу.<br><br>sub getchar {<br>system "stty", "-icanon", "min", "0";<br>my $key = &lt;STDIN&gt;;<br>system "stty", "icanon", "eol", "^@"; # ASCII NUL<br>return ($key);<br>};<br><br>Пользуйтесь на здоровье.<br>Всем спасибо!<br> https://opennet.me/openforum/vsluhforumID9/7176.html#1 Tue, 12 Feb 2008 17:01:10 GMT &gt;Подскажите, как реализовать программу, которая бы не ожидая ввода в нужный момент <br>&gt;знала о нажатии на клавиатуру. <br><br>Смотреть в сторону Curses или IO::Tty<br>