5 Oct
2010
5 Oct
'10
1:59 p.m.
On Sat, Sep 25, 2010 at 8:49 AM, Marc Groenewegen <marcg at dinkum.nl>
wrote:
Why would one want spaces in filenames anyway ?
Cheers,
Marc
#! /bin/bash
#
# spaces2underscores.sh
echo
echo "This command changes all spaces in file names into underscores"
echo " for ALL FILES IN THIS DIRECTORY !"
echo " Type ENTER to continue or ^C to quit"
read dummy
for f in *; do
oldname=`echo $f |sed 's/ /~/g'`
newname=`echo $f |sed 's/ /_/g'`
if [ $oldname != $newname ]
then
echo mv $f $newname
mv "$f" $newname
fi
done
The if [ $oldname != $newname ] bit is nice; avoids errors with mv.
You could also get rid of other nasties with
newname=`echo $f | tr ' ' '_' | tr -d '[{}(),\!]' | tr -d
"\'" | sed
's/_-_/_/g'`
But if directories have spaces as well, one solution is (from somewhere
on the Arch Linux forums)
#! /bin/bash
# remove spaces from directory names and contents recursively
IFS=$'\n'
function cleanup {
if [ -d "$1" ];
then
DIR="$1"
cd "$DIR"
fi
pwd
for f in `find . -maxdepth 1`; do
[ -d "$f" -a "$f" != "." ] && (cleanup
"$f")
file=$(echo $f | tr ' ' '_' )
[ -e "$f" ] && [ ! -e "$file" ] && mv
"$f" "$file"
done
[ "$DIR" ] && cd - > /dev/null
}
cleanup .
unset IFS
Even better is this (from perlmonks.org/?node_id=27739)
find2perl . -depth -eval 'my $o=$_; tr/_/ /; -e or rename $o,$_ or warn
"cannot rename $o to $_: $!"' | perl
Does the lot in one hit.