|
ru.linux- RU.LINUX --------------------------------------------------------------------- From : Maksim Pozdeyev 2:5090/67.6 24 Apr 2002 10:47:40 To : Dmitry Merkotan Subject : Re: пробелы в именах файлов заменить, например, на "_" -------------------------------------------------------------------------------- 24 Апр 02 02:46, Dmitry Merkotan -> All: DM> Как пробелы в именах файлов всего каталога заменить, например, на "_"? DM> Пример баш-скрипта/команды в командной строке/.... Вот на перле: #!/usr/bin/perl -w #------------------------------------------------------------------------------ # Данный скрипт заменяет в именах файлов в каталоге и подкаталогах # пробелы на подчеркивание # 2002(с) by Barlog Moriasky #------------------------------------------------------------------------------ use locale; use strict; use File::Find; #------------------------------------------------------------------------------ my $result = ""; my $inName = ""; #------------------------------------------------------------------------------ sub file_rename { $inName = $_; $_ =~ s/\s+/_/g; if (rename($inName, $_)) {$result = "done";} else {my $result = "error!";}; print ($result, "\t", $_,"\n"); }; #------------------------------------------------------------------------------ if ($ARGV[0] eq "") { print("spaceoff v1.0 2001(c) by Barlog для личных нужд.\n"); print("Заменяет пробелы на подчеркивания в именах файлов\n"); print("в указанной директории.\n"); } else { find(\&file_rename, $ARGV[0]); }; #------------------------------------------------------------------------------ -- Всего наилучшего. Maksim Pozdeyev aka Barlog M. --- GoldED+/W32 1.1.5-20010807 * Origin: От Парижа до Hаходки с водкой лучше чем без водки! (2:5090/67.6) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.linux/28303cc61d15.html, оценка из 5, голосов 10
|