내 테스트에 따라 속도를 줄이려면 (UTF-8 로켈의 GNU 시스템 및 ASCII 입력) :

grep '.\{80\}' file

perl -nle 'print if length$_>79' file

awk 'length>79' file

sed -n '/.\{80\}/p' file

제외 perl¹ 하나 (또는에 대한 awk/ grep/ sed같은 구현 ( mawk멀티 바이트 문자를 지원하지 않거나 비지 박스))의 수를 기준으로 길이를 계산 자 합니다 (에 따라 LC_CTYPE대신 로케일의 설정) 바이트 .

입력에 유효한 문자의 일부를 구성하지 않는 바이트가있는 경우 (로케일의 문자 세트가 UTF-8이고 입력이 다른 인코딩 일 때 발생하는 경우가 있음) 솔루션 및 도구 구현에 따라 해당 바이트 1 자로 계산되거나 0 또는 일치하지 않습니다 ..

예를 들어, 라인 (30)으로 구성되어 그 a사행을 0x80 바이트, 30 bS, A를 0x81 바이트 30 UTF-8 é일치하지 것 UTF-8 로케일에서, S (0xc3의 0xa9로 인코딩) .\{80\}GNU로 grep/ sed(즉 독립형을 0x80 바이트로서 .) 와 일치하지 않는 경우 길이가 30 + 1 + 30 + 1 + 2 * 30 = 122 perl또는 mawk이고 3 * 30 = 90입니다 gawk.

바이트 단위로 계산하려면 로케일을 C로 수정하십시오 LC_ALL=C grep/awk/sed....

위의 줄에 122자가 포함되어 있다고 생각하는 4 가지 솔루션이 모두 있습니다. in perl및 GNU 도구를 제외하고 NUL 문자 (0x0 바이트)를 포함하는 행에 대해서는 여전히 잠재적 인 문제가 있습니다.

^{¹ perl동작은 PERL_UNICODE환경 변수의 영향을받을 수 있습니다}

답변

while IFS= read -r line || [ -n "$line" ];
do
    [ "${#line}" -gt 79 ] && printf "%s\n" "$line"
done < input.txt

python -c 'import sys;f=open(sys.argv[1]);print "\n".join([ l.strip() for l in f if len(l) >79 ]);f.close()' input.txt

#!/usr/bin/env python
import sys

with open(sys.argv[1]) as f:
    for line in f:
        if len(line) > 79:
            print line.strip()