Bagaimana cara mencetak baris terpanjang dalam suatu file?

Saya mencari metode paling sederhana untuk mencetak baris terpanjang dalam file. Saya melakukan beberapa pencarian di Google dan secara mengejutkan tidak menemukan jawaban. Saya sering mencetak panjang garis terpanjang dalam sebuah file, tetapi saya tidak tahu bagaimana cara mencetak garis terpanjang. Adakah yang bisa memberikan solusi untuk mencetak baris terpanjang dalam file? Terima kasih sebelumnya.

cat ./text | awk ' { if ( length > x ) { x = length; y = $0 } }END{ print y }'

UPD : merangkum semua saran dalam komentar

awk 'length > max_length { max_length = length; longest_line = $0 } END { print longest_line }' ./text 

cat filename | awk '{ print length }' | sort -n | tail -1

sed -rn "/.{$(<file expand -t1 |wc -L)}/{p;q}" file

Ini pertama kali membaca file di dalam substitusi perintah dan menampilkan panjang baris terpanjang, (sebelumnya, expandmengkonversi tab menjadi spasi, untuk mengatasi semantik wc -L- setiap tab di baris akan menambah 8 bukannya 1 ke panjang baris). Panjang ini kemudian digunakan dalam sedekspresi yang berarti "temukan garis yang panjangnya karakter ini, cetak, lalu keluar". Jadi ini sebenarnya bisa seoptimal garis terpanjang dekat dengan bagian atas file, heheh (terima kasih untuk komentar yang luar biasa dan konstruktif).

Lain, saya telah berpikir lebih awal daripada yang sed (dalam bash):

#!/bin/bash
while read -r line; do
    (( ${#line} > max )) && max=${#line} && longest="$line"
done
echo "$longest"

Inilah solusi Perl:

perl -e 'while(<>){
           $l=length;  
           $l>$m && do {$c=$_; $m=$l}  
         } print $c' file.txt 

Atau, jika Anda ingin mencetak semua garis terpanjang

perl -e 'while(<>){
           $l=length;
           push @{$k{$l}},$_;
           $m=$l if $l>$m;
         } print @{$k{$m}}' file.txt 

Karena tidak ada yang lebih baik untuk dilakukan, saya menjalankan beberapa tolok ukur pada file teks 625M. Anehnya, solusi Perl saya secara konsisten lebih cepat daripada yang lain. Memang, perbedaan dengan awksolusi yang diterima kecil, tetapi ada di sana. Jelas, solusi yang mencetak beberapa baris lebih lambat jadi saya telah mengurutkannya berdasarkan jenis, tercepat hingga paling lambat.

Cetak hanya satu dari garis terpanjang:

$ time perl -e 'while(<>){
           $l=length;  
           $l>$m && do {$c=$_; $m=$l}  
         } print $c' file.txt 
real    0m3.837s
user    0m3.724s
sys     0m0.096s



$ time awk 'length > max_length { max_length = length; longest_line = $0 }
 END { print longest_line }' file.txt
real    0m5.835s
user    0m5.604s
sys     0m0.204s



$ time sed -rn "/.{$(<file.txt expand -t1 |wc -L)}/{p;q}" file.txt 
real    2m37.348s
user    2m39.990s
sys     0m1.868s

Cetak semua garis terpanjang:

$ time perl -e 'while(<>){
           $l=length;
           push @{$k{$l}},$_;
           $m=$l if $l>$m;
         } print @{$k{$m}}' file.txt 
real    0m9.263s
user    0m8.417s
sys     0m0.760s


$ time awk 'length >x { delete y; x=length }
     length==x { y[NR]=$0 } END{ for (z in y) print y[z] }' file.txt
real    0m10.220s
user    0m9.925s
sys     0m0.252s


## This is Chris Down's bash solution
$ time ./a.sh < file.txt 
Max line length: 254
Lines matched with that length: 2
real    8m36.975s
user    8m17.495s
sys     0m17.153s

Grep baris terpanjang pertama

grep -Em1 "^.{$(wc -L <file.txt)}\$" file.txt 

Perintah ini sangat sulit dibaca tanpa latihan karena ia mencampur sintaks shell- dan regexp.
Untuk penjelasan, saya akan menggunakan kodesemu yang disederhanakan terlebih dahulu. Garis yang dimulai dengan ##tidak berjalan di shell.
Kode yang disederhanakan ini menggunakan nama file F, dan tidak mengutip dan bagian dari regexps untuk dibaca.

Bagaimana itu bekerja

Perintah memiliki dua bagian, a grep- dan wcdoa:

## grep "^.{$( wc -L F )}$" F

The wcdigunakan dalam ekspansi proses, $( ... )sehingga dijalankan sebelum grep. Ini menghitung panjang garis terpanjang. Sintaks ekspansi shell dicampur dengan sintaksis pola ekspresi reguler dengan cara yang membingungkan, jadi saya akan menguraikan ekspansi proses:

