Làm cách nào để xóa một dòng mới nếu đó là ký tự cuối cùng trong một tệp?

Tôi có một số tệp mà tôi muốn xóa dòng mới nhất nếu đó là ký tự cuối cùng trong một tệp. od -ccho tôi thấy rằng lệnh tôi chạy sẽ ghi tệp với một dòng mới:

0013600   n   t  >  \n

Tôi đã thử một vài mẹo với sed nhưng cách tốt nhất tôi có thể nghĩ là không làm trò đó:

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

Bất kỳ ý tưởng làm thế nào để làm điều này?

perl -pe 'chomp if eof' filename >filename2

hoặc, để chỉnh sửa tệp tại chỗ:

perl -pi -e 'chomp if eof' filename

^{[Ghi chú của biên tập viên: -pi -eban đầu -pie, nhưng, như được lưu ý bởi một số người bình luận và được giải thích bởi @hvd, cái sau không hoạt động.]}

Điều này đã được mô tả như là một 'báng bổ perl' trên trang web awk mà tôi thấy.

Nhưng, trong một thử nghiệm, nó đã làm việc.

Bạn có thể tận dụng thực tế là các thay thế lệnh shell sẽ loại bỏ các ký tự dòng mới :

Hình thức đơn giản hoạt động trong bash, ksh, zsh:

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

Thay thế di động (tuân thủ POSIX) (hơi kém hiệu quả):

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

Ghi chú:

• Nếu in.txtkết thúc bằng nhiều ký tự dòng mới, việc thay thế lệnh sẽ loại bỏ tất cả chúng - cảm ơn, @Sparhawk. (Nó không xóa các ký tự khoảng trắng ngoài các dòng mới.)
• Vì cách tiếp cận này đọc toàn bộ tệp đầu vào vào bộ nhớ , chỉ nên dùng cho các tệp nhỏ hơn.
• printf %sđảm bảo rằng không có dòng mới nào được thêm vào đầu ra (đó là thay thế tuân thủ POSIX cho tiêu chuẩn không theo tiêu chuẩn echo -n; xem http://pub.opengroup.org/onlinepub/009696799/utilities/echo.html và https: //unix.stackexchange. com / a / 65819 )

Một hướng dẫn để các câu trả lời khác :

• Nếu Perl khả dụng, hãy tìm câu trả lời được chấp nhận - nó đơn giản và tiết kiệm bộ nhớ (không đọc toàn bộ tệp đầu vào cùng một lúc).

• Mặt khác, hãy xem xét câu trả lời Awk của ghostdog74 - nó tối nghĩa, nhưng cũng hiệu quả về bộ nhớ ; một tương đương dễ đọc hơn (tuân thủ POSIX) là:

  • awk 'NR > 1 { print prev } { prev=$0 } END { ORS=""; print }' in.txt
  • Việc in bị trì hoãn bởi một dòng để dòng cuối cùng có thể được xử lý trong ENDkhối, nơi nó được in mà không có dấu vết \ndo đặt dấu tách bản ghi đầu ra ( OFS) thành một chuỗi trống.

• Nếu bạn muốn một giải pháp dài dòng, nhưng nhanh chóng và mạnh mẽ thực sự chỉnh sửa tại chỗ (trái ngược với việc tạo tệp tạm thời sau đó thay thế bản gốc), hãy xem xét tập lệnh Perl của jrockway .

Bạn có thể làm điều này với headtừ coreutils GNU, nó hỗ trợ các đối số có liên quan đến phần cuối của tệp. Vì vậy, để loại bỏ việc sử dụng byte cuối cùng:

head -c -1

Để kiểm tra một dòng mới kết thúc, bạn có thể sử dụng tailvà wc. Ví dụ sau lưu kết quả vào một tệp tạm thời và sau đó ghi đè lên bản gốc:

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

Bạn cũng có thể sử dụng spongetừ moreutilsđể thực hiện chỉnh sửa "tại chỗ":

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

Bạn cũng có thể tạo một chức năng có thể tái sử dụng chung bằng cách nhét chức năng này vào .bashrctệp của mình :

# 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
}

Cập nhật

Theo ghi nhận của KarlWilbur trong các bình luận và được sử dụng trong câu trả lời của Sorentar , truncate --size=-1có thể thay thế head -c-1và hỗ trợ chỉnh sửa tại chỗ.

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

Chỉnh sửa 2:

Đây là một awkphiên bản (đã sửa) không tích lũy một mảng rất lớn:

dòng in awk '{if (line); dòng = $ 0} END {printf $ 0} 'abc

chim ưng

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

Một phương pháp rất đơn giản cho các tệp một dòng, yêu cầu tiếng vang GNU từ coreutils:

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

Nếu bạn muốn làm đúng, bạn cần một cái gì đó như thế này:

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;
}

