ฉันจะนับบรรทัดข้อความได้อย่างไร

ฉันจะนับจำนวนบรรทัดในไฟล์ข้อความได้อย่างไร เช่น :

command file.txt

หมายเหตุฉันต้องการนับเฉพาะบรรทัดที่ไม่ว่างเท่านั้น (บรรทัดที่ไม่นับพื้นที่สีขาวและแท็บ)?

คำตอบข้างต้นนั้นถูกต้อง แต่แตกต่างกันเล็กน้อยคุณสามารถใช้grepเพื่อเพื่อง่ายขึ้นรหัสเช่นgrep -vc '^$' file.txt

ตัวอย่างเช่น (A): file.txt

$grep -vc '^$' file.txt

1    First line         #This is two tabs to comment.
2    
4
3    Fourth line        #Another two tabs to comment.

$2

ตัวอย่างเช่น (B): file.txt

$sed '/^$/d' file.txt | wc -l

1    First line         #This is two tabs to comment.
2    
4
3    Fourth line        #Another two tabs to comment.

$4

สังเกตเห็นผลลัพธ์ที่ได้คือ 4! เมื่อเราต้องการที่จะคาดหวังเพียงสอง แต่จะนับแท็บระหว่างเนื้อหาและความคิดเห็นด้วย

สังเกตการนับจาก 0 และนับจาก 1 มันแตกต่างจาก grep ไปยัง sed ที่ฉันจำรายละเอียดเพิ่มเติมค้นหา grep หรือ sed

ลองsed:

sed '/^$/d' file.txt | wc -l

หากคุณมีบรรทัดใด ๆ ที่มีช่องว่างหรือแท็บเท่านั้นและหากคุณต้องการเพิกเฉยมันก็จะนับ

sed '/^[[:blank:]]*$/d' file.txt | wc -l

การใช้grep:

grep -vc '^$' file  # or
grep -vc '^\s*$' file    

คุณสามารถใช้ได้:

grep -cve '^\s*$' file.txt

หากคุณต้องการคำสั่งเพียงแค่วางบรรทัดต่อไปนี้ลงใน.bashrcและรีสตาร์ทเซสชันเชลล์หรือเปิดเทอร์มินัลใหม่:

count_lines()
{
    grep -cve '^\s*$' $1
}

ตัวอย่าง:

count_lines file.txt
42

ด้วยawk :

awk 'NF{++count} END{print count}' file

คำอธิบาย:

NFระบุจำนวนสาขาและด้วยเหตุนี้พิมพ์นี้เพียงสายที่ไม่ว่างเปล่าตั้งแต่ในสายที่ไม่ว่างเปล่าNFมีค่ามากกว่า0และประเมินผลให้เป็นจริง ดังนั้นที่เพิ่มขึ้นนับธงเมื่อ awk พบสายที่ไม่ว่างและพิมพ์ค่าล่าสุดนับEND{print count}ธงในตอนท้ายด้วย

แก้ไข : คุณสามารถเพิ่มcตัวเลือกgrepแทนการวางทุกอย่างลงwcในดูคำตอบของ @ muru สำหรับรุ่นที่กะทัดรัดกว่า

ด้วยgrep:

grep -v '^$' file.txt | wc -l

วิธีการแก้ปัญหา Perl

Perl สามารถทำได้ โดยทั่วไปการนับบรรทัดทำงานดังนี้:

$ perl -ne 'END{print $.}' input.txt                                                                                     

หากเราต้องการยกเว้นบรรทัดว่างทั้งหมดเราจะทำสิ่งนี้:

$ perl -ne '$c+=1 if not /^$|^\s+$/;END{print $c}' input.txt                                                             

สมมติว่าเรามีไฟล์อินพุตเช่นนี้

$ cat -n input.txt
     1  Cat; Dog; Squirrel
     2  ORGANISM Animalus terrus
     3  
     4  Sequence: ACGTACGTACGTACGTACGTACGTACGTACGTACGTACGTACGTACGT
     5  

มีทั้งหมด 5 บรรทัด 2 บรรทัดว่าง คำสั่งที่เราจะส่งออก:

$ perl -ne '$c+=1 if not /^$|^\s+$/;END{print $c}' input.txt                                                             
3

การปรับปรุงหลายไฟล์

สิ่งนี้ทำงานได้ดีสำหรับไฟล์เดียว หากเราต้องการให้มันทำงานกับไฟล์หลายไฟล์เราสามารถทำสิ่งนี้:

$ perl -ne '$c+=1 if not /^$|^\s+$/;printf("%d %s\n",$c,$ARGV) and $c=0 if eof' input.txt /etc/passwd                    
3 input.txt
52 /etc/passwd