¿Cómo alinear la lista a un personaje específico?

¿Hay algún comando o conjunto de comandos que pueda usar para alinear horizontalmente líneas de texto con un carácter arbitrario? Por ejemplo, con una lista de direcciones de correo electrónico, la salida produciría un archivo de texto con todos los caracteres '@' alineados verticalmente.

Para tener éxito, creo que se debe agregar un número variable de espacios vacíos al comienzo de la mayoría de las líneas. No quiero columnas separadas, ya que requieren más esfuerzo para leer (por ejemplo, column -t -s "@" < file.txt).

Antes de:

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

Después:

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

Dicho de otra manera: ¿puedo especificar que un carácter sea un punto de anclaje, alrededor del cual el texto circundante está centrado horizontalmente? Mi caso de uso para esto son las direcciones de correo electrónico, para que sean más fáciles de escanear visualmente.

NO Awk. Solo sedy column:

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

Salida:

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

Ahora, en lo que pienso, esto es casi lo mismo que la solución de Sundeep ', solo parece más corto / tiene menos llamadas sed, y también supone que @sucede solo una vez en cada línea.

En su forma más simple, puede imprimir el primer campo en un ancho de campo adecuadamente grande, por ejemplo

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

AFAIK cualquier método que no asuma un ancho de campo máximo específico requerirá mantener el archivo en la memoria o hacer dos pases.

solución hacky, supone mucho sobre el texto de entrada

$ # 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

Una solución rápida de Python que utiliza la longitud de relleno más corta posible que alinea a la derecha todas las cadenas a la izquierda del separador:

#!/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)

Uso:

python3 align-field.py < data.txt

Otra solución GNU awk+ column:

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

La salida:

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

Esto también puede funcionar con la manipulación de cadenas Bash.

Bash script (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

El resultado:

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