ฉันจะลบบรรทัดใหม่ได้อย่างไรถ้าเป็นอักขระตัวสุดท้ายในไฟล์

ฉันมีไฟล์บางไฟล์ที่ฉันต้องการลบขึ้นบรรทัดใหม่หากเป็นอักขระตัวสุดท้ายในไฟล์ od -cแสดงให้ฉันเห็นว่าคำสั่งที่ฉันเรียกใช้นั้นเขียนไฟล์ด้วยการขึ้นบรรทัดใหม่:

0013600   n   t  >  \n

ฉันได้ลองเล่นเล่ห์เหลี่ยมเล็กน้อย แต่สิ่งที่ดีที่สุดที่ฉันคิดได้คือไม่ได้เล่นเล่ห์เหลี่ยม:

sed -e '$s/\(.*\)\n$/\1/' abc

ความคิดใด ๆ วิธีการทำเช่นนี้?

perl -pe 'chomp if eof' filename >filename2

หรือเพื่อแก้ไขไฟล์ในสถานที่:

perl -pi -e 'chomp if eof' filename

^{[หมายเหตุของบรรณาธิการ: -pi -eเดิมที-pieแต่ตามที่ระบุไว้โดยผู้แสดงความคิดเห็นหลายคนและอธิบายโดย @hvd คนหลังใช้งานไม่ได้]}

นี่ถูกอธิบายว่าเป็น 'perl blasphemy' ในเว็บไซต์ awk ที่ฉันเห็น

แต่ในการทดสอบก็ใช้งานได้

คุณสามารถใช้ประโยชน์จากข้อเท็จจริงที่ว่าการแทนที่คำสั่ง shell ลบอักขระบรรทัดใหม่ต่อท้าย :

รูปแบบง่าย ๆ ที่ทำงานใน bash, ksh, zsh:

printf %s "$(< in.txt)" > out.txt

ทางเลือกแบบพกพา (สอดคล้องกับ POSIX) (มีประสิทธิภาพน้อยกว่าเล็กน้อย):

printf %s "$(cat in.txt)" > out.txt

บันทึก:

