Як вирівняти список до конкретного символу?

Чи є команда чи набір команд, які я можу використовувати для горизонтального вирівнювання рядків тексту до довільного символу? Наприклад, зі списком адрес електронної пошти на виході буде створено текстовий файл із усіма символами '@', розташованими вертикально.

Для успіху я вважаю, що змінну кількість порожніх пробілів потрібно додати до початку більшості рядків. Я не хочу, щоб окремі стовпчики, оскільки вони вимагають більше зусиль для читання (наприклад, column -t -s "@" < file.txt).

Перед:

123@example.com
456789@example.net
01234@something-else.com

Після:

   123@example.com
456789@example.net
 01234@something-else.com

По-іншому: чи можу я вказати символ як опорну точку, навколо якої горизонтальний центр розташований навколишній текст? Мій приклад для цього - адреси електронної пошти, щоб полегшити візуальне сканування.

НЕ Awk. Тільки sedі column:

column -ts@ file.txt | sed -E 's/([^ ]+)([ ]+) (.+)/\2\1@\3/'

Вихід:

   123@example.com
456789@example.net
 01234@something-else.com

Тепер, коли я думаю про це, це майже те саме, що рішення Sundeep ', воно просто виглядає коротше / має менше дзвінків sed, а також передбачає, що @це відбувається лише один раз у кожному рядку.

У найпростішому випадку, ви можете просто надрукувати перше поле з відповідно великою шириною поля, наприклад

awk -F@ 'BEGIN{OFS=FS} {$1 = sprintf("%12s", $1)} 1' file
         123@example.com
      456789@example.net
       01234@something-else.com

Для будь-якого методу AFAIK, який не передбачає конкретної максимальної ширини поля, буде потрібно або зберегти файл у пам'яті, або зробити два проходи.

hacky рішення, передбачає багато про вхідний текст

$ # four commas to reduce chance of it affecting actual email address
$ sed 's/@/,,,,@/' ip.txt | column -t -s,,,,
123     @example.com
456789  @example.net
01234   @something-else.com

$ sed 's/@/,,,,@/' ip.txt | column -t -s,,,, | sed -E 's/^([^ ]+)( +)/\2\1/'
     123@example.com
  456789@example.net
   01234@something-else.com

Швидке рішення Python, яке використовує найкоротшу можливу довжину накладки, яка вирівнює право рядки зліва від роздільника:

#!/usr/bin/env python3
import sys
fieldsep = '@'
records = [line.rstrip('\n').split(fieldsep, 1) for line in sys.stdin]
col1_len = max((len(r[0]) for r in records), default=0)
for r in records:
    print(r[0].rjust(col1_len), r[1], sep=fieldsep)

Використання:

python3 align-field.py < data.txt

Ще одне рішення GNU awk+ column:

awk '{ split($0,a,/ +/,sep); printf "%*s@%s\n",length($1 sep[1])-2,$1,$2 }' <(column -ts'@' file)

Вихід:

   123@example.com
456789@example.net
 01234@something-else.com

Це може працювати і з маніпуляцією з рядком Баша.

Сценарій Bash (4.x):

#!/bin/bash

read -d '' -r -a data <"data.txt"

for ((pos=0, i=0; i<${#data[@]}; i++)); do
    locl=${data[$i]%@*}                         # The local-part.
    [[ ${#locl} -gt $pos ]] && pos=${#locl}     # Determine the lengthiest $locl.
done

for ((i=0; i<${#data[@]}; i++)); do
    email=${data[$i]}
    locl=${email%@*}                            # The local-part.
    domain=${email#*@}                          # The email domain.
    printf '%*s@%s\n' $pos $locl $domain        # Align $locl to the right, at $pos.
done

Результат:

   123@example.com
456789@example.net
 01234@something-else.com