Perl打印不正确
发布时间:2020-12-15 21:15:02 所属栏目:大数据 来源:网络整理
导读:好的,所以我有一些类似于你在下面看到的子程序,我的问题是打印功能在实际命令完成之前没有打印出来,我希望它打印 “有MySQL,安装:”,然后执行命令然后打印确定.我已经尝试过使用sleep并尝试清除$ssh_d对象.任何建议表示赞赏不要担心这个特定子中的变量,这个
好的,所以我有一些类似于你在下面看到的子程序,我的问题是打印功能在实际命令完成之前没有打印出来,我希望它打印
“有MySQL,安装:”,然后执行命令然后打印确定.我已经尝试过使用sleep并尝试清除$ssh_d对象.任何建议表示赞赏不要担心这个特定子中的变量,这个问题一直在发生.多谢你们. if ($MySQL) { print "Has MySQL,Installing: "; $mysqlCmd = "/path/to/script/mysql-install.pl $person > /dev/null 2>&1"; $ssh_d->cmd("$mysqlCmd"); print "OKn"; } 解决方法
STDOUT通常是行缓冲的,因此在打印换行符之前不会看到输出.您可以在打印前设置
$| 以强制打印输出.
要在每次打印后打开自动清洗,请设置$|到1: $| = 1; print "Enter a number between 3 and 5: "; chomp( my $answer = <STDIN> ); (请注意,$|实际上不是单个值,它会针对每个文件句柄单独跟踪.设置时,它会影响当前所选文件句柄的设置(请参阅 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |