awk 문은 char 변수의 수를 인쇄하고 작동하지 않습니다.

Question 1

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