첫 줄 들여쓰기를 기반으로 여러 줄의 선행 공백을 제거하는 방법은 무엇입니까?

Question 1

Gnu sed: 선행 공백을 유지에 저장한 다음 각 줄에서 이 만큼의 선행 공백을 제거합니다. 행이 표시된 대로 정렬되어 있다고 가정합니다.

sed -Ee '
  1{h;s/\S.*//;x;}
  G;s/^(\s*)(.*)\n\1$/\2/
' file

awk '
NR==1 {
  l0=length()
  $1=$1
  re = "^\\s{" l0-length() "}"
}
sub(re, "")+1
' file

perl -lpe '
  $x //= do{/^\s*/g;+pos;};
  $_ = substr($_,$x);
' file

Answer

Gnu sed: 선행 공백을 유지에 저장한 다음 각 줄에서 이 만큼의 선행 공백을 제거합니다. 행이 표시된 대로 정렬되어 있다고 가정합니다.

sed -Ee '
  1{h;s/\S.*//;x;}
  G;s/^(\s*)(.*)\n\1$/\2/
' file

awk '
NR==1 {
  l0=length()
  $1=$1
  re = "^\\s{" l0-length() "}"
}
sub(re, "")+1
' file

perl -lpe '
  $x //= do{/^\s*/g;+pos;};
  $_ = substr($_,$x);
' file

Question 2

조사를 했어야 했는데어크(1)더 일찍. 최소한 첫 번째 줄의 선행 공백 수를 저장하고 각 줄의 형식을 지정하는 작은 프로그램을 작성할 수 있습니다.

$ awk '
    NR==1 && match($0, /^ */) {p=RLENGTH+1};
    {print(substr($0,p))}
' lines | column -x | expand -t 8
30 .md           8 .png          4 .yml          1 .css          1 .gitignore
 1 .ico          1 .sh           1 .txt

Answer

조사를 했어야 했는데어크(1)더 일찍. 최소한 첫 번째 줄의 선행 공백 수를 저장하고 각 줄의 형식을 지정하는 작은 프로그램을 작성할 수 있습니다.

$ awk '
    NR==1 && match($0, /^ */) {p=RLENGTH+1};
    {print(substr($0,p))}
' lines | column -x | expand -t 8
30 .md           8 .png          4 .yml          1 .css          1 .gitignore
 1 .ico          1 .sh           1 .txt

Question 3

왜 첫 번째 줄로 제한합니까? 기가바이트 단위의 데이터를 처리할 필요가 없다면(모든 데이터를 메모리에 저장하는 것은 문제가 됩니다) 가장 긴 첫 번째 필드를 저장하고 이를 사용하여 나머지의 형식을 지정할 수 있습니다.

$ cat lines 
      4 .yml
      1 .sh
      1 .ico
      1 .gitignore
      1 .css
     30 .md
      1 .txt
      8 .png

그리고:

$ awk -v l=0 '{ 
                if(length($1)>l){
                    l=length($1)
                } 
                a[$2]=$1
              }
              END{
                for(line in a){
                    printf "%"l"s %s\n",a[line],line
                }
             }' lines 
 8 .png
 1 .ico
 1 .txt
 1 .css
 1 .sh
30 .md
 1 .gitignore
 4 .yml

그래서:

$ awk -v l=0 '{ if(length($1)>l){l=length($1)} a[$2]=$1}END{for(line in a){printf "%"l"s %s\n",a[line],line}}' lines | 
    column -x | expand -t 8
 8 .png          1 .ico          1 .txt          1 .css          1 .sh
30 .md           1 .gitignore    4 .yml

이것이 필요하지 않고 첫 번째 줄에만 관심이 있다면 다음과 같이 단순화할 수 있습니다.

$ perl -pe '/^(\s+)/; $l//=$1; s/^$l//' lines | column -x | expand -t 8
30 .md           4 .yml          1 .sh           1 .ico          1 .gitignore
 1 .css          1 .txt          8 .png

Answer