Эта тема на forum.dklab.ru


BestG: Print в одной строке
Иногда (Например, при выводе некоторой служебной информации) надо, чтобы текст выводился в той же строке, затирая предыдущий, который был в этой строке. Причем надо делать без использованию функция а-ля CLS. Эта функция вам поможет. Используйте следующий синтаксис: &uprint("Text1"); &uprint("Text2"); &uprint("Text3"); и т.д.

sub uprint
{
$|=1;
$arg=$_[0];
$arg=~s/\n//gs;
if(!$cnt)
{
1;
}
else
{
print "\b"x($cnt+1);
print " "x$cnt;
print "\b"x($cnt+2);
}
$cnt=length($arg);
print $arg;
}
sub uclear
{
&uprint("");
$argz=$_[0];
$argz=~s/\n//gs;
print "$argz";
print "\n";
}
&uprint("Проверка файлов...");
sleep(1);
&uprint("Проверка путей...");
sleep(1);
&uprint("Проверка реестра...");
sleep(1);
&uprint("Проверка чего-то еще :-)...");
sleep(1);
&uclear("Все проверки прошли успешно");


Вот добавлен "проверка от дурака", а также код выравнен по-гурмански. Успехов

Эта тема на forum.dklab.ru