for file in drbio/bin/*.lst; do nodir="${file##*/}"; base="${nodir%.*}"; ../extract.pl "$file" > "drbio/$base.nas"; done

grep -Eio '%include\s+\S+' drbio/bin/*.lst | perl -e 'my @array = (); while (<<>>) { s/^([^:]+):\%include\s+["]*([^"]+)["]*/$2 $1/; push( @array, $_ ); }; print sort @array;' | less

for file in drbio/*.mac; do nodir="${file##*/}"; echo "Searching $file"; matching=$(grep -Ei '\%include\s+"*'"$nodir"'"*' -l drbio/*.nas | head -n1); if [ -z "$matching" ]; then echo "No match!"; else matchnodir="${matching##*/}"; matchbase="${matchnodir%.*}"; ../extract.pl --filter-include="$nodir" "drbio/bin/$matchbase.lst" > "$file"; fi; done

dos2unix drbio/version.mac