Программирование на языке Ruby

 arr1 = [1, 2, 3, 4]
 arr2 = [5, 10, 15, 20]
 compose(arr1, arr2) {|a,b| puts "#{а} и #{b}" }

 # Должно быть напечатано:
 # 1 и 5
 # 2 и 10
 # 3 и 15
 # 4 и 20

Можно было бы, конечно, использовать для этой цели zip. Но если нужно более элегантное решение, при котором все элементы не будут храниться одновременно, то без потоков не обойтись. Такое решение представлено в листинге 13.7.

Листинг 13.7. Параллельные итераторы

 def compose(*objects)
  threads = []
  for obj in objects do
  threads << Thread.new(obj) do |myobj|
  me = Thread.current
  me[:queue] = []
  myobj.each {|x| me[:queue].push(x) }
  end
  end

  list = [0] # Фиктивное значение, отличное от nil.
  while list.nitems > 0 do # Еще есть не nil.
  list = []
  for thr in threads
  list << thr[:queue].shift # Удалить по одному из каждого.
  end
  yield list if list.nitems > 0 # He вызывать yield, если все равны nil.
  end
 end

 x = [1, 2, 3, 4, 5, 6, 7, 8]
 y = " первый\n второй\n третий\n четвертый\n пятый\n"
 z = %w[a b с d e f]

 compose(x, у, z) {|a,b,c| p [a, b, c] }

 # Выводится:
 # [1, " первый\n", "a"]
 # [2, " второй\n", "b"]
 # [3, " третий\n", "c"]
 # [4, " четвертый\n", "d"]
 # [5, " пятый\n", "e"]
 # [6, nil, "f"]
 # [7, nil, nil]
 # [8, nil, nil]

Обратите внимание: мы не предполагаем, что все объекты имеют одно и то же число элементов. Если один итератор доходит до конца раньше остальных, то он будет генерировать значения nil до тех пор, пока не закончит работу «самый длинный» итератор.

Конечно, можно написать и более общий метод, который на каждой итерации будет обрабатывать более одного элемента. (В конце концов, не все итераторы возвращают по одному значению за раз.) Можно было бы в первом параметре передавать число значений для каждого итератора.

Можно также пользоваться произвольными итераторами (а не только стандартным each). Их имена можно было бы передавать в виде строк, а вызывать с помощью метода send. Много чего еще можно придумать.

Впрочем, мы полагаем, что приведенного кода достаточно для большинства целей. Вариации на эту тему оставляем читателю в качестве упражнения.

13.2.10. Параллельное рекурсивное удаление

Забавы ради напишем код, который будет удалять дерево каталогов. Процедура рекурсивного удаления использует потоки. Как только обнаруживается очередной подкаталог, мы запускаем новый поток, который будет обходить его и удалять содержимое.

Созданные в ходе работы программы потоки хранятся в массиве threads. Поскольку это локальная переменная, у каждого потока будет собственная копия массива. Раз к ней может обращаться всего один поток, синхронизировать доступ не надо.

Отметим также, что в блок потока передается полное имя файла fullname, чтобы не нужно было беспокоиться по поводу того, что поток обращается к переменной, которую кто-то еще изменяет. Поток делает для себя локальную копию fn этой переменной.

Прежде чем удалять очередной каталог, мы должны дождаться завершения всех созданных в процессе его обхода потоков.

 def delete_all(dir)
  threads = []
  Dir.foreach(dir) do |e|
  next if [".",".."].include? e # Пропустить . и ..
  fullname = dir + "/" + e
  if FileTest.directory?(fullname)
  threads << Thread.new(fullname) {|fn| delete_all(fn) }
  else
  File.delete(fullname)
  end
  end
  threads.each { |t| t.join }
  Dir.delete(dir)
 end
 delete_all("/tmp/stuff")

Будет ли работать такая программа быстрее, чем ее вариант без потоков? В наших тестах получалось по-разному. Возможно, это зависит от операционной системы и структуры конкретного каталога — глубины, количества файлов и т.д.

13.3. Заключение

Как было сказано, в Ruby не используются платформенные потоки. Программа не станет работать быстрее при наличии нескольких процессоров, но некоторого распараллеливания работы достичь все же можно. Потоки полезны во многих случаях» но писать и отлаживать многопоточную программу довольно трудно, особенно если для получения правильного результата приходится применять изощренные способы синхронизации.

Для синхронизации Ruby предоставляет такие классы, как Mutex, Monitor и ConditionVariable. Имеются также безопасные относительно потоков классы очередей Queue и SizedQueue.

В главе 14 мы перейдем от обсуждения техники программирования к решению конкретных задач, а именно сценариев системного администрирования.

Глава 14. Сценарии и системное администрирование

И сказал главный программист: «Даже если программа состоит всего из трех строчек, когда-то ее придется сопровождать».

Джеффри Джеймс, «Дао программирования»

Программистам часто приходится писать небольшие сценарии для запуска внешних программ и работы с операционной системой на достаточно высоком уровне. Особенно это относится к ОС UNIX, где для повседневной работы составляются многочисленные сценарии на языке интерпретатора команд (shell).