在perl中:

perl -ne 'print ($l = $_) if (length > length($l));' filename | tail -1

这只打印行，不打印它的长度。

我在Unix环境中，使用gzip压缩的文件，大小只有几gb。我使用一个记录长度为2052的2 GB gzip文件测试了以下命令。

zcat < gzipped文件- > |厕所

and

Zcat <gzip文件> | awk '{打印长度}' | sort -u

时间是平均的

117秒 109秒

这是我运行10次后的脚本。

START=$(date +%s) ## time of start

zcat $1 |  wc -L

END=$(date +%s) ## time of end
DIFF=$(( $END - $START ))
echo "It took $DIFF seconds"

START=$(date +%s) ## time of start

zcat $1 |  awk '{print length}' | sort -u

END=$(date +%s) ## time of end
DIFF=$(( $END - $START ))
echo "It took $DIFF seconds"

perl -ne 'print length()."  line $.  $_"' myfile | sort -nr | head -n 1

打印最长行的长度、行号和内容

perl -ne 'print length()."  line $.  $_"' myfile | sort -n

打印所有行的排序列表，包括行号和长度

． 是连接运算符-它在这里用在length()之后 美元。当前行号是多少 $_是当前行

在perl中:

perl -ne 'print ($l = $_) if (length > length($l));' filename | tail -1

这只打印行，不打印它的长度。

以下是回答者的参考资料

cat filename | awk '{print length, $0}'|sort -nr|head -1

http://wtanaka.com/node/7719

wc -L < filename

给了

101