+ next if !$val;
+ writefile "$dir/$name","$val\n";
+ link "$dir/$name","$resultid/$name" or warn "link $dir/$name $resultid/$name: $!";
+}
+for my $file (@file) {
+ newdir "$dir/file.d","mayexist";
+ (my $base=$file)=~s{^.*/}{};
+ my $d="$dir/file.d/$base";
+ link $file,$d or die "link $file $d: $!";
+ newdir "$resultid/file.d","mayexist";
+ link $d,"$resultid/file.d/$base" or warn "link $file $resultid/file.d/$base: $!";