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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перепечатать строку на экране 
:(
    Опции темы
loginn
Дата 11.2.2011, 09:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Требуется вывести что-то на экран, потом, сместить курсор назад и поверх старой строки перепечатать на экране новую.

Я пытался так: print 'something1'; seek (STDOUT, -1, 2); print 'something2';
и так: print 'something1'; seek (STDOUT, -1, 1); print 'something2';

И ни хрена не получилось! smile
Может у кого-нибудь есть другие соображения по поводу того, как это сделать? Заранее буду очень благодарен.
PM MAIL   Вверх
arto
Дата 11.2.2011, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40
\r ?
PM MAIL ICQ   Вверх
alezzz
Дата 11.2.2011, 10:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сплю...
**


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

Репутация: 1
Всего: 14
и если не будет получатся то добавить $| = 1 где-нибудь в начале, особенно если в цикле выводится.
PM MAIL   Вверх
loginn
Дата 11.2.2011, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
не. не помогает.
все равно выводит последовательно, друг за другом.

Добавлено через 3 минуты и 24 секунды
вот код (хочу сделать крутящийся на месте курсор):

for ($i=1;$i<1000;$i++){
$| = 1;
print '/'; seek (STDOUT, -1, 1);
print '-'; seek (STDOUT, -1, 1);
print '|'; seek (STDOUT, -1, 1);
print '-'; seek (STDOUT, -1, 1);
print '/'; seek (STDOUT, -1, 1);
}
PM MAIL   Вверх
alezzz
Дата 11.2.2011, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


сплю...
**


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

Репутация: 1
Всего: 14
http://forum.vingrad.ru/forum/topic-316595.html

По вашему случаю:
Код

@a = ('/','-','\\','|');
$| = 1;
while(1){
  foreach(@a){
    print "\r$_";
    sleep 1;
  }
}
PM MAIL   Вверх
loginn
Дата 11.2.2011, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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