• ถ้าin.txtปลายมีหลายตัวละครขึ้นบรรทัดใหม่แทนคำสั่งเอาทั้งหมดของพวกเขา - ขอบคุณ @Sparhawk (ไม่ลบอักขระช่องว่างอื่นนอกเหนือจากการขึ้นบรรทัดใหม่)
• เนื่องจากวิธีนี้จะอ่านไฟล์อินพุตทั้งหมดในหน่วยความจำจึงแนะนำให้ใช้กับไฟล์ที่เล็กกว่าเท่านั้น
• printf %sตรวจสอบให้แน่ใจว่าไม่มีการขึ้นบรรทัดใหม่ต่อท้ายเอาต์พุต (เป็นทางเลือกที่สอดคล้องกับ POSIX กับที่ไม่เป็นมาตรฐานecho -nดูที่http://pubs.opengroup.org/onlinepubs/009696799/utilities/echo.htmlและhttps: //unix.stackexchange com / a / 65819 )

คู่มือคำตอบอื่น ๆ :

• ถ้าPerlพร้อมใช้งานไปที่คำตอบที่ยอมรับ - มันง่ายและมีประสิทธิภาพของหน่วยความจำ (ไม่อ่านไฟล์อินพุตทั้งหมดในครั้งเดียว)

• มิฉะนั้นพิจารณาghostdog74 ของAwkคำตอบ - มันปิดบัง แต่ยังหน่วยความจำที่มีประสิทธิภาพ ; เทียบเท่าอ่านได้มากขึ้น (POSIX สอดคล้อง) เป็น:

  • awk 'NR > 1 { print prev } { prev=$0 } END { ORS=""; print }' in.txt
  • การพิมพ์ล่าช้าโดยหนึ่งบรรทัดเพื่อให้สามารถจัดการบรรทัดสุดท้ายในENDบล็อกที่พิมพ์โดยไม่มีการต่อท้าย\nเนื่องจากการตั้งค่าตัวคั่นระเบียนผลลัพธ์ ( OFS) เป็นสตริงว่าง

• ถ้าคุณต้องการอย่างละเอียด แต่อย่างรวดเร็วและวิธีการแก้ปัญหาที่มีประสิทธิภาพที่แก้ไขอย่างแท้จริงในสถานที่ (เมื่อเทียบกับการสร้างชั่วคราว. แฟ้มที่แล้วแทนที่เดิม) พิจารณาjrockway ของสคริปต์ Perl

คุณสามารถทำได้ด้วยheadGNU coreutils สนับสนุนอาร์กิวเมนต์ที่สัมพันธ์กับจุดสิ้นสุดของไฟล์ ดังนั้นหากต้องการใช้ไบต์สุดท้าย:

head -c -1

ในการทดสอบการขึ้นบรรทัดใหม่สิ้นสุดที่คุณสามารถใช้และtail wcตัวอย่างต่อไปนี้บันทึกผลลัพธ์เป็นไฟล์ชั่วคราวและเขียนทับต้นฉบับในภายหลัง:

if [[ $(tail -c1 file | wc -l) == 1 ]]; then
  head -c -1 file > file.tmp
  mv file.tmp file
fi

คุณสามารถใช้spongeจากmoreutilsเพื่อทำการแก้ไขแบบ "แทนที่":

[[ $(tail -c1 file | wc -l) == 1 ]] && head -c -1 file | sponge file

คุณยังสามารถสร้างฟังก์ชั่นนำกลับมาใช้ใหม่ได้โดยการบรรจุสิ่งนี้ลงใน.bashrcไฟล์ของคุณ:

# Example:  remove-last-newline < multiline.txt
function remove-last-newline(){
    local file=$(mktemp)
    cat > $file
    if [[ $(tail -c1 $file | wc -l) == 1 ]]; then
        head -c -1 $file > $file.tmp
        mv $file.tmp $file
    fi
    cat $file
}

ปรับปรุง

เท่าที่สังเกตจากKarlWilburในความคิดเห็นและนำมาใช้ในSorentar ของคำตอบ , truncate --size=-1สามารถแทนที่head -c-1และสนับสนุนสถานที่ในการแก้ไข

head -n -1 abc > newfile
tail -n 1 abc | tr -d '\n' >> newfile

แก้ไข 2:

นี่คือawkเวอร์ชัน(แก้ไข)ที่ไม่ได้รวบรวมอาร์เรย์ที่มีขนาดใหญ่:

awk '{if (line) บรรทัดการพิมพ์; บรรทัด = $ 0} END {printf $ 0} 'abc

เพ่งพิศ

   awk '{q=p;p=$0}NR>1{print q}END{ORS = ""; print p}' file

วิธีที่ง่ายมากสำหรับไฟล์บรรทัดเดียวต้องการ GNU echo จาก coreutils:

/bin/echo -n $(cat $file)

หากคุณต้องการทำอย่างถูกต้องคุณต้องการสิ่งนี้:

use autodie qw(open sysseek sysread truncate);

my $file = shift;
open my $fh, '+>>', $file;
my $pos = tell $fh;
sysseek $fh, $pos - 1, 0;
sysread $fh, my $buf, 1 or die 'No data to read?';

if($buf eq "\n"){
    truncate $fh, $pos - 1;
}

เราเปิดไฟล์เพื่ออ่านและต่อท้าย; การเปิดสำหรับการต่อท้ายหมายความว่าเราได้รับการseekแก้ไขจนถึงตอนท้ายของไฟล์แล้ว tellจากนั้นเราจะได้รับตำแหน่งตัวเลขของจุดสิ้นสุดของแฟ้มที่มี เราใช้หมายเลขนั้นเพื่อค้นหาอักขระหนึ่งตัวจากนั้นเราอ่านอักขระนั้น หากเป็นบรรทัดใหม่เราจะตัดทอนไฟล์ให้เป็นอักขระก่อนขึ้นบรรทัดใหม่มิฉะนั้นเราจะไม่ทำอะไรเลย

สิ่งนี้จะทำงานในเวลาคงที่และพื้นที่คงที่สำหรับอินพุตใด ๆ และไม่ต้องการพื้นที่ดิสก์เพิ่มเติมอีก

นี่เป็นวิธีการแก้ปัญหาของงูหลามที่ดีและเรียบร้อย ฉันไม่พยายามที่จะพูดสั้น ๆ ที่นี่

สิ่งนี้แก้ไขไฟล์ในตำแหน่งแทนที่จะทำสำเนาไฟล์และลอกบรรทัดใหม่จากบรรทัดสุดท้ายของสำเนา หากไฟล์มีขนาดใหญ่จะเร็วกว่าโซลูชัน Perl ที่เลือกไว้เป็นคำตอบที่ดีที่สุด

มันตัดไฟล์สองไบต์ถ้าสองไบต์สุดท้ายคือ CR / LF หรือโดยหนึ่งไบต์ถ้าไบต์สุดท้ายคือ LF จะไม่พยายามแก้ไขไฟล์หากไบต์สุดท้ายไม่ใช่ (CR) LF มันจัดการข้อผิดพลาด ทดสอบใน Python 2.6

ใส่นี้ในไฟล์ที่เรียกว่า "striplast" chmod +x striplastและ

#!/usr/bin/python

# strip newline from last line of a file


import sys

def trunc(filename, new_len):
    try:
        # open with mode "append" so we have permission to modify
        # cannot open with mode "write" because that clobbers the file!
        f = open(filename, "ab")
        f.truncate(new_len)
        f.close()
    except IOError:
        print "cannot write to file:", filename
        sys.exit(2)

# get input argument
if len(sys.argv) == 2:
    filename = sys.argv[1]
else:
    filename = "--help"  # wrong number of arguments so print help

if filename == "--help" or filename == "-h" or filename == "/?":
    print "Usage: %s <filename>" % sys.argv[0]
    print "Strips a newline off the last line of a file."
    sys.exit(1)


try:
    # must have mode "b" (binary) to allow f.seek() with negative offset
    f = open(filename, "rb")
except IOError:
    print "file does not exist:", filename
    sys.exit(2)


SEEK_EOF = 2
f.seek(-2, SEEK_EOF)  # seek to two bytes before end of file

end_pos = f.tell()

line = f.read()
f.close()

if line.endswith("\r\n"):
    trunc(filename, end_pos)
elif line.endswith("\n"):
    trunc(filename, end_pos + 1)

ป.ล. ด้วยจิตวิญญาณของ "เพิร์ลกอล์ฟ" นี่เป็นวิธีแก้ปัญหางูหลามที่สั้นที่สุดของฉัน มัน slurps ไฟล์ทั้งหมดจากอินพุตมาตรฐานลงในหน่วยความจำตัดบรรทัดใหม่ทั้งหมดออกจากปลายและเขียนผลลัพธ์ไปยังเอาต์พุตมาตรฐาน ไม่กระชับเท่า Perl; คุณไม่สามารถเอาชนะ Perl สำหรับสิ่งที่รวดเร็วหากินเช่นนี้ได้

ลบ "\ n" จากการเรียกไปที่.rstrip()และจะตัดพื้นที่สีขาวทั้งหมดออกจากจุดสิ้นสุดของไฟล์รวมถึงบรรทัดว่างหลายบรรทัด

วางนี้ใน "slurp_and_chomp.py" python slurp_and_chomp.py < inputfile > outputfileและเรียกใช้แล้ว

import sys

sys.stdout.write(sys.stdin.read().rstrip("\n"))

วิธีแก้ปัญหาอย่างรวดเร็วคือการใช้ยูทิลิตี gnu truncate:

[ -z $(tail -c1 file) ] && truncate -s-1 file

การทดสอบจะเป็นจริงหากไฟล์มีบรรทัดใหม่ต่อท้าย

การลบนั้นรวดเร็วมากอย่างแท้จริงไม่ต้องมีไฟล์ใหม่และการค้นหาก็อ่านจากท้ายเพียงหนึ่งไบต์ ( tail -c1)

อีกอันหนึ่งที่น่าเป็นห่วง WTDI:

perl -i -p0777we's/\n\z//' filename

$ perl -e 'ท้องถิ่น $ /; $ _ = <>; s / \ n $ //; พิมพ์ 'a-text-file.txt

ดูเพิ่มเติมจับคู่อักขระใด ๆ (รวมถึงการขึ้นบรรทัดใหม่)ด้วย

ใช้ dd:

file='/path/to/file'
[[ "$(tail -c 1 "${file}" | tr -dc '\n' | wc -c)" -eq 1 ]] && \
    printf "" | dd  of="${file}" seek=$(($(stat -f "%z" "${file}") - 1)) bs=1 count=1
    #printf "" | dd  of="${file}" seek=$(($(wc -c < "${file}") - 1)) bs=1 count=1

perl -pi -e 's/\n$// if(eof)' your_file

สมมติว่าไฟล์ประเภท Unix และคุณต้องการขึ้นบรรทัดใหม่ล่าสุดให้ใช้งานได้เท่านั้น

sed -e '${/^$/d}'

มันจะไม่ทำงานกับการขึ้นบรรทัดใหม่หลายครั้ง ...

* ทำงานได้ก็ต่อเมื่อบรรทัดสุดท้ายเป็นบรรทัดว่าง

อีกคำตอบหนึ่งของ FTR (และรายการโปรดของฉัน!): echo / cat สิ่งที่คุณต้องการตัดและจับเอาท์พุทผ่าน backticks ขึ้นบรรทัดใหม่จะถูกปล้น ตัวอย่างเช่น:

# Sadly, outputs newline, and we have to feed the newline to sed to be portable
echo thingy | sed -e 's/thing/sill/'

# No newline! Happy.
out=`echo thingy | sed -e 's/thing/sill/'`
printf %s "$out"

# Similarly for files:
file=`cat file_ending_in_newline`
printf %s "$file" > file_no_newline

POSIX SED:

'$ {/ ^ $ / d}'

$ - match last line


{ COMMANDS } - A group of commands may be enclosed between { and } characters. This is particularly useful when you want a group of commands to be triggered by a single address (or address-range) match.

นี่เป็นทางออกที่ดีถ้าคุณต้องการใช้งานกับ pipes / การเปลี่ยนเส้นทางแทนที่จะอ่าน / ส่งออกจากหรือไปยังไฟล์ ใช้ได้กับสายเดียวหรือหลายบรรทัด มันทำงานไม่ว่าจะมีบรรทัดใหม่ต่อท้ายหรือไม่

# with trailing newline
echo -en 'foo\nbar\n' | sed '$s/$//' | head -c -1

# still works without trailing newline
echo -en 'foo\nbar' | sed '$s/$//' | head -c -1

# read from a file
sed '$s/$//' myfile.txt | head -c -1

รายละเอียด:

• head -c -1ตัดทอนอักขระตัวสุดท้ายของสตริงโดยไม่คำนึงว่าอักขระนั้นคืออะไร ดังนั้นหากสตริงไม่ได้ขึ้นบรรทัดใหม่แล้วคุณจะสูญเสียอักขระ
• sed '$s/$//'ดังนั้นเพื่อที่อยู่ว่าปัญหาเราเพิ่มคำสั่งอื่นที่จะเพิ่มขึ้นบรรทัดใหม่ต่อท้ายถ้ามีไม่ได้เป็นหนึ่ง: วิธีแรก$ใช้เฉพาะคำสั่งกับบรรทัดสุดท้ายเท่านั้น s/$//หมายถึงการแทนที่ "จุดสิ้นสุดของบรรทัด" ด้วย "ไม่มีอะไร" ซึ่งโดยพื้นฐานแล้วไม่ทำอะไรเลย แต่มันมีผลข้างเคียงของการเพิ่มบรรทัดใหม่ต่อท้ายคือไม่มี

หมายเหตุ: ค่าเริ่มต้นของ Mac headไม่รองรับ-cตัวเลือก คุณสามารถทำได้brew install coreutilsและใช้gheadแทน

ครั้งเดียวที่ฉันต้องการทำสิ่งนี้คือการเขียนโค้ดจากนั้นฉันเพิ่งคัดลอกรหัสของฉันออกจากไฟล์และวางลงในecho -n 'content'>fileคำสั่ง

sed ':a;/^\n*$/{$d;N;};/\n$/ba' file

ฉันมีปัญหาที่คล้ายกัน แต่ทำงานกับไฟล์ windows และต้องการให้ CRLF เหล่านั้น - โซลูชันของฉันบน linux:

sed 's/\r//g' orig | awk '{if (NR>1) printf("\r\n"); printf("%s",$0)}' > tweaked

sed -n "1 x;1 !H
$ {x;s/\n*$//p;}
" YourFile

ควรลบการเกิดขึ้นครั้งสุดท้ายของ \ n ในไฟล์ ไม่ทำงานกับไฟล์ขนาดใหญ่ (เนื่องจากข้อ จำกัด ของบัฟเฟอร์บัฟเฟอร์)

ทับทิม:

ruby -ne 'print $stdin.eof ? $_.strip : $_'

หรือ:

ruby -ane 'q=p;p=$_;puts q if $.>1;END{print p.strip!}'