perl - 在提示用户输入时如何提供可编辑的默认值？

Question

在 Perl 脚本中，我想提示用户输入并为他提供一个可编辑默认值。到目前为止我有这个:

#!/usr/bin/perl

print "what's your name? [John Doe]: ";
$name = <STDIN>;
chomp $name;
if (!$name)
{
    $name = "John Doe";
}
print "hello $name.\n";

我正在寻找一种解决方案，在用户开始输入之前，我可以在 STDIN 上显示“John Doe”。所以它实际上是一个可编辑的默认输入。例如。用户可以按退格键 3 次，然后键入“Wayne”来获取“John Wayne”，而不是从头开始键入整个字符串“John Wayne”。我尝试打印到 STDIN，但这不起作用。

Answer 1

根据定义，您无法写入标准输入。你将不得不使用类似 Term::ReadLine::Gnu 的东西.

您正在寻找的功能称为PREPUT，它是readline函数的第二个参数。