很简单。当人们在命名文件时使用空格时，我无法忍受。有时会破坏控制台命令，并使ls的输出变得难看。

挑战是编写一个程序（仅ASCII字符），

1. 将当前目录中的所有文件（包括目录）重命名为已删除空格或由'_'代替的版本
2. 发生碰撞时，您需要附加一个唯一的标识符（由您自己决定）
3. 递归地进入所有子目录

您可以采用UNIX样式的路径名。无论如何，谁会在Windows计算机上需要此程序？

这是代码高尔夫，最短的程序获胜（#ascii字符）。由于我非常讨厌空格，因此每个空格必须计数两次。

请提供您的语言，分数，程序以及运行方式的简短说明。

该程序必须在我的Linux机器上进行合理的编译和执行。

编辑：由于Etan请求测试的文件结构，这是我当前用来创建合适的文件树的脚本：

#!/bin/bash
rm -r TestDir

touchfiles()
{
    touch my_file
    touch my__file
    touch "my file"
    touch "my  file"
    touch " my_file  "
}

mkdir TestDir
cd TestDir

touchfiles

for dir in "Test Sub" Test_Sub "Te stSub" Te_stSub
do
    mkdir "$dir"
    cd "$dir"
    touchfiles
    cd ..
done

Zsh + GNU coreutils — 48个字节（1个空间）

