build(utils/dockerizedmake.pl): Helper tool to symlink a whole directory content.
This commit is contained in:
parent
c8cb73d366
commit
ef69845fc4
19
utils/dirsymlink.pl
Executable file
19
utils/dirsymlink.pl
Executable 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"#);
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user