Jemand zu Hause?Leser: 21
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
#!/usr/bin/env perl 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;
use strict; use warnings;