Comment aligner la liste sur un caractère spécifique?

Existe-t-il une commande ou un ensemble de commandes que je peux utiliser pour aligner horizontalement des lignes de texte sur un caractère arbitraire? Par exemple, avec une liste d'adresses e-mail, la sortie produira un fichier texte avec tous les caractères '@' alignés verticalement.

Pour réussir, je crois qu'un nombre variable d'espaces vides doit être ajouté au début de la plupart des lignes. Je ne veux pas de colonnes séparées car elles prennent plus d'effort à lire (par exemple, column -t -s "@" < file.txt).

Avant:

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

Après:

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

Autrement dit: puis-je spécifier qu'un caractère soit un point d'ancrage autour duquel le texte environnant est centré horizontalement? Mon cas d'utilisation est celui des adresses e-mail, pour les rendre plus faciles à scanner visuellement.

NON Awk. Uniquement sedet column:

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

Production:

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

Maintenant, à mon avis, c'est presque la même que la solution de Sundeep, elle semble juste plus courte / a moins d'appels vers sed, et elle suppose également que @cela ne se produit qu'une seule fois sur chaque ligne.

Au plus simple, vous pouvez simplement imprimer le premier champ dans une largeur de champ suffisamment grande, par exemple

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

AFAIK toute méthode qui ne suppose pas une largeur de champ maximale spécifique nécessitera soit de conserver le fichier en mémoire, soit d'effectuer deux passes.

solution hacky, suppose beaucoup de choses sur le texte d'entrée

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

Une solution Python rapide qui utilise la longueur de remplissage la plus courte possible qui aligne à droite toutes les chaînes à gauche du séparateur:

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

Usage:

python3 align-field.py < data.txt

Une autre solution GNU awk+ column:

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

Le résultat:

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

Cela peut également fonctionner avec la manipulation de chaînes Bash.

Script 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

Le résultat:

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