Zen #FF

Dir.foreach(".") {|file| File.rename(file, file.gsub("Ярлык для ", "")) if file != "." && file != ".."}

-module(cleaner_tool).

-import(file).

-export([start/0, clean_file_names/1]).

start()->

    {ok, Files} = file:list_dir("."),

    clean_file_names(Files).

clean_file_names([CurrentFile|RestFiles]) ->

    IndexOfThrahsEnd = string:span(CurrentFile, "Ярлык для "),

    case (IndexOfThrahsEnd == 10) of

        true -> FileNameWithoutTrash = string:sub_string(CurrentFile, IndexOfThrahsEnd +1),

file:rename(CurrentFile, FileNameWithoutTrash ), clean_file_names(RestFiles);

        false -> clean_file_names(RestFiles)

    end;

clean_file_names([])-> io:format("Done").