主页 / 问题 / 754981
Accepted
Byulent
Asked:2020-12-07 14:25:58 +0000 UTC2020-12-07 14:25:58 +0000 UTC

在我输入变量之前，Perl 中没有输出

  • 772

有一个程序可以从文件中读取数据并将其添加到数组中：

#!/usr/bin/perl
use strict;
use utf8;
use warnings FATAL => 'all';
use Switch;

open(FILE, "+<prodazhi.txt");
binmode FILE, ":utf8";
binmode STDOUT, ":utf8";
# здесь функции, работающие с массивом
while (<FILE>) {
    chomp;
    ($id, $name, $serial, $delivery, $amount, $cost, $date) = split '\t';
    add_new($id, $name, $serial, $delivery, $amount, $cost, $date);
}

print 'Выберите действие';
$_ = <STDIN>;
print $_;

（函数add_new将数据添加到数组中）

有必要在“选择一个动作”行的输出之后，我可以输入动作的编号来对数组执行某个动作。但是，在我输入之前不会输出该行。那些。我输入数字“1”，然后它才输出“Enter action1”。在那之前，输出流似乎被阻塞了。

告诉我如何解决这个问题？

perl

1 个回答

  1. Best Answer

    perldoc/perlvar/autoflush

    $|

    如果设置为非零，则在当前选定的输出通道上每次写入或打印后立即强制刷新。

    那是：

    local $| = 1;
# ...
print 'Выберите действие: ';
    • 2

相关问题