Leser: 15
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/env perl use strict; use warnings; use Term::Choose qw( choose ); # Version 1.632 my $lore = [ ( "\e[31mSed\e[0m", "\e[32mut\e[0m", "\e[33mperspiciatis\e[0m", "\e[34munde\e[0m", "\e[35momnis\e[0m", "\e[36miste\e[0m", "\e[37mnatus\e[0m", "error", "it", "voluptatem", "acc\e[32mus\e[35man\e[36mti\e[0mum", "mdoloremque", "laudantium", "\e[31mSed\e[0m", "\e[32mut\e[0m", "\e[33mperspiciatis\e[0m", "\e[34munde\e[0m", "\e[35momnis\e[0m", "\e[36miste\e[0m", "\e[37mnatus\e[0m", "error", "it", "voluptatem", "accusantium", "doloremque", "laudantium" ) x 10 ]; my $justify = 2; # 0 1 for my $color ( 1, 2, 3 ) { my @choices = choose( $lore, { justify => $justify, color => $color, max_width => 140 } ); print "@choices\n" if @choices; }