Guest Tom

gibt es in Perl eine Möglichkeit dass man bei einer Eingabe via Terminal den Text, der eingegeben werden soll, bearbeitbar vorschlägt ?

Quote

Der Lehrstuhl wurde von König Georg III. gegründet, der sich mit der Chronologie beschäftigt hat. Georg III stellte die Fragen: "Gibt es irgendeinen Grund dafür, warum eine Sache NACH der anderen passiert?","Gibt es eine Möglichkeit, das aufzuhalten?" Da alle Professoren des Lehrstuhls gleich auf die Anworten Ja - Nein - Vielleicht kamen, war der Rest der Aufgabe leicht zu erfüllen.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl

use warnings;
use strict;

use X11::GUITest qw(SendKeys);
use English;

$OUTPUT_AUTOFLUSH = 1;
print "Please enter something: ";
SendKeys("Default entry");
my $input = <STDIN>;
$OUTPUT_AUTOFLUSH = 0;
chomp($input);

print "\nYour input was: '$input'.\n\n";