Chúng tôi mở tập tin để đọc và nối thêm; mở để nối thêm có nghĩa là chúng tôi đã seeksửa đến cuối tập tin. Sau đó chúng tôi nhận được vị trí số của phần cuối của tệp với tell. Chúng tôi sử dụng số đó để tìm lại một ký tự, và sau đó chúng tôi đọc một ký tự đó. Nếu đó là một dòng mới, chúng tôi cắt ngắn tệp cho ký tự trước dòng mới đó, nếu không, chúng tôi không làm gì cả.

Điều này chạy trong thời gian liên tục và không gian liên tục cho bất kỳ đầu vào nào, và cũng không yêu cầu thêm không gian đĩa.

Đây là một giải pháp Python đẹp, gọn gàng. Tôi đã không cố gắng để được terse ở đây.

Điều này sửa đổi tệp tại chỗ, thay vì tạo một bản sao của tệp và tước dòng mới từ dòng cuối cùng của bản sao. Nếu tệp lớn, điều này sẽ nhanh hơn nhiều so với giải pháp Perl được chọn là câu trả lời tốt nhất.

Nó cắt một tệp bằng hai byte nếu hai byte cuối là CR / LF hoặc một byte nếu byte cuối cùng là LF. Nó không cố gắng sửa đổi tệp nếu (các) byte cuối không phải là (CR) LF. Nó xử lý lỗi. Đã thử nghiệm trong Python 2.6.

Đặt cái này trong một tập tin gọi là "thoát y" và 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)

PS Theo tinh thần "Perl golf", đây là giải pháp Python ngắn nhất của tôi. Nó đưa toàn bộ tập tin từ đầu vào tiêu chuẩn vào bộ nhớ, loại bỏ tất cả các dòng mới ở cuối và ghi kết quả vào đầu ra tiêu chuẩn. Không ngắn gọn như Perl; bạn không thể đánh bại Perl vì những thứ nhanh nhẹn như thế này.

Xóa "\ n" khỏi cuộc gọi đến .rstrip()và nó sẽ xóa toàn bộ khoảng trắng khỏi phần cuối của tệp, bao gồm nhiều dòng trống.

Đặt cái này vào "slurp_and_chomp.py" và sau đó chạy python slurp_and_chomp.py < inputfile > outputfile.

import sys

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

Một giải pháp nhanh là sử dụng tiện ích gnu truncate:

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

Thử nghiệm sẽ là đúng nếu tập tin có một dòng mới.

Việc xóa rất nhanh, thực sự tại chỗ, không cần tệp mới và tìm kiếm cũng đang đọc từ cuối chỉ một byte ( tail -c1).

Một WTDI khác:

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

$ perl -e 'địa phương $ /; $ _ = <>; s / \ n $ //; in 'a-text-file.txt

Xem thêm Phù hợp với bất kỳ nhân vật (bao gồm cả dòng mới) trong sed .

Sử dụng 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

Giả sử loại tệp Unix và bạn chỉ muốn dòng mới nhất này hoạt động.

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

Nó sẽ không hoạt động trên nhiều dòng mới ...

* Chỉ hoạt động nếu dòng cuối cùng là một dòng trống.

Một câu trả lời khác FTR (và yêu thích của tôi!): Echo / cat điều bạn muốn tước và nắm bắt đầu ra thông qua backticks. Dòng mới cuối cùng sẽ bị tước. Ví dụ:

# 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.

Đây là một giải pháp tốt nếu bạn cần nó để làm việc với các đường ống / chuyển hướng thay vì đọc / xuất từ ​​hoặc vào một tệp. Điều này hoạt động với một hoặc nhiều dòng. Nó hoạt động cho dù có một dòng mới hay không.

# 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

Chi tiết:

• head -c -1cắt ngắn ký tự cuối cùng của chuỗi, bất kể ký tự đó là gì. Vì vậy, nếu chuỗi không kết thúc bằng một dòng mới, thì bạn sẽ mất một ký tự.
• Vì vậy, để giải quyết vấn đề đó, chúng tôi thêm một lệnh khác sẽ thêm một dòng mới nếu không có : sed '$s/$//'. Nghĩa đầu tiên $chỉ áp dụng lệnh cho dòng cuối cùng. s/$//có nghĩa là thay thế "cuối dòng" bằng "không có gì", về cơ bản là không làm gì cả. Nhưng nó có một tác dụng phụ của việc thêm một dòng mới là không có.

Lưu ý: Mặc định của Mac headkhông hỗ trợ -ctùy chọn. Bạn có thể làm brew install coreutilsvà sử dụng gheadthay thế.

Lần duy nhất tôi muốn làm điều này là cho mã golf, và sau đó tôi chỉ sao chép mã của mình ra khỏi tệp và dán nó vào một echo -n 'content'>filetuyên bố.

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

Tôi gặp vấn đề tương tự, nhưng đang làm việc với tệp windows và cần giữ CRLF đó - giải pháp của tôi trên 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ên xóa mọi sự xuất hiện cuối cùng của \ n trong tệp. Không hoạt động trên tệp lớn (do giới hạn bộ đệm sed)

hồng ngọc:

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

hoặc là:

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