perl中的回车

Question

while(<FILE>)
{
    if (/progress/)
    {
        my @msgs = split(': ',$_);
        print "$msgs[1]";
        sleep 1;
    }
    local $| = 1; # to clear the buffer
    print "\r"; # carriage return
}

我正在从<FILE>读取百分比进度，并在回车屏幕上打印，但这似乎不起作用。任何想法或替代方式？

Answer 1

因为$msgs[1]以换行符结尾。 chomp您从FILE读到的内容。