awk ステートメントは char 変数の数を出力し、機能しません。

Question

sprintf("%*s", n, string)文字列を長さに合わせて左に塗りつぶします（実装に応じてバイト数または文字数 awk）。n スペースがあります。

文字列をn回繰り返すには、ヘルパー関数を作成します。

function repeat(n, string,  result) {
  while (n-- > 0) result = result string
  return result
}

ここではmlrすぐにこのタスク（または同様のタスク）を実行し、CSVを正しく処理するために次のことをお勧めします。

$mlr --c2p --barred 猫ファイル.csv
+------------+---+---------+--------- ------- ------ ---------+
|数字       |名前     |名前  |通貨タイプ：グループ                      |
+------------+---+---------+--------- ------- ------ ---------+
| 222-222-2222 |エリザベステイラー|
111-111-1111 |マット|個人：スーパーマン：アメージング：エクストラ|
+------------+---+---------+--------- ------- ------ ---------+

または右揃えフィールドの場合：

$mlr --c2p --barred --right 猫ファイル.csv
+------------+---+---------+--------- ------- ------ ---------+
|       数字|     名前|  名前|                      通貨タイプ：グループ|
+------------+---+---------+--------- ------- ------ ---------+
| 222-222-2222 |エリザベステイラー|
111-111-1111 |マット|個人：スーパーマン：アメージング：エクストラ|
+------------+---+---------+--------- ------- ------ ---------+

mlr使用できない場合は、置き換えられた内容を代わりにawk使用します。perlawk

perl -MList::Util=zip -MTerm::ANSIColor -F, -lane '
  push @rows, [@F];
  $i = 0; for (@F) {
    $max[$i] = length if length > $max[$i];
    $i++;
  }
  
  END {
    $line = join("+", "", (map {"-" x ($_ + 2)} @max), "");
    print $line;
    print join("|", "", (map {colored(sprintf(" %*s ", @$_), "bold blue")} zip(\@max, shift @rows)), "");
    print $line;
    for (@rows) {
      print join("|", "", (map {sprintf " %*s ", @$_} zip(\@max, $_)), "");
    }
    print $line;
  }' file.csv

これは作る:

+--------------+-----------+--------+----------------------------------------+
|       NUMBER |     FNAME |  LNAME |                      PHONE-TYPE:GROUPS |
+--------------+-----------+--------+----------------------------------------+
| 222-222-2222 | Elizabeth | Taylor |                         office:beauty: |
| 111-111-1111 |      Matt |   Alex | personal:superhuman:cool:amazing:extra |
+--------------+-----------+--------+----------------------------------------+

タイトルは太い青です。

では、反復演算子を使用してperl文字列反復を実行します。結果はです。詳細より。x"string" x 3stringstringstringperldoc perlop

perlPerlモジュールは35年間使用されているため、ホイールを再構築する必要はほとんどありませんが、Perlモジュールはほとんどあらゆる用途に使用できます。私たちはすでに使用していますList::Util便利なリスト操作機能を備えたモジュールとTerm::ANSIColor上記のカラーテキストを出力しますが、Text::CSVCSVとText::ASCIITableテーブル形式を指定します。

$ perl -MText::CSV=csv -MText::ASCIITable -e '
  $c = csv(in => shift);
  $t = Text::ASCIITable->new;
  $t->setCols(shift @$c);
  $t->addRow($_) for @$c;
  print $t' file.csv
.----------------------------------------------------------------------------.
| NUMBER       | FNAME     | LNAME  | PHONE-TYPE:GROUPS                      |
+--------------+-----------+--------+----------------------------------------+
| 222-222-2222 | Elizabeth | Taylor | office:beauty:                         |
| 111-111-1111 | Matt      | Alex   | personal:superhuman:cool:amazing:extra |
'--------------+-----------+--------+----------------------------------------'

Answer 1