Модераторы: ginnie, korob2001
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> анимированная строка в консоли, "бегущая" строка, в консоли 
:(
    Опции темы
necromantiq
Дата 7.3.2011, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.9.2008

Репутация: нет
Всего: нет



срочно нужно написать прогу, на перле, язык для меня новый, времени  нету, одна из задач, анимированый ввод, в консоли, прога консольная,
пишу в убунту и вынь 7. куда копать? сам язык изучаю, но на тонкости тупо нету времени
PM MAIL   Вверх
necromantiq
Дата 7.3.2011, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.9.2008

Репутация: нет
Всего: нет



ну где же вы, гуру кодинга ))
PM MAIL   Вверх
gcc
Дата 8.3.2011, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Агент алкомафии
****


Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: нет
Всего: 17



perl умеет буферизировать и не буферизировать

Код

#!/usr/bin/perl -w
$| = 1; #no buf

use strict;
countdown(3);
sub countdown
   {
    for (my $i=$_[0];$i>0;$i--)
       {
        print "$i\r"; # \r
        sleep(1);
       }
   }


обсуждали http://forum.lissyara.su/viewtopic.php?f=1...&hilit=perl

Это сообщение отредактировал(а) gcc - 8.3.2011, 22:53
PM WWW ICQ Skype GTalk Jabber   Вверх
necromantiq
Дата 9.3.2011, 02:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.9.2008

Репутация: нет
Всего: нет



спасибо, а можно поподробнее об

 $| = 1; #no buf

гугл не помогает )
PM MAIL   Вверх
necromantiq
Дата 9.3.2011, 02:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.9.2008

Репутация: нет
Всего: нет



задача примерно такая (помогли с кодом)

 #!/usr/bin/env perl

use Time::HiRes qw(usleep);

$|=1;

for ( $i = 0; $i < 10; $i++ ) {
   for( $j  = 0; $j < $i; $j++ ) {
   print "$j";
   }
 print "\r";
usleep( 100000 );
}

сейчас строка увеличивается как

a
aa
aaa

в консоле выглядит как ааа......

никак не получается сделать так чтоб а "бежало"

а
 а
  а

..а.... >>

понимаю что надо пробелами затирать, но не получается, логика не привычная + эта буферизация, которая хз как работает.
что еще децл затрудняет поиски, то что в иде по одному показывается вывод, в консоли по другому...
PM MAIL   Вверх
ming
Дата 14.3.2011, 18:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 30.1.2009
Где: Новосибирск

Репутация: нет
Всего: 3



Код

$|=1;
my $str = "string";
for(my $i=0; $i<10; $i++) {
    print "\r"; # переместить курсор на начало строки
    print " "x$i; # напечатать пробел i раз (с каждым шагом всё больше и больше пробелов)
    print $str; # напечатать саму строку
    sleep 1;
}


Это сообщение отредактировал(а) ming - 14.3.2011, 18:29
PM MAIL ICQ Jabber   Вверх
dixoNICH
Дата 10.4.2011, 09:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет



вместо sleep(1) лучше использовать select
ввиде :
Код

select undef,undef,undef, 0.1

например так. 0.1 - это одна десятая.
минус sleep, что он принимает в аргументы только секунды.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0540 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.