## wc -L F
42
## grep "^.{42}$" F

Di sini, ekspansi proses diganti dengan nilai yang akan dikembalikan, menciptakan baris grepperintah yang digunakan. Kita sekarang dapat membaca ekspresi reguler dengan lebih mudah: Ini cocok persis dari awal ( ^) hingga akhir ( $) pada baris. Ekspresi di antara mereka cocok dengan karakter apa pun kecuali baris baru, diulang sebanyak 42 kali. Gabungan, yaitu garis yang terdiri dari 42 karakter.

Sekarang, kembali ke perintah real shell: grepOpsi -E( --extended-regexp) memungkinkan untuk tidak luput dari {}keterbacaan. Opsi -m 1( --max-count=1) membuatnya berhenti setelah baris pertama ditemukan. Perintah <in wcmenulis file ke stdin-nya, untuk mencegah wcdari pencetakan nama file bersama dengan panjangnya.

Garis terpanjang mana?

Untuk membuat contoh lebih mudah dibaca dengan nama file muncul dua kali, saya akan menggunakan variabel funtuk nama file; Masing-masing $fdalam contoh dapat diganti dengan nama file.

f="file.txt"

Tampilkan garis terpanjang pertama - garis pertama sepanjang garis terpanjang:

grep -E -m1 "^.{$(wc -L <"$f")}\$" "$f"

Tampilkan semua garis terpanjang - semua garis sepanjang garis terpanjang:

grep -E "^.{$(wc -L <"$f")}\$" "$f" 

Tampilkan garis terpanjang terakhir - baris terakhir sepanjang garis terpanjang:

tac "$f" | grep -E -m1 "^.{$(wc -L <"$f")}\$"

Tampilkan garis terpanjang tunggal - garis terpanjang lebih panjang dari semua garis lain, atau gagal:

[ $(grep -E "^.{$(wc -L <"$f")}\$" "$f" | wc -l) = 1 ] && grep -E "^.{$(wc -L <"$f")}\$" "$f" 

(Perintah terakhir bahkan lebih tidak efisien daripada yang lain, karena ia mengulangi perintah grep lengkap. Perintah ini harus diurai sehingga output dari wcdan baris yang ditulis oleh grepdisimpan ke variabel.
Perhatikan bahwa semua garis terpanjang mungkin sebenarnya semua baris Untuk menyimpan dalam suatu variabel, hanya dua baris pertama yang harus disimpan.)

Contoh berikut akan menjadi, dan seharusnya, komentar untuk jawaban dmitry.malikov , tetapi karena Penggunaan Ruang Komentar Terlihat yang Tidak Berguna di sana, saya telah memilih untuk menyajikannya di sini, di mana setidaknya akan terlihat. ..

Ini adalah variasi sederhana dari metode single-pass awk dmitry .
Ini mencetak semua garis "sama terpanjang". (Catatan. delete arrayAdalah ekstensi gawk).

awk 'length >x { delete y; x=length }
     length==x { y[NR]=$0 } END{ for (z in y) print y[z] }' file

Dalam bash murni:

#!/bin/bash

_max_length=0
while IFS= read -r _line; do
    _length="${#_line}"
    if (( _length > _max_length )); then
        _max_length=${_length}
        _max_line=( "${_line}" )
    elif (( _length == _max_length )); then
        _max_line+=( "${_line}" )
    fi
done

printf 'Max line length: %d\n' "${_max_length}"
printf 'Lines matched with that length: %d\n' "${#_max_line[@]}"
(( ${#_max_line[@]} )) && printf '%s\n' '----------------' "${_max_line[@]}"

Saya telah mengembangkan skrip shell kecil untuk ini. Ini menampilkan panjang, garis # dan garis itu sendiri dengan panjang yang melebihi ukuran tertentu seperti 80 karakter:

#!/bin/sh

# Author: Surinder

if test $# -lt 2
then
   echo "usage: $0 length file1 file2 ..."
   echo "usage: $0 80 hello.c"
   exit 1
fi

length=$1

shift

LONGLINE=/tmp/longest-line-$$.awk

cat << EOF > $LONGLINE
  BEGIN {
  }

  /.*/ {
    current_length=length(\$0);
    if (current_length >= expected_length) {
       printf("%d at line # %d %s\n", current_length, NR, \$0);
    }
  }

  END {
  }
EOF

for file in $*
do
  echo "$file"
  cat $file | awk -v expected_length=$length -f $LONGLINE |sort -nr
done

rm $LONGLINE

https://github.com/lordofrain/tools/blob/master/longest-line/longest-line.sh

Anda bisa menggunakan wc:

wc -L fileName