20 lines
277 B
Perl
Executable File
20 lines
277 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my ($shadowdir, @keepdirs) = @ARGV;
|
|
|
|
mkdir($shadowdir);
|
|
|
|
# system(qq#rm -f "$shadowdir"/* "$shadowdir"/.*#);
|
|
|
|
for my $k(@keepdirs) {
|
|
unlink("$shadowdir/$k");
|
|
mkdir("$shadowdir/$k");
|
|
}
|
|
|
|
system(qq#ln -rs .* * "$shadowdir"#);
|
|
|
|
|