linuxaudio.org

On Sat, Sep 25, 2010 at 8:49 AM, Marc Groenewegen

wrote:

quoted text
> 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.

_______________________________________________

Linux-audio-user mailing list

Linux-audio-user@lists.linuxaudio.org

http://lists.linuxaudio.org/listinfo/linux-audio-user