From bb83945623fa6cef6c195c98a7776f45974c006c Mon Sep 17 00:00:00 2001 From: xyz Date: Sun, 17 Oct 2021 15:39:52 -0700 Subject: move work-tree to /, delete mods files, addd cfgL --- home/xyz/.local/bin/mvtr | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100755 home/xyz/.local/bin/mvtr (limited to 'home/xyz/.local/bin/mvtr') diff --git a/home/xyz/.local/bin/mvtr b/home/xyz/.local/bin/mvtr new file mode 100755 index 00000000..850f8dba --- /dev/null +++ b/home/xyz/.local/bin/mvtr @@ -0,0 +1,14 @@ +#!/bin/sh + +# can use ls pipe to sed pipe to bash, similar to eval? see comment at link: +# link also show perl-rename approach +# https://linuxconfig.org/rename-all-files-from-uppercase-to-lowercase-characters +# if only change ' ' to '_' `rename` might be sufficient, for upper to lower case might need perl-rename if want concise + +# ./_filename will be renamed ./filename, not what I want, need improve +# -exec can't replace -execdir here, can write a -exec version + +find "$@" -depth -execdir sh -c 'dest="$(echo "$1" | tr -d "\047" | sed -E -e "s/([[:lower:]])([[:upper:]])/\1_\2/g" | tr "[:upper:] " "[:lower:]_" | tr -s "[:punct:]" | sed -E -e "s#/-#/#g" -e "s/_([[:punct:]])/\1/g" -e "s/([[:punct:]])_/\1/g" | tr -s "[:punct:]")"; [ -e "$dest" ] || mv -v -- "$1" "$dest"' shell '{}' \; + +# for test +#mkdir -p ~/test/A\ A/; rm -rf ~/test/A\ A/1t/; cp -r ~/test/0t/ ~/test/A\ A/1t/; time mvtr ~/test/A\ A/1t/; tree ~/test/A\ A/1t/ -- cgit v1.2.3-70-g09d2