Быстрое транспонирование на тон вниз

shoorick — 27.08.2025

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

  D                 A       D     G     A     D
|-------------------------|-------------------------|
|-------------------------|-------------------------|
|-5-----------5-----------|-5-----------------5-----|
|-------5-----------5-----|-------3-----5-----------|

Verse: 'They've got cars big as bars...'
  D     A     Bm    G       D                 A
|-------------------------|-------------------------|
|-------------------------|-------------------------|
|-5-----------2-----------|-5-----------5-----------|
|-------5-----------3-----|-------5-----------5-----|

не идёт вспоминать сольфеджию, а пишет однострочную команду:

perl -ple 's/-(\d+)/sprintf("-%d", $1-2)/ge;s/\b([A-H])(m?)\b/sprintf("%s%s", chr(ord($1)-1), $2)/ge;s/ @( |$)/ G$1/g' d-tab.txt > c-tab.txt

shoorick.ru/2025/08/27/transpose-down

Оставить комментарий

Популярные посты:

severus

Надёжная внутренняя связь на предприятии: всё о VoIP-шлюзах, IP-телефонах и АТС МиниКом

kirill_shatilov

"A Grey Area" — там, где всё мутно, а спорить можно вечно

miukitten

У котиков лапки

new_rabochy

О советской цементной промышленности в 1987 году (только факты)

belka_na_dereve

Про жизнь

cand_orel

День рождения. Питер Хэммилл (Van der Graaf Generator)

colonelcassad

Свадьба в Донецке

bohemicus

Туринская тётушка и Kружок читателей

tiketiger

Зайцы-обнимайцы — серия последняя

• Архив