Отримайте всі можливі комбінації слова малими та малими літерами

Я хочу написати скрипт bash для друку всіх можливих перестановок нижнього та верхнього регістру певного слова, наприклад, harley:

harley
harleY
harlEy
harLey
...
HARLey
HARLEy
HARLEY

Моє наївне рішення - написати n-го (n є len (слово)) вкладене для-циклу для цього конкретного слова:

#!/bin/bash
for a in {h,H}; do
    for b in {a,A}; do
    ...
    done
done

Однак мені доведеться знову кодувати сценарій для іншого слова.

Чи є кращий спосіб досягти цього?

Трохи краще рішення:

echo {h,H}{a,A}{r,R}{l,L}{e,E}{y,Y}

Для повної масштабованості:

echo harley \
| perl -nle 'print "echo ",
                    join "",map { "{" . lc . "," .uc ."}" } split //' \
| xargs -I {} bash -c "{}"

Якщо ви абсолютно повинні мати одне слово на рядок, перейдіть з

for w in {h,H}{a,A}{r,R}{l,L}{e,E}{y,Y};do echo $w;done

завдяки коментарю mattdm

Відповідна масштабована версія буде:

echo harley \
| perl -nle 'print join "",map { "{" . lc . "," .uc ."}" } split //' \
| xargs -I {} bash -c 'for w in {};do echo $w;done'

Для задоволення спробуйте замінити "harley" на "supercalifragilisticexpialidocious" Минуло 5 хвилин, і мій комп'ютер все ще хрумтить на цьому і, ймовірно, ніколи не закінчиться :)

eval echo $ (ехо " слово " | sed 's /./ {\ U &, \ L &} / g')

• sed 's/./{&,&}/g'перетвориться Fooна {F,F}{o,o}{o,o}, що було б досить марно. Але додайте \Uі, \Lі ви отримаєте верхній і нижній регістр кожної літери; тобто {F,f}{O,o}{O,o}.
• Тоді це простий предмет використання, evalщоб сказати оболонці для розширення послідовностей дужок { X , x }.

EDIT 2: Ця відповідь неправильна. Він не створює 2 ^ n комбінацій, як слід.

EDIT: Я не знаю чому, але це рішення справді швидко порівняно з рішенням perl від @Joeseph R. Він запускає "Supercalifragilisticexpialidocious" менш ніж за 0,3 секунди!

Ось моя тріщина в цьому:

#!/bin/bash

str=${1^^}  # convert to uppercase
len=${#str} # get length of string

for ((perm=0; perm <= len; perm++)); do
    for ((i=0; i <= len; i++)); do
        lower=${str,,}   # convert to lowercase

        # Uppercase n-th letter for permutation
        if [ $perm -gt 0 ]; then
            nth=${lower:perm-1}
            lower=$(echo ${lower:0:perm-1}${nth^})
        fi

        echo -n ${str:0:i} # print orig string from 0 to $i
        echo ${lower:i}    # print new string from $i to end
    done
done | sort -u

Запуск:

$ ./permutations.sh hi
hi
hI
Hi
HI

$ ./permutations.sh harley
harley
harleY
harlEy
harLey
haRley
hArley
Harley
HarleY
HarlEy
HarLey
HaRley
HArley
HArleY
HArlEy
HArLey
HARley
HARleY
HARlEy
HARLey
HARLeY
HARLEy
HARLEY

Не соромтеся роздвоювати та змінювати, я впевнений, що це можна оптимізувати. https://gist.github.com/ryanmjacobs/4c02ad80f833dee0c307

Якщо ви віддаєте перевагу використовувати готові інструменти замість кодування, ви можете використовувати TextMechanic (інструмент генератора перестановки / комбінування) та Unit-Conversion.info