Отсчет секунд на perl

[versen]

Всем добрый день!
Может кто знает, как вывести отсчет секунд.
Сейчас примерно так:
test.pl

Код: Выделить всё

#!/usr/bin/perl -w
use strict;
countdown(3);
sub countdown
   {
    for (my $i=$_[0];$i>0;$i--)
       {
        print "$i\n";
        sleep(1);
       }
   }

Каждую секунду курсор переходит на новую строку и при кол-ве секунд больше 60 получается длинная портянка.
Как сделать, чтобы отсчет времени был в одной строке?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[ProFTP]

Как сделать, чтобы отсчет времени был в одной строке?

чтобы весь скрипт был в одну строку?
а зачем?

[versen]

Как сделать, чтобы отсчет времени был в одной строке?

чтобы весь скрипт был в одну строку?
а зачем?

Нет... Скрипт по-фигу сколько строк..
Нужно, чтобы результат выполнения, т.е. отсчет секунд, был в одной строке...
А сейчас он печатает так:

Код: Выделить всё

#./test.pl
3
2
1

[ProFTP]

Код: Выделить всё

#!/usr/bin/perl -w
use strict;
countdown(3);
sub countdown
   {
    for (my $i=$_[0];$i>0;$i--)
       {
        print "$i ";
        sleep(1);
       }
   }

Код: Выделить всё

./perl.pl
3 2 1 

[versen]

Код: Выделить всё

#!/usr/bin/perl -w
use strict;
countdown(3);
sub countdown
   {
    for (my $i=$_[0];$i>0;$i--)
       {
        print "$i ";
        sleep(1);
       }
   }

Код: Выделить всё

./perl.pl
3 2 1 

Нет. Не так.
Надо чтобы при запуске скрипта появлялась 3. Через секунду тройка менялась на "2".. далее двойка менялась на "1"..

[ProFTP]

т.е. чтобы было печатало 3, а потом просто 3 очистилась и появилась 2??
если, да, то никак нельзя в консоле...

можете посмотреть Сишные VESA

[versen]

т.е. чтобы было печатало 3, а потом просто 3 очистилась и появилась 2??

Да.

если, да, то никак нельзя в консоле...

Жаль..

Но Спасибо!

[ProFTP]

вот можешь посмотреть тут, может что-то и получиться

http://search.cpan.org/~ilyaz/Term-Gnup ... minals.pod
http://search.cpan.org/~jstowe/Linux-Sv ... Svgalib.pm

http://forum.lissyara.su/viewtopic.php? ... 8C#p201330

[thefree]

поставьте перед выводам system("clear") если виндус то cls

[zg]

print "$i\n";

замени на

Код: Выделить всё

print "$i\r";

[thefree]

замени на

Код: Выделить всё

print "$i\r";

Может я что-то не так делал, т.к. увидел только конечный результат а промежуточный не выводился.

[versen]

замени на

Код: Выделить всё

print "$i\r";

Может я что-то не так делал, т.к. увидел только конечный результат а промежуточный не выводился.

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

[thefree]

кроме как через очистку, не вижу другой возможности.

[zg]

т.к. увидел только конечный результат а промежуточный не выводился.

перл буферизирует вывод, нужно рыть эту сторону.

[ProFTP]

в книге "perl за 24 часа"

были игры консольные, там была игра по-моему handman которая выводила в консоль, но я не понмю как там было, можешь посмотреть эту книгу...

[s2323]

#!/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);
}
}

[s2323]

Код: Выделить всё

#!/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);
       }
   }

[versen]

Код: Выделить всё

#!/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);
       }
   }

Болшой Thanks! То, что надо.. .Только

Код: Выделить всё

$| = 1;

поставил после

Код: Выделить всё

 
sub countdown
   {

В итоге:

Код: Выделить всё

#!/usr/bin/perl -w

use strict;

countdown(4);

sub countdown
   {
$| = 1; #no buf

    for (my $i=$_[0];$i>0;$i--)
       {
        print "$i\r";
        sleep(1);
       }
   }

[thefree]

Код: Выделить всё

$| = 1;

Скажем так это не отключения буферизация.
2s2323 Спасибо, я даже и не подумал что можно так.