У меня есть строка, как: dog cat bird whale
И я хочу получить dog dog cat cat bird bird whale whale
Все слова в одной строке. Любая идея?
Добавление в семейство решений :-).
duplicator.sh
:
for i; do echo -n "$i $i "; done; echo
Сделайте исполняемый файл и теперь:
$ ./duplicator.sh dog cat bird whale
dog dog cat cat bird bird whale whale
В качестве альтернативы в качестве функции оболочки, например, для повторного использования в скрипте:
duplicator() {
for i; do echo -n "$i $i "; done; echo
}
который затем может быть запущен непосредственно там, где определяется как
duplicator dog cat bird whale
Вы можете использовать sed
:
sed -r 's/(\S+)/\1 \1/g' filename
Если вы хотите сохранить изменения в файле на месте, скажите:
sed -i -r 's/(\S+)/\1 \1/g' filename
Вы также можете использовать perl
:
perl -M5.10.0 -ne 'say join " ", map{$_, $_} split " ";' filename
(Добавьте параметр -i
чтобы сохранить изменения в файле на месте.)
Или, как предполагает Тердон:
perl -M5.10.0 -ane 'say join " ", map{$_, $_} @F;' filename
Цитата из perlvar
:
@F
Массив
@F
содержит поля каждой строки, считываемой при включении режима автоматического разделения. Смотрите perlrun для параметра-a
. Этот массив зависит от пакета и должен быть объявлен или иметь полное имя пакета, если он не указан в основном пакете при работе подstrict 'vars'
.
Что бы это было без ответа awk/gawk
:
$ awk '{ for(i=1;i<=NF+1;i+=1/2) { printf("%s ",$i); }}' <<<"dog cat bird whale"
dog dog cat cat bird bird whale whale
Если важен завершающий перевод строки:
$ awk '{ for(i=1;i<=NF+1;i+=1/2) { printf("%s ",$i); }} END{print ""}' <<<"dog cat bird whale"
s="dog cat bird wale"
ss=$( tr ' ' '\n' <<< "$s" | sed p | tr '\n' ' ' )
echo "$ss"
dog dog cat cat bird bird wale wale
Если у вас есть строка в переменной, скажем, foo="dog cat bird whale"
, вы можете сделать:
Чистая Баш:
$ echo "$foo" | (read a b c d && echo "$a $a $b $b $c $c $d $d")
dog dog cat cat bird bird whale whale
Объяснение: Скобки нужны для того, чтобы read
и echo
происходили в одной и той же подоболочке и поэтому могли иметь общие переменные. Без них echo
просто напечатало бы пустую строку.
Coreutils:
$ join -j 5 -o 1.1,1.1,1.2,1.2,1.3,1.3,1.4,1.4 <(echo $foo) <(echo)
dog dog cat cat bird bird whale whale
Объяснение: Флаг -o
join
позволяет вам установить формат вывода. Здесь я советую напечатать 1-е поле 1-го файла (1.1
), затем 2-е поле 1-го файла (1.2
) и т.д. Таким образом, каждое поле 1-го файла печатается дважды. Однако, join
предназначено для объединения двух строк ввода в общем поле. Поэтому я также пропускаю пустую строку (<(echo)
) и затем игнорирую ее. -j
устанавливает поле соединения, устанавливая его в несуществующее (5-е) поле, заставляя join
печатать всю строку.
Если вам не нужны пробелы или порядок ввода, вы можете сделать
$ paste <(echo $foo) <(echo $foo)
dog cat bird wale dog cat bird wale
Perl 1:
$ echo $foo | perl -lane 'push @k, $_,$_ for @F; print "@k"'
dog dog cat cat bird bird whale whale
Объяснение:
-l: adds a newline to each print call (among other things)
-a: turns on field splitting, fields are saved as @F
-n: process input line by line
-e: give a script as a command line parameter.
Сценарий выше сохранит каждое поле (из @F
) дважды в массиве @k
а затем напечатает @k
. Если вам не нужен завершающий перевод строки, вы можете упростить до
$ echo $foo | perl -ane 'print " $_ $_" for @F'
Perl 2:
$ echo $foo | perl -0040 -pne 'print "$_"' | paste - -
dog dog cat cat bird bird whale whale
Объяснение: Опция -0
устанавливает разделитель входных записей (как шестнадцатеричное или восьмеричное число, см. Здесь для преобразования). Здесь я устанавливаю восьмеричное 040
которое является пробелом. -p
заставляет perl
печатать каждую входную "строку", и поскольку мы установили разделитель записей на пробел, строки теперь определяются пробелами, поэтому каждое поле печатается дважды.
awk
:
$ echo $foo | awk '{for(i=1;i<=NF;i++){$i=$i" "$i;} 1;}'
dog dog cat cat bird bird whale whale
Объяснение: NF
- это число полей, поэтому приведенный выше скрипт просматривает каждое поле и добавляет его к себе. Как только это будет сделано, мы печатаем строку (1;
это просто сокращение для печати).
Теперь для python
ответ:
Из командной строки:
$ python -c "import sys; s=sys.argv[1:]; print(' '.join(j for i in zip(s,s)for j in i));" dog cat bird whale
Из стандартного ввода:
$ python -c "s=input().split(); print(' '.join(j for i in zip(s,s)for j in i));" <<<"dog cat bird whale"
Результат в обоих случаях:
dog dog cat cat bird bird whale whale
Немного чрезмерно, но ответ на haskell
:
$ ghc -e "getLine >>= putStrLn . unwords . (concatMap $ replicate 2) . words" <<<"dog cat bird whale"
dog dog cat cat bird bird whale whale
Другой подход, также использующий только встроенные команды bash
$ string="dog cat bird whale"
$ twix() { while [[ ! -z $1 ]]; do printf "%s %s " $1 $1; shift; done; }
$ twix $string
dog dog cat cat bird bird whale whale
Я не вижу никаких преимуществ по сравнению с основным ответом, просто чтобы показать немного другой способ, который может быть лучше подходит для некоторых целей.