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