rulinux.net - Все о GNU/Linux и не только - Форум - Talks - [bash] задачка под конец рабочего дня

anonymous@RULINUX.NET~#	Last login: 2024-11-02 18:36:48
Регистрация Вход	Новости \| Разметка \| Пользователи \| Галерея \| Форум \| Статьи \| Неподтвержденное \| Трекер \| Правила форума \| F.A.Q. \| Ссылки \| Поиск

Форум - Talks

[RSS]

[#]

[Добавить метку]

[Редактировать]

[bash] задачка под конец рабочего дня

Да, у меня давно рабочий день и башка не варит, а задач еще много.

Вот вам задачка:

есть директория /files/, в ней около 200к файлов и много директорий, поддериктрий и еще кучи файлов в каждой из них. В именах файлов встречаются пробелы(!) и дефисы. Необходимо переименовать все файлы так, чтобы вместо "name-name" было "name - name". То есть, все дефисы заменить на те же дефисы, но с пробелами по обе стороны. Все просто, и я даже такие задачки решать люблю. Но, блин, не под конец 12-часовой смены :(

vitroot(*) (2011-12-18 17:04:50)
Отредактировано vitroot по причине "не указана"
Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7

[Ответить на это сообщение]

Firefox стал слишком большим для 32-рязрядной Windows

[#]

[Добавить метку]

[Редактировать]

Ответ на: [bash] задачка под конец рабочего дня от vitroot 2011-12-18 17:04:50

Re:[bash] задачка под конец рабочего дня

for p in *; do mv "$p" "${p//-/ - /}"; done

ну или rm -rf *

anonymous(*)(2011-12-18 17:13:27)

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от anonymous 2011-12-18 17:13:27

Re:[bash] задачка под конец рабочего дня

не пойдет, переименует и директории, а если зациклишь в find'е, то потом будет запарка с переносами строк, потому что он пробелов левых наштампует

vitroot(*)(2011-12-18 17:26:56)

Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: [bash] задачка под конец рабочего дня от vitroot 2011-12-18 17:04:50

Re:[bash] задачка под конец рабочего дня

Для текущего каталога типа так (из Advanced Bash-Scripting Guide :) Попробовать на каком-то одном каталоге. Получится - применить скрипт рекурсивно.

bash





#! /bin/bash

# blank-rename.sh

#

# Заменяет дефисы на " - " в именах файлов в текущем каталоге.



ONE=1                     # единственное или множественное число (см. ниже).

number=0                  # Количество переименованных файлов.

FOUND=0                   # Код завершения в случае успеха.



for filename in *         # Перебор всех файлов в текущем каталоге.

do

     echo "$filename" | grep -q "-"         #  Проверить -- содержит ли имя файла

     if [ $? -eq $FOUND ]                   #+ дефисы.

     then

       fname=$filename                      # Удалить путь из имени файла.

       n=`echo $fname | sed -e "s/-/ - /g"`   # Заменить дефисы на дефисы с пробелами.

       mv "$fname" "$n"                     # Переименование.

       let "number += 1"

     fi

done



if [ "$number" -eq "$ONE" ]

then

 echo "$number файл переименован."

else

 echo "Переименовано файлов: $number"

fi



exit 0

Bod(*)(2011-12-18 17:28:41)

Mozilla/5.0 (X11; Linux i686; rv:8.0) Gecko/20100101 Firefox/8.0 Iceweasel/8.0

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от Bod 2011-12-18 17:28:41

Re:[bash] задачка под конец рабочего дня

э.. а пути-то старые сохранить надо :)

vitroot(*)(2011-12-18 17:39:03)

Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: [bash] задачка под конец рабочего дня от vitroot 2011-12-18 17:04:50

Re:[bash] задачка под конец рабочего дня

krename для кого писан? :)

Hokum(*)(2011-12-18 18:45:30)

Mozilla/5.0 (X11; Linux x86_64; rv:8.0.1) Gecko/20100101 Firefox/8.0.1

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от vitroot 2011-12-18 17:26:56

Re:[bash] задачка под конец рабочего дня

> не пойдет, переименует и директории
Что ты ноешь? if [ -d "$p" ] then cd "$p"; <вызвать этот же сценарий>; cd ..; else <то, что было раньше> fi

anonymous(*)(2011-12-18 18:45:30)

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от Hokum 2011-12-18 18:45:30

Re:[bash] задачка под конец рабочего дня

>>krename
очень смешно :)

vitroot(*)(2011-12-18 18:58:41)

Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: [bash] задачка под конец рабочего дня от vitroot 2011-12-18 17:04:50

Re:[bash] задачка под конец рабочего дня

Я бы заюзал дефолтные удилиты без баша

что то вида find -type f -name '*.xxx' -exec rename 's/-/ - /' {} \;

Конечно не быстро но зато просто...

Id(*)(2011-12-18 19:11:44)

Mozilla/5.0 (Linux i686) AppleWebKit/535.4+ (KHTML, like Gecko) WebKitGTK+/1.6.1 luakit

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от Id 2011-12-18 19:11:44

Re:[bash] задачка под конец рабочего дня

и чем оно дефолтнее?

vitroot(*)(2011-12-18 19:18:35)

Mozilla/5.0 (X11; Linux i686) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: [bash] задачка под конец рабочего дня от vitroot 2011-12-18 17:04:50

Re:[bash] задачка под конец рабочего дня

Забудь о bash. Use PERL. Получится что-то вроде:

perl



opendir (DIR, $dir);

my @fileList = readdir DIR;

foreach my $oldname (@fileList) {

 next if -d $oldname;

 $oldname =~ /([a-zA-Z0-9_]*)-([a-zA-Z0-9_]*)/;

 $newname = $1 .. " - " .. $2;

 rename $oldname, $newname;

}

Есть скрипт ещё короче, но с зависимостью от File::Rename:

perl



use File::Rename qw(rename);

my @list = `dir`;

rename @list, sub { s/мне-лень-писать/регэксп/ }, 1;

Протестировать регэкспы можно тут, тут или тут.

На чистом bash, думаю, придётся связывать в одну команду cat, sed и mv.

Oreolek(*)(2011-12-18 20:04:11)
Отредактировано Oreolek по причине "не указана"

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от vitroot 2011-12-18 19:18:35

Re:[bash] задачка под конец рабочего дня

>и чем оно дефолтнее?
дефолтностью очевидноже, особенно для конца ненормированного раб дня.

В дебе стоит по умолчанию, центосах и сайнтифике не помню, возможно нет.

Тогда +1 к чистому перлу.

Id(*)(2011-12-18 20:16:33)

Mozilla/5.0 (Linux i686) AppleWebKit/535.4+ (KHTML, like Gecko) WebKitGTK+/1.6.1 luakit

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от Oreolek 2011-12-18 20:04:11

Re:[bash] задачка под конец рабочего дня

> На чистом bash, думаю, придётся связывать в одну команду cat, sed и mv.
На баше я привёл пример без всяких cat и sed. Только mv. И даже с заходом в поддиректории и выполнением сценария там.

anonymous(*)(2011-12-18 21:38:35)

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: [bash] задачка под конец рабочего дня от vitroot 2011-12-18 17:04:50

Re:[bash] задачка под конец рабочего дня

Вы все тут невероятно скучные.

scheme



#!/usr/bin/guile \

-e main -s

!#

(use-modules (ice-9 ftw)

             (ice-9 regex))



(define (main args)

  (let ((ri (make-regexp "([^ ])-([^ ])")))

    (ftw (list-ref args 1)

         (lambda (filename statinfo flag)

           (if (eq? flag 'regular)

               (let ((new-path (format #f "~a/~a" (dirname filename)

                                       (regexp-substitute/global #f ri

                                                                 (basename filename)

                                                                 'pre 1 " - " 2 'post))))

                 (if (string=? new-path filename)

                     (format #t "~a named properly" filename)                    

                     (begin (format #t "Renaming ~a to ~a" filename new-path)

                            (rename-file filename new-path))))

               (format #t "~a not a regular file" filename))

           (newline)

           #t))))

Использовать как ./mysuperguilescript.scm /path/to/dir.

SystemV(*)(2011-12-18 22:04:44)

Emacs-w3m/1.4.414 w3m/0.5.3

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от SystemV 2011-12-18 22:04:44

Re:[bash] задачка под конец рабочего дня

На похапэ чтоли накатать скрипт тогда. Или еще хлеще на С++/Qt.

Tux-oid(*)(2011-12-18 22:11:20)

Mozilla/5.0 (X11; Linux i686; rv:8.0.1) Gecko/20111121 Firefox/8.0.1 SeaMonkey/2.5

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от SystemV 2011-12-18 22:04:44

Re:[bash] задачка под конец рабочего дня

Еще в номинации думаю могут поучаствовать программы

rename на ассемблере без использования системных вызовов и внешних библиотек

и

rename на basic переименования N файлов не используя циклы и рекурсии.

Id(*)(2011-12-18 22:13:42)
Отредактировано Id по причине -
Mozilla/5.0 (Linux i686) AppleWebKit/535.4+ (KHTML, like Gecko) WebKitGTK+/1.6.1 luakit

[Ответить на это сообщение]

[#]

[Добавить метку]

[Редактировать]

Ответ на: Re:[bash] задачка под конец рабочего дня от Tux-oid 2011-12-18 22:11:20

Re:[bash] задачка под конец рабочего дня

>На похапэ чтоли накатать скрипт тогда. Или еще хлеще на С++/Qt.
На qt5 с QML-гуём и анимацией:)

SystemV(*)(2011-12-18 22:16:47)

Emacs-w3m/1.4.414 w3m/0.5.3

[Ответить на это сообщение]

Firefox стал слишком большим для 32-рязрядной Windows

Этот тред читают 11 пользователей:
Анонимных: 11 Зарегистрированных: 0

(c) 2010-2020 LOR-NG Developers Group
Powered by TimeMachine