+ function spacem()
+ {
+ while [ $# -gt 0 ]; do
+ arg="$1"; shift
+ if [ ! -f "$arg" -a ! -d "$arg" ]; then
+ echo "failure to find a file or directory named '$arg'."
+ continue
+ fi
+ # first we rename the file to be lower case.
+ perl $FEISTY_MEOW_SCRIPTS/files/renlower.pl "$arg" &>/dev/null
+ # oops, now the name is all lower-case. we need to make the
+ # same adjustment.
+ arg2="$(echo "$arg" | tr A-Z a-z)"
+ # we definitely wanted to adjust the case first, rather than doing all
+ # the wacky stuff this script does to the filename... we will capture
+ # the output of the replace operaton for reporting.
+ final_name="$(perl "$FEISTY_MEOW_SCRIPTS/files/replace_spaces_with_underscores.sh" "$arg2")"
+ # now zap the intermediate part of the name off.
+ final_name="$(echo $final_name | sed -e 's/.*=> //')"
+ # printout the combined operation results.
+ echo "'$arg' => $final_name"
+ done
+ }
+