rename all files with spaces in name 2

[MoshiachNow]

HI,

I need a short way to find all files in the directory that have a space in their name,and rename them so that the underscore replaces the space in name for all files found.

Appreciate any idea.
Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[columb]

Here's a perl solution

perl -e '
foreach my $file ( glob "*" )
  {
  $file =~ /\w+\s+\w+/ or next;
  my $newname = $file;
  $newname =~ s/ /_/g;
  #print"$file $newname\n";
  system ( "mv \"$file\" $newname" );
  }
'

The perl gurus will probably laugh at my basic perl - there's almost certainly neater code - but this works.

Columb Healy

 

[MoshiachNow]

Thanks,

Anything besides perl ?

Long live king Moshiach !

http://www.7for70.com/

 

[columb]

The ksh answer is to set IFS to a newline. The code becomes

export IFS='
'
# Note that this is ONLY a newline - NO SPACES
for file in $(ls | egrep " ")
do
  newname=$(echo $file | tr ' ' '_')
  mv "$file" $newname
done

Columb Healy

 

[kHz]

find . -type f -name '* *' | awk -F? '{ s=$1 ; gsub ( " +","_",s ) ; print "echo n | mv -i","\""$1"\"","\""s"\""}' | /bin/sh

 

[MoshiachNow]

Thanks !

Long live king Moshiach !

http://www.7for70.com/

 

[MoshiachNow]

khz,

the above line does not seem to work - please try it out on your computer.
thanks

Long live king Moshiach !

http://www.7for70.com/

 

[rzs0502]

Works on my system with Bash


"If you always do what you've always done, you will always be where you've always been."

 

[MoshiachNow]

But not with ksh ...

Long live king Moshiach !

http://www.7for70.com/

 

[rzs0502]

Strange, works on my pdksh on Linux and ksh on AIX
Any error or does it just not do it?


"If you always do what you've always done, you will always be where you've always been."

 

[MoshiachNow]

find /dataVolumes/ -type f -name '* *'|head -5

/dataVolumes/proof7.4.0/.rsrc/Temporary Items
/dataVolumes/proof7.4.0/.rsrc/Black Overprint
/dataVolumes/proof7.4.0/.rsrc/Black Overprint#14065828.jt
/dataVolumes/proof7.4.0/.rsrc/Black Overprint#14065855.jt
/dataVolumes/proof7.4.0/.rsrc/Black Overprint#14072649.jt

find /dataVolumes/ -type f -name '* *' | awk -F? '{ s=$1 ; gsub ( " +","_",s ) ; print "echo n | mv -i","\""$1"\"","\""s"\""}' | /bin/sh

awk: No match.

Long live king Moshiach !

http://www.7for70.com/

 

[kHz]

Works on AIX.

 

[vbaranov]

In ksh[/color red] you may use the following script to do this:

IFS='
'
for n in `find . -type f -name "* *"`
do
NN=`echo $n|tr ' ' '_'`
mv $n $NN
done
[/color blue]
or as 1-liner:

IFS='\n';for n in `find . -type f -name "* *"`;do NN=`echo $n|tr ' ' '_'`;mv $n $NN;done
[/color blue]