93 lines
2.9 KiB
Bash
93 lines
2.9 KiB
Bash
|
#! /bin/bash
|
||
|
|
#
|
||
|
|
# From: c2a192@ugrad.cs.ubc.ca (Kazimir Kylheku)
|
||
|
|
# Newsgroups: comp.unix.shell,comp.os.linux.misc
|
||
|
|
# Subject: GNU Bash Script to fix filenames
|
||
|
|
# Date: 28 Mar 1996 14:54:43 -0800
|
||
|
|
# Organization: Computer Science, University of B.C., Vancouver, B.C., Canada
|
||
|
|
#
|
||
|
|
#This is a script which takes a list of directories, descends through each one
|
||
|
|
#and ``corrects'' filenames that:
|
||
|
|
#
|
||
|
|
# - contain filename globbing characters: * ? [ ]
|
||
|
|
# - quote characters: ' "
|
||
|
|
# - control characters: 0-31 (127 is not dealt with---oops)
|
||
|
|
# - - or + as the first character
|
||
|
|
#
|
||
|
|
# The GNU version of 'tr' is required. Also requires 'sed'.
|
||
|
|
#
|
||
|
|
# Script to process a given list of directories recursively
|
||
|
|
# and rename each file to something that is reasonable.
|
||
|
|
#
|
||
|
|
# The rules are:
|
||
|
|
#
|
||
|
|
# 1. replace each space, [, ], *, ", and ' character in the name with a
|
||
|
|
# period.
|
||
|
|
# 2. replace each control character 1..31 with a printable character obtained
|
||
|
|
# by adding 64 to the ascii value. ^A becomes A, ^B becomes B and so on.
|
||
|
|
# 3. replace a - or + occuring at the beginning of the name with a #
|
||
|
|
#
|
||
|
|
# 4. if the resulting name has been changed in any way, then
|
||
|
|
# 5. if a file of the new name already exists, then
|
||
|
|
# 6. add a . to the new name and goto step 5.
|
||
|
|
# 7. rename the old name to the new name
|
||
|
|
#
|
||
|
|
# written by Kaz Kylheku <kaz@cafe.net>
|
||
|
|
# March 1996
|
||
|
|
# Vancouver, Canada
|
||
|
|
#
|
||
|
|
# requires GNU 'bash', GNU 'tr', and some sort of 'sed' program.
|
||
|
|
#
|
||
|
|
# minimal conversion to bash v2 syntax done by Chet Ramey
|
||
|
|
|
||
|
|
processfile()
|
||
|
|
{
|
||
|
|
new_name="`echo -n $1 | tr '\173\175\052\077\042\047 ' '.......' |
|
||
|
|
tr '[\000-\037]' '[\100-\137]' |
|
||
|
|
sed -e 's/^-/#/' -e 's/+/#/'`"
|
||
|
|
if [ "$new_name" != "$1" ] ; then
|
||
|
|
while [ -e "$new_name" ] ; do
|
||
|
|
new_name="${new_name}."
|
||
|
|
done
|
||
|
|
echo changing \"$1\" to \"$new_name\" in `pwd`
|
||
|
|
mv -- "$1" "$new_name"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
processdir()
|
||
|
|
{
|
||
|
|
set -f
|
||
|
|
local savepwd="$PWD"
|
||
|
|
if cd "$1" ; then
|
||
|
|
set +f
|
||
|
|
for file in * ; do
|
||
|
|
set -f
|
||
|
|
if [ "$file" != "." -a "$file" != ".." ] ; then
|
||
|
|
if [ -L "$file" ] ; then
|
||
|
|
echo "skipping symlink" $file in `pwd`
|
||
|
|
elif [ -d "$file" ] ; then
|
||
|
|
processdir "$file"
|
||
|
|
elif [ -f "$file" ] ; then
|
||
|
|
processfile "$file"
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
cd "$savepwd"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
shopt -s nullglob dotglob
|
||
|
|
|
||
|
|
if [ $# = 0 ] ; then
|
||
|
|
echo "$0: must specify a list of directories" >&2
|
||
|
|
echo "$0: usage: $0 directory [directory ...]" >&2
|
||
|
|
exit 2
|
||
|
|
fi
|
||
|
|
|
||
|
|
while [ $# != 0 ] ; do
|
||
|
|
processdir "$1"
|
||
|
|
shift
|
||
|
|
done
|
||
|
|
|
||
|
|
exit 0
|