小编min*_*666的帖子

我想要做什么打印出一个字符串，然后在进行一些背景检查后，更改之前所说的字符串？

所以这里是它最初的样子：

#
Loading design modules....please wait.

然后经过几次背景检查后，它将删除“正在加载设计模块....请稍候”。然后在不清除整个 CLI 屏幕的情况下将其更改为类似的内容：

#
Design module loaded!

到目前为止，这是我的代码：

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

use feature 'say';
use feature 'switch';

use IO::Socket;
use Scalar::Util qw(looks_like_number);
use Term::ANSIScreen qw/:cursor :screen/;

$| = 1;
print "Loading design modules....please wait";
sleep(5);
say "Design module loaded!";