Hallo!
Wenn ich das in einem Terminal mit einer Größe von 125 x 35 ausführe, würde normalerweise der Prompt-string keinen Platz mehr für die Auswahl übrig lassen.
Term::Choose (ab Version 1.47) reserviert darum für solche Fälle mindestens 4 Zeilen für die Auswahl. Wie könnte man so ein Reservieren auf englisch bezeichnen (auch für einen Optionsnamen mit dem man die Anzahl der reservierten Zeilen einstellen kann)?
1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use warnings;
use 5.10.1;
use Term::Choose qw(choose);
my $prompt = '';
for my $i ( 1 .. 9 ) {
$prompt .= "Das ist die $i. Prompt Zeile" . " $i$i$i$i$i$i" x 100 . "\n";
}
my $choice = choose( [ 1 .. 10000 ], { prompt => $prompt } );
say $choice;