Whoops. Forgot to add this perl script :-/
This commit is contained in:
parent
0dbfe1fcd2
commit
a6051b6ac0
|
@ -0,0 +1,28 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
|
||||||
|
my($src,$dst,@files)=@ARGV;
|
||||||
|
my %allfiles;
|
||||||
|
|
||||||
|
my $dh;
|
||||||
|
|
||||||
|
opendir($dh, $src) || die "source dir missing";
|
||||||
|
%allfiles=map {$_ => 1} grep {/^[^.]/} readdir($dh);
|
||||||
|
close $dh;
|
||||||
|
|
||||||
|
my @dwim;
|
||||||
|
for (@files){
|
||||||
|
if(!$allfiles{$_}){
|
||||||
|
warn "$_ not found in $src\n";
|
||||||
|
}else{
|
||||||
|
push @dwim,$_;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
for (sort keys %allfiles){
|
||||||
|
push @dwim,$_;
|
||||||
|
};
|
||||||
|
|
||||||
|
system("cp",(map {$src."/".$_} @dwim),$dst);
|
||||||
|
|
Loading…
Reference in New Issue