for x   (**/*(Dod))mv   -T  --b=t   $x  $x:h/${${x:t}// }

您讨厌（ASCII）空格，但是可以使用制表符和换行符，这很奇怪，但是我想它需要各种各样的东西。

zmv简洁地解决了许多文件重命名问题（并且仅默默无闻）。但是，它坚持目标是唯一的。虽然您可以轻松地添加唯一的后缀，但是仅在非常需要时才添加后缀需要重新做所有工作。因此，我改为手动循环并在发生冲突的情况下依靠GNU mv附加一个唯一的标识符（--backup选项，以及--no-target-directory目标是现有目录的情况，否则mv会将源移动到该目录中）。

(od)是一个全局限定符，用于对输出进行排序，并在目录内容之后出现目录（例如find的目录-depth）。D在全局文件中包含点文件。:h并且:t是历史修饰符相似dirname和basename。

mv抱怨称它被称为将文件重命名为它们自己，因为glob包含不带空格的文件名。这就是生活。

非高尔夫版本：

for x in **/*\ *(Dod); do
  mv --no-target-directory --backup=numbered $x ${x:h}/${${x:t}// /}
done

Bash 116字节，16个空格

find . -depth -exec bash -c 'B=${0##*/}
M="${0%/*}/${B// /_}"
while [ -e "$M" ]
do M=$M.
done
mv "$0" "$M"' {} \;

我没有抑制错误以获得更多的字节。这不会有任何冲突。

如果find可以预期使用非posix GNU ，则可以将其进一步缩短：

Bash 110字节，15个空格

find -d -exec bash -c 'B=${0##*/}
M="${0%/*}/${B// /_}"
while [ -e "$M" ]
do M=$M.
done
mv "$0" "$M"' {} \;

删除空格而不是替换空格将减少两个字节：

Bash 108字节，15个空格

find -d -exec bash -c 'B=${0##*/}
M="${0%/*}/${B// }"
while [ -e "$M" ]
do M=$M.
done
mv "$0" "$M"' {} \;

注意：如果可以使用制表符代替空格，则仅需要1个空格（匹配规则中用于替换第2行的空格）。

感谢Dennis查找双引号中的错误（并提供解决方案）

Python 180字节

from    os  import*
t,c,h='.',chdir,path
def g(p):
    c(p)
    for x   in  listdir(t):
        if h.isdir(x):g(x)
        n=x.replace(' ','')
        while h.exists(n):n+=t
        if' 'in x:rename(x,n)
    c(t*2)
g(t)

如果使用制表符缩进，则仅2个空格：-)

如果冲突的文件后缀的顺序不需要给先存在的文件以先例，则以下内容对我有用：

bash / find / mv 84字节，16个空格

find -depth -execdir bash -c '[ "${0//[^ ]}" ] && mv -{T,--b=t} "$0" "${0// }"' {} \;

bash / find / mv 82字节，14个空格

find -depth -execdir bash -c '[ "${0//[^ ]}" ]&&mv -{T,-b=t} "$0" "${0// }"' {} \;

拥抱&&以节省两个空间字节。

bash / find / mv 60字节，11个空格

find -d -execdir bash -c 'mv -{T,-b=t} "$0" "${0// }"' {} \;

放弃错误保护，因此它从mv上获取没有空格开头的文件中的错误。

编辑：删除{}丹尼斯提醒的报价。还允许find在最短的版本中尖叫关于可移植性和弃用，因为mv它已经在尖叫将文件移到其自身之上。

编辑2：添加-T到mv命令中以避免嵌套目录，而不是如pqnet所指出的重命名。使用花括号扩展仅需使用一个空格即可，而仅花费一个字符即可。

NodeJS – 209字节，3个空格

s=require('fs');function a(d){s.readdirSync(d).forEach(function(f){f=d+'/'+f;i=0;r=f;if(/ /.test(f)){r=f.replace(' ','');while(s.existsSync(r))r+=i++;s.renameSync(f,r)}s.statSync(r).isDirectory()&&a(r)})}a('.');

重击-86字节

find    .   -d|while    IFS=""  read    f;do    t=${f##*/};mv   --b=t   -T  "$f"    "${f%/*}"/${t// /};done

Bash + Perl rename64

（rename是Debian及其衍生产品上的Perl脚本，不是util-linux命令。）

find . -depth -name "* *" -execdir rename 'y/ /_/' * \;

POSIX sh+ GNU find+ GNU mv67 ASCII字节+一个（文字）空间

find    -d  -exec   sh  -cf 'IFS=\ ;IFS=_   set $0;mv   --b=t   "$0"    "$*"'   {}  \;

我不知道是否合身，但任何与此序列的空间会被省略，以一个单一的_-我喜欢也无妨。实际上，除了前导/尾随空格之外的任何序列都是-那些会被自动截断（我认为这也是有益的行为）。感谢Gilles指出这一点。

这仅使用内部字段分隔符来分隔字段。

相当... 健谈 ...

...天啊。我知道标签的东西很便宜，但我认为它至少很聪明。现在我刚参加晚会...

PHP，147个 145字节，2 1空间小号 - > 146

function    s(){foreach(glob("*")as$n){is_dir($n)&&chdir($n)&s()|chdir("..");if($n<$r=strtr($n," ",_)){while(file_exists($r))$r.=_;rename($n,$r);}}}

递归函数。与运行s(".");

遍历glob给定路径的结果：

• 如果目录，则递归
• 用下划线替换空格
• 如果字符串不同
  • 当使用新文件名时，请在下划线后加上
  • 重命名文件/目录

红宝石121

require 'find'

Find.find('.') do |file|
  if file.chomp.match(/ /)
    File.rename(file, file.gsub(/ /, '_'))
  end
end

Python，187

165，外加22个罚分。

from os import*
u='_';j=path.join
for t,d,f in walk('.',0):
 for z in f+d:
  n=z.replace(' ',u)
  if n!=z:
   while path.exists(j(t,n)):n+=u
   rename(j(t,z),j(t,n))

166，使用Emanuele的 \ t技巧：

这个只有一个空间！

from    os  import*
u='_';j=path.join
for t,d,f   in  walk('.',0):
    for z   in  f+d:
        n=z.replace(' ',u)
        if  n!=z:
            while   path.exists(j(t,n)):n+=u
            rename(j(t,z),j(t,n))

LiveScript-166

（用制表符替换空格。）

(a=->(s=require \fs)readdirSync(it)map (f)->f=it+'/'+f;r=f.replace /\s/g,i='';(while f!=r&&s.existsSync r=>r+=i++);s.statSync(f)isDirectory(s.renameSync f,r)&&a r) \.

基于nderscore的 优化版本的CPU1的答案。

重击4+ 111字节

shopt -s dotglob globstar
for f in **
do
n=${f// /}
while [[ $f != $n && -e $n ]]
do n+=1
done
mv "$f" $n
done

Groovy，139个字符

def c
c={
f->
def g=new File(f.parent,f.name.replaceAll('\\s',''))
f.renameTo(g)
!g.directory ?: g.eachFile(c)
}
new File('.').eachFile(c)

根据@ edc65评论

Groovy，处理碰撞，259个字符

def c
c={
p,l,f->
def g=new File(p,f.name.replaceAll('\\s',''))
f==g?:
(g.exists()?f.renameTo(g.toString()+l.indexOf(f.name)):f.renameTo(g))
!g.directory?:g.eachFile(c.curry(g,g.list().toList()))
}
def r=new File('.')
r.eachFile(c.curry(r,r.list().toList()))

POSIX（在zsh上测试）+基本的Linux命令151

export IFS='
'
for f in $(ls -R1);do export n=$(echo $f|tr ' ' '_');yes n|mv $f $n || yes n|mv $f `echo $n;echo $f|md5sum`
done