如何打印可以为STDIN操作的语句？

Question

我想用字符串预填充STDIN。这将允许用户删除字符串，如果他们不想输入或按回车键，预填充语句将被接受为STDIN。

我如何在perl中执行此操作？

Answer 1

无法使用STDIN / STDOUT 文件句柄来完成。相反，您必须与终端进行交互，例如使用Term::Readline模块。

示例：

use strict;
use warnings;
use feature 'say';
use Term::ReadLine::Perl5;

my $terminal = Term::ReadLine::Perl5->new("example");
my $result = $terminal->readline("> ", "default value");
say "you gave: $result";