mirror of
https://github.com/erkin/ponysay.git
synced 2024-11-26 06:07:59 +01:00
40 lines
687 B
Perl
Executable file
40 lines
687 B
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
# ponysaylist
|
|
# Prints a list of ponies in columns
|
|
#
|
|
# Licensed under WTFPL
|
|
# See COPYING for details
|
|
|
|
# Author: Mattias Andrée, maandree@kth.se
|
|
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use feature qw(say);
|
|
use integer;
|
|
use List::Util qw(max);
|
|
|
|
my $scrw = shift @ARGV // 1;
|
|
|
|
for (@ARGV) {
|
|
# Format names from ponyies names
|
|
s/(?<=[a-z])(?=[A-Z])/ /;
|
|
s/_(.*)/\t($1)/;
|
|
}
|
|
|
|
my $maxw = max 1, map {length} @ARGV;
|
|
|
|
my $cols = max 1, (($scrw + 2) / ($maxw + 2));
|
|
|
|
my @list = map {sprintf "%-${maxw}s", $_} @ARGV;
|
|
|
|
my $rows = (@list + $cols - 1) / $cols;
|
|
|
|
my @rowlist;
|
|
for my $i (0 .. $#list) {
|
|
push @{$rowlist[$i % $rows]}, $list[$i];
|
|
}
|
|
|
|
say join ' ', @$_ for @rowlist;
|