forum.lissyara.su

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

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 

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

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

versen писал(а):print "$i\n";

print "$i\r";

zg писал(а):замени на

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

print "$i\r";

thefree писал(а):

zg писал(а):замени на

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

print "$i\r";

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

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

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);
       }
   }

$| = 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);
       }
   }