rulinux.net - Форум - Talks - [bash] задачка под конец рабочего дня

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

Sun, 18 Dec 2011 18:16:47 +0400

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

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

Sun, 18 Dec 2011 18:13:42 +0400

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

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

и

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

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

Sun, 18 Dec 2011 18:11:20 +0400

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

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

Sun, 18 Dec 2011 18:04:44 +0400

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

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.

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

Sun, 18 Dec 2011 17:38:35 +0400

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

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

Sun, 18 Dec 2011 16:16:33 +0400

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

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

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

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

Sun, 18 Dec 2011 16:04:11 +0400

Забудь о 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.

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

Sun, 18 Dec 2011 15:18:35 +0400

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

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

Sun, 18 Dec 2011 15:11:44 +0400

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

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

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

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

Sun, 18 Dec 2011 14:58:41 +0400

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

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

Sun, 18 Dec 2011 14:45:30 +0400

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

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

Sun, 18 Dec 2011 14:45:30 +0400

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

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

Sun, 18 Dec 2011 13:39:03 +0400

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

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

Sun, 18 Dec 2011 13:28:41 +0400

Для текущего каталога типа так (из 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

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

Sun, 18 Dec 2011 13:26:56 +0400

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

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

Sun, 18 Dec 2011 13:13:27 +0400

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

ну или rm -rf *

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

Sun, 18 Dec 2011 13:04:50 +0400

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

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

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