How can I print text immediately without waiting for a newline in Perl?

后端 未结 5 2227
长发绾君心
长发绾君心 2021-02-19 07:43

I have a computationally expensive task in perl, and would like to inform the user that computation is ongoing by printing out a period after each portion of the computation is

5条回答
  •  梦毁少年i
    2021-02-19 07:50

    You need to set autoflush for STDOUT. Example:

    use IO::Handle;
    STDOUT->autoflush(1);
    foreach (1..20) {
      print '.';
      sleep(1);
    }
    

提交回复
热议问题