build(utils/dockerizedmake.pl): Helper tool to symlink a whole directory content.

This commit is contained in:
Stephan Barth 2024-11-07 18:52:50 +01:00
parent c8cb73d366
commit ef69845fc4

19
utils/dirsymlink.pl Executable file
View File

@ -0,0 +1,19 @@
#!/usr/bin/env perl
use strict;
use warnings;
my ($shadowdir, @keepdirs) = @ARGV;
mkdir($shadowdir);
system(qq#rm -f "$shadowdir"/*#);
for my $k(@keepdirs) {
unlink("$shadowdir/$k");
mkdir("$shadowdir/$k");
}
system(qq#ln -rs .* * "$shadowdir"#);