blob: 959b066aad93f782565f47a0d8fb53c0c030f093 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#! /usr/bin/env raku
unit sub MAIN (*@dirs where @dirs.elems >= 3 && all(@dirs) ~~ .IO.d && all(@dirs) ~~ .IO.r);
my $dir-count = @dirs.elems;
my %dir;
for @dirs -> $dir
{
%dir{$dir} = $dir.IO.dir.map({ .d ?? .basename ~ '/' !! .basename }).Set;
}
my %all = %dir.values>>.List.flat.Bag;
my $max-length = (%all.keys>>.chars.max, @dirs>>.chars.max).max;
my @head;
for @dirs -> $dir
{
@head.push: $dir.fmt("%-{$max-length}s");
}
say @head.join(" | ");
say "-" x (3 + $max-length) * $dir-count;
for sort keys %all -> $file
{
next if %all{$file} == $dir-count;
my @row;
for @dirs -> $dir
{
@row.push: "{ (%dir{$dir}{$file} ?? $file !! '').fmt("%-{$max-length}s") }";
}
say @row.join(" | ");
}
|
