Форум dkLab и Denwer
Здесь общаются Web-разработчики.
Генеральный спонсор:
Хостинг «Джино»

Print в одной строке (BestG)
Author Message
BestG
Guest





Карма: 386
   поощрить/наказать


PostPosted: Mon Mar 10, 2008 9:03 pm (написано за 3 минуты 22 секунды)
   Post subject: Print в одной строке
Reply with quote

Иногда (Например, при выводе некоторой служебной информации) надо, чтобы текст выводился в той же строке, затирая предыдущий, который был в этой строке. Причем надо делать без использованию функция а-ля CLS. Эта функция вам поможет. Используйте следующий синтаксис: &uprint("Text1"); &uprint("Text2"); &uprint("Text3"); и т.д.
Code (perl): скопировать код в буфер обмена
sub uprint
        {
        $|=1;
        $arg=$_[0];
        $arg=~s (www.perldoc.com/perl5.6/pod/func/s.html)/\n//gs;
        if(!$cnt)
                {
                1;
                }
        else
                {
                print (www.perldoc.com/perl5.6/pod/func/print.html) "\b"x($cnt+1);
                print (www.perldoc.com/perl5.6/pod/func/print.html) " "x$cnt;
                print (www.perldoc.com/perl5.6/pod/func/print.html) "\b"x($cnt+2);
                }
        $cnt=length (www.perldoc.com/perl5.6/pod/func/length.html)($arg);
        print (www.perldoc.com/perl5.6/pod/func/print.html) $arg;
        }
sub uclear
        {
        &uprint("");
        $argz=$_[0];
        $argz=~s (www.perldoc.com/perl5.6/pod/func/s.html)/\n//gs;
        print (www.perldoc.com/perl5.6/pod/func/print.html) "$argz";
        print (www.perldoc.com/perl5.6/pod/func/print.html) "\n";
        }
&uprint(" ...");
sleep (www.perldoc.com/perl5.6/pod/func/sleep.html)(1);
&uprint(" ...");
sleep (www.perldoc.com/perl5.6/pod/func/sleep.html)(1);
&uprint(" ...");
sleep (www.perldoc.com/perl5.6/pod/func/sleep.html)(1);
&uprint(" -  :-)...");
sleep (www.perldoc.com/perl5.6/pod/func/sleep.html)(1);
&uclear("   ");
Вот добавлен "проверка от дурака", а также код выравнен по-гурмански. Успехов
Back to top
Display posts from previous:   
Post new topic   Reply to topic All times are GMT + 3 Hours
Page 1 of 1    Email to a Friend.
You cannot post new topics in this forum. You cannot reply to topics in this forum. You cannot edit your posts in this forum. You cannot delete your posts in this forum. You cannot vote in polls in this forum. You cannot attach files in this forum. You can download files in this forum.
XML