1 files changed, 41 insertions, 0 deletions
diff --git a/list.pl b/list.pl
new file mode 100755
index 0000000..2004484
--- /dev/null
+++ b/list.pl
@@ -0,0 +1,41 @@
+#!/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
+#         spider-mario
+
+
+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 pony 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;