แม้ว่ามันจะไม่ตอบคำถามโดยตรง แต่นี่เป็นสคริปต์ที่เกี่ยวข้องที่ฉันเขียนเพื่อตรวจหาไฟล์ที่ไม่ได้ขึ้นบรรทัดใหม่ มันเร็วมาก
find . -type f | # sort | # sort file names if you like
/usr/bin/perl -lne '
open FH, "<", $_ or do { print " error: $_"; next };
$pos = sysseek FH, 0, 2; # seek to EOF
if (!defined $pos) { print " error: $_"; next }
if ($pos == 0) { print " empty: $_"; next }
$pos = sysseek FH, -1, 1; # seek to last char
if (!defined $pos) { print " error: $_"; next }
$cnt = sysread FH, $c, 1;
if (!$cnt) { print " error: $_"; next }
if ($c eq "\n") { print " EOL: $_"; next }
else { print "no EOL: $_"; next }
'
สคริปต์ perl อ่านรายการชื่อไฟล์ (เรียงเป็นทางเลือก) จาก stdin และสำหรับทุกไฟล์ที่อ่านเป็นไบต์สุดท้ายเพื่อพิจารณาว่าไฟล์สิ้นสุดในบรรทัดใหม่หรือไม่ มันเร็วมากเพราะหลีกเลี่ยงการอ่านเนื้อหาทั้งหมดของแต่ละไฟล์ มันส่งออกหนึ่งบรรทัดสำหรับแต่ละไฟล์ที่อ่านนำหน้าด้วย "ข้อผิดพลาด:" หากเกิดข้อผิดพลาดบางประเภท "ว่าง:" ถ้าไฟล์นั้นว่างเปล่า (ไม่ลงท้ายด้วยการขึ้นบรรทัดใหม่!), "EOL:" ("ท้ายสุดของ บรรทัด ") หากไฟล์ลงท้ายด้วย newline และ" no EOL: "หากไฟล์ไม่ลงท้ายด้วย newline
หมายเหตุ: สคริปต์ไม่ได้จัดการชื่อไฟล์ที่มีการขึ้นบรรทัดใหม่ หากคุณอยู่ในระบบ GNU หรือ BSD คุณสามารถจัดการชื่อไฟล์ที่เป็นไปได้ทั้งหมดโดยเพิ่ม -print0 เพื่อค้นหา, -z เพื่อจัดเรียงและ -0 ถึง Perl เช่นนี้:
find . -type f -print0 | sort -z |
/usr/bin/perl -ln0e '
open FH, "<", $_ or do { print " error: $_"; next };
$pos = sysseek FH, 0, 2; # seek to EOF
if (!defined $pos) { print " error: $_"; next }
if ($pos == 0) { print " empty: $_"; next }
$pos = sysseek FH, -1, 1; # seek to last char
if (!defined $pos) { print " error: $_"; next }
$cnt = sysread FH, $c, 1;
if (!$cnt) { print " error: $_"; next }
if ($c eq "\n") { print " EOL: $_"; next }
else { print "no EOL: $_"; next }
'
แน่นอนคุณยังคงต้องหาวิธีเข้ารหัสชื่อไฟล์ด้วยการขึ้นบรรทัดใหม่ในผลลัพธ์ (เหลือไว้สำหรับการออกกำลังกายสำหรับผู้อ่าน)
ผลลัพธ์อาจถูกกรองหากต้องการเพื่อเพิ่มบรรทัดใหม่ให้กับไฟล์เหล่านั้นซึ่งไม่มีไฟล์
echo >> "$filename"
การขาดบรรทัดใหม่ขั้นสุดท้ายอาจทำให้เกิดข้อบกพร่องในสคริปต์เนื่องจากเชลล์บางเวอร์ชันและยูทิลิตีอื่น ๆ จะไม่จัดการกับบรรทัดใหม่สุดท้ายที่หายไปอย่างเหมาะสมเมื่ออ่านไฟล์ดังกล่าว
จากประสบการณ์ของฉันการไม่มีการขึ้นบรรทัดใหม่สุดท้ายเกิดจากการใช้ยูทิลิตี้ Windows ต่างๆเพื่อแก้ไขไฟล์ ฉันไม่เคยเห็นเป็นกลุ่มเลยทำให้เกิดบรรทัดใหม่สุดท้ายที่หายไปเมื่อแก้ไขไฟล์แม้ว่าจะรายงานไฟล์ดังกล่าว
สุดท้ายมีสคริปต์ที่สั้นกว่า (แต่ช้ากว่า) ซึ่งสามารถวนรอบอินพุตไฟล์ของพวกเขาเพื่อพิมพ์ไฟล์เหล่านั้นซึ่งไม่ได้ลงท้ายด้วยการขึ้นบรรทัดใหม่เช่น:
/usr/bin/perl -ne 'print "$ARGV\n" if /.\z/' -- FILE1 FILE2 ...