リストを特定のキャラクターに合わせる方法は？

テキストの行を任意の文字に水平方向に揃えるために使用できるコマンドまたはコマンドのセットはありますか？たとえば、電子メールアドレスのリストを使用すると、すべての「@」文字が縦に並んだテキストファイルが出力されます。

成功するには、ほとんどの行の先頭に可変数の空のスペースを追加する必要があると思います。読み取りに多くの労力がかかるため、別々の列は必要ありません（たとえば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

別の言い方をすると、文字をアンカーポイントとして指定できますか？これの私のユースケースは、視覚的にスキャンしやすくするためのメールアドレスです。

いいえ のみsedとcolumn：

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

出力：

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

さて、私が考えると、これはSundeepのソリューションとほとんど同じで、短く見える/への呼び出しが少ないだけでなく、各行で1回だけ発生するsedことも想定してい@ます。

最も単純な場合、適切な大きなフィールド幅で最初のフィールドを印刷することができます。例えば

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

特定の最大フィールド幅を想定していないメソッドでは、ファイルをメモリに保持するか、2つのパスを作成する必要があります。

ハッキングソリューション、入力テキストについて多くのことを想定

$ # 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文字列操作でも機能します。

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