To jest proste. Nie mogę znieść, gdy ludzie używają spacji podczas nazywania plików. Czasami psuje polecenia konsoli i powoduje, że wyjście ls jest brzydkie.

Wyzwanie polega na napisaniu programu (tylko znaki ascii), który

1. zmienia nazwy wszystkich plików (w tym katalogów) w bieżącym katalogu na wersje ze spacjami usuniętymi lub zastąpionymi przez „_”
2. w przypadku kolizji musisz dołączyć unikalny identyfikator (do ciebie)
3. schodzi rekurencyjnie do wszystkich podkatalogów

Możesz założyć nazwy ścieżek w stylu UNIX. Kto i tak potrzebowałby tego programu na komputerze z systemem Windows?

To jest kod golfowy, wygrywa najkrótszy program (znaki #ascii). Ponieważ tak bardzo nienawidzę spacji, każde pole musi zostać policzone dwukrotnie.

Podaj swój język, wynik, program i krótki opis tego, jak go uruchomić.

Program musi się skompilować i uruchomić z rozsądnym wysiłkiem na moim komputerze z systemem Linux.

EDYCJA: Ponieważ Etan poprosił o strukturę plików do testowania, oto skrypt, którego obecnie używam do utworzenia odpowiedniego drzewa plików:

#!/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

Coreshils Zsh + GNU - 48 bajtów (1 spacja)

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

To dziwne, że nienawidzisz spacji (ASCII), ale nie masz nic przeciwko tabulatorom i nowym wierszom, ale myślę, że zajmuje to wszystko.

zmv rozwiązuje wiele problemów związanych ze zmianą nazw plików zwięźle (i tylko nieco niejasno). Podkreśla jednak, że cele są wyjątkowe; chociaż możesz łatwo dodawać unikalne sufiksy, dodawanie sufiksu tylko wtedy, gdy byłoby to potrzebne, wymaga ponownego wykonania całej pracy. Zamiast tego zapętlam ręcznie i polegam na GNU mv w celu dołączenia unikalnego identyfikatora w przypadku kolizji ( --backupopcja, plus --no-target-directoryw przypadku, gdy celem jest istniejący katalog, ponieważ w przeciwnym mvrazie przeniesie źródło do tego katalogu).

(od)jest globalnym kwalifikatorem do sortowania danych wyjściowych z katalogami pojawiającymi się po ich zawartości (np. find's -depth). Dzawiera pliki kropek w glob. :hi :tsą modyfikatorami historii podobnymi do dirnamei basename.

mvnarzeka, że ​​wezwanie do zmiany nazw plików na siebie, ponieważ glob zawiera nazwy plików bez spacji. C'est la vie.

Wersja bez golfa:

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

Bash 116 bajtów, 16 spacji

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

Nie pomijałem błędów, aby uzyskać jeszcze kilka bajtów. To nie spowoduje żadnych kolizji.

Jeśli findmożna oczekiwać GNU niep Posix , można to jeszcze bardziej skrócić:

Bash 110 bajtów, 15 spacji

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

Usuwanie spacji zamiast ich zastępowania powoduje użycie dwóch mniej bajtów:

Bash 108 bajtów, 15 spacji

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

Uwaga: jeśli zamiast spacji można użyć tabulatorów, potrzebna jest tylko 1 spacja (ta w regule dopasowania do zamiany w linii 2).

Podziękowania dla Dennisa za znalezienie błędu przy podwójnej wycenie (i zapewnienie rozwiązania)

Python 180 bajtów

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)

tylko 2 spacje, jeśli używasz tabulacji do wcięcia :-)

Jeśli kolejność przyrostków plików kolidujących nie musi dawać precedensu wcześniej istniejącemu plikowi, wówczas dla mnie działa:

bash / find / mv 84 bajtów, 16 spacji

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

bash / find / mv 82 bajty, 14 spacji

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

Przytulony, &&aby zaoszczędzić dwa bajty miejsca.

bash / find / mv 60 bajtów, 11 spacji

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

Wyłącza ochronę przed błędami, aby uzyskać błędy z mv w plikach, które nie mają spacji na początek.

Edycja: Usunięto cytaty z {}przypomnienia Dennisa. Pozwolono także findkrzyczeć na temat przenośności i wycofania w najkrótszej wersji, w której mvjuż krzyczy o przeniesieniu pliku na siebie.

Edycja 2: Dodano -Tdo mvpolecenia, aby uniknąć zagnieżdżania katalogów zamiast zmiany nazwy, jak wskazał pqnet. Użyto rozszerzenia nawiasów klamrowych kosztem jednej postaci, a nie tylko jednego miejsca.

NodeJS - 209 bajtów, 3 białe znaki

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('.');

Bash - 86 bajtów

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

Bash + Perl rename64

( renamejest skryptem Perla dla Debiana i pochodnych, a nie komendą util-linux).

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

POSIX sh+ GNU find+ GNU mv67 bajtów ASCII + jedna (dosłowna) spacja

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

Nie wiem, czy to pasuje, ale z tym każda sekwencja spacji jest łączona w jedną _- i tak mi się podoba. Właściwie każda sekwencja, ale spacje wiodące / końcowe, które są - są one automatycznie obcinane (co, jak sądzę, jest również korzystnym zachowaniem) . Dzięki Gillesowi za zwrócenie na to uwagi.

To po prostu używa wewnętrznego separatora pól do oddzielenia pól.

Jest dość ... gadatliwy ...

...o stary. Wiedziałem, że zakładka jest tania, ale myślałem, że przynajmniej sprytna. Teraz jestem spóźniony na imprezę ...

PHP, 147 145 bajtów, 2 1 spacje s -> 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);}}}

funkcja rekurencyjna. Biegnij zs(".");

Pętla przez globwyniki dla danej ścieżki:

• jeśli katalog, powtórz
• zastąp spacje znakiem podkreślenia
• jeśli łańcuchy się różnią
  • podczas pobierania nowej nazwy pliku dołącz podkreślnik
  • zmień nazwę pliku / katalogu

Ruby 121

require 'find'

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

Python, 187

165, plus 22 punkty karne za pola.

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, używając sztuczki Emanuele'a :

Tylko jedna przestrzeń w tym!

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

(Zastąp spacje tabulatorami.)

(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) \.

Na podstawie nderscore za zoptymalizowanej wersji z CPU1 „s odpowiedź .

Bash 4+ 111 bajtów

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 znaków

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)

zgodnie z komentarzem @ edc65

Groovy, radzić sobie z kolizjami, 259 znaków

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 (testowany na zsh) + podstawowe komendy Linuksa 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