t/dirgen.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/env perl -w
use v5.16;

# [fdl]
while (<>) {
    if (/^f:(.*?)(?::(\d+))?$/) {
        my $size = $2 || 0;
        print "creating file $1 of size $size";
    } elsif (/^d:(.*)$/) {
        print "creating dir $1";
    } elsif (/^l:(.*?):(.*)$/) {
        print "symlinking $1 -> $2";
    }
}