Bagaimana saya bisa menghapus baris baru jika itu adalah karakter terakhir dalam file?

Saya memiliki beberapa file yang ingin saya hapus baris baru terakhir jika itu adalah karakter terakhir dalam file. od -cmemperlihatkan kepada saya bahwa perintah yang saya jalankan tidak menulis file dengan baris baru yang tertinggal:

0013600   n   t  >  \n

Saya sudah mencoba beberapa trik dengan sed tetapi yang terbaik yang bisa saya pikirkan adalah tidak melakukan trik:

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

Ada ide bagaimana melakukan ini?

perl -pe 'chomp if eof' filename >filename2

atau, untuk mengedit file di tempat:

perl -pi -e 'chomp if eof' filename

^{[Catatan Editor: -pi -epada awalnya -pie, tetapi, sebagaimana dicatat oleh beberapa komentator dan dijelaskan oleh @hvd, yang terakhir tidak berfungsi.]}

Ini digambarkan sebagai 'penghujatan perl' di situs web awk yang saya lihat.

Tapi, dalam ujian, itu berhasil.

Anda dapat memanfaatkan fakta bahwa pergantian perintah shell menghapus karakter baris baru :

Bentuk sederhana yang bekerja di bash, ksh, zsh:

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

Alternatif portable (POSIX-compliant) (sedikit kurang efisien):

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

catatan:

• Jika in.txtujung dengan beberapa karakter baris baru, substitusi perintah menghapus semua dari mereka - terima kasih, @Sparhawk. (Itu tidak menghapus karakter spasi selain dari mengikuti baris baru.)
• Karena pendekatan ini membaca seluruh file input ke dalam memori , maka hanya disarankan untuk file yang lebih kecil.
• printf %smemastikan bahwa tidak ada baris baru yang ditambahkan ke output (itu adalah alternatif yang sesuai dengan POSIX untuk yang tidak standar echo -n; lihat http://pubs.opengroup.org/onlinepubs/009696799/utilities/echo.html dan https: //unix.stackexchange. com / a / 65819 )

Sebuah panduan untuk jawaban yang lain :

• Jika Perl tersedia, cari jawaban yang diterima - sederhana dan hemat memori (tidak membaca seluruh file input sekaligus).

• Jika tidak, pertimbangkan ghostdog74 ini AWK jawaban - itu jelas, tetapi juga hemat memori ; a lebih mudah dibaca setara (POSIX-compliant) adalah:

  • awk 'NR > 1 { print prev } { prev=$0 } END { ORS=""; print }' in.txt
  • Pencetakan tertunda oleh satu baris sehingga baris terakhir dapat ditangani di ENDblok, di mana ia dicetak tanpa \njejak karena pengaturan pemisah catatan keluaran ( OFS) ke string kosong.

• Jika Anda menginginkan solusi verbose, tetapi cepat dan tangguh yang benar - benar diedit di tempat (sebagai lawan membuat temp. File yang kemudian menggantikan yang asli), pertimbangkan skrip Perl jrockway .

Anda dapat melakukan ini dengan headdari GNU coreutils, ia mendukung argumen yang relatif terhadap akhir file. Jadi untuk meninggalkan penggunaan byte terakhir:

head -c -1

Untuk menguji baris akhir yang berakhir, Anda dapat menggunakan taildan wc. Contoh berikut menyimpan hasil ke file sementara dan selanjutnya menimpa yang asli:

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

Anda juga dapat menggunakan spongedari mulai moreutilsmengedit "di tempat":

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

Anda juga dapat membuat fungsi yang dapat digunakan kembali secara umum dengan memasukkan ini di .bashrcfile Anda :

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

Memperbarui

Seperti dicatat oleh KarlWilbur dalam komentar dan digunakan dalam jawaban Sorentar , truncate --size=-1dapat menggantikan head -c-1dan mendukung pengeditan di tempat.

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

Edit 2:

Berikut ini adalah awkversi (dikoreksi) yang tidak mengumpulkan array yang berpotensi besar:

awk '{if (line) line print; line = $ 0} END {printf $ 0} 'abc

melongo

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

Metode yang sangat sederhana untuk file single-line, membutuhkan gema GNU dari coreutils:

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

Jika Anda ingin melakukannya dengan benar, Anda perlu sesuatu seperti ini:

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

Kami membuka file untuk membaca dan menambahkan; membuka untuk menambahkan berarti kita sudah seekmengedit sampai akhir file. Kami kemudian mendapatkan posisi numerik dari akhir file tell. Kami menggunakan angka itu untuk mencari kembali satu karakter, dan kemudian kami membaca satu karakter itu. Jika itu adalah baris baru, kami memotong file ke karakter sebelum baris baru itu, jika tidak, kami tidak melakukan apa-apa.

Ini berjalan dalam waktu dan ruang konstan untuk input apa pun, dan juga tidak memerlukan ruang disk lagi.

Ini adalah solusi Python yang bagus dan rapi. Saya tidak berusaha untuk singkat di sini.

Ini memodifikasi file di tempat, daripada membuat salinan file dan menghapus baris baru dari baris terakhir salinan. Jika file berukuran besar, ini akan jauh lebih cepat daripada solusi Perl yang dipilih sebagai jawaban terbaik.

Ini memotong file dengan dua byte jika dua byte terakhir adalah CR / LF, atau satu byte jika byte terakhir adalah LF. Itu tidak berusaha untuk memodifikasi file jika byte terakhir tidak (CR) LF. Ini menangani kesalahan. Diuji dalam Python 2.6.

Masukkan ini dalam file yang disebut "striplast" dan 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 Dalam semangat "Perl golf", inilah solusi Python terpendek saya. Ini menghirup seluruh file dari input standar ke dalam memori, menghapus semua baris baru pada akhirnya, dan menulis hasilnya ke output standar. Tidak sesingkat Perl; Anda tidak bisa mengalahkan Perl untuk hal-hal kecil yang rumit dan cepat seperti ini.

Hapus "\ n" dari panggilan ke .rstrip() dan itu akan menghapus semua ruang putih dari akhir file, termasuk beberapa baris kosong.

Masukkan ini ke dalam "slurp_and_chomp.py" dan kemudian jalankan python slurp_and_chomp.py < inputfile > outputfile.

import sys

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

Solusi cepat menggunakan utilitas gnu truncate:

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

Tes akan benar jika file tersebut memang memiliki garis baru.

Penghapusannya sangat cepat, benar-benar di tempat, tidak ada file baru yang diperlukan dan pencarian juga membaca dari ujung hanya satu byte ( tail -c1).

Satu lagi perl WTDI:

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

$ perl -e 'local $ /; $ _ = <>; s / \ n $ //; cetak 'a-text-file.txt

Lihat juga Cocokkan karakter apa saja (termasuk baris baru) di sed .

Menggunakan 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

Dengan asumsi jenis file Unix dan Anda hanya ingin baris baru terakhir ini berfungsi.

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

Itu tidak akan berfungsi pada banyak baris baru ...

* Hanya berfungsi jika baris terakhir adalah baris kosong.

Namun jawaban lain FTR (dan favorit saya!): Gema / hal yang Anda ingin strip dan menangkap output melalui backticks. Baris baru terakhir akan dilucuti. Sebagai contoh:

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

Ini adalah solusi yang baik jika Anda membutuhkannya untuk bekerja dengan pipa / redirection alih-alih membaca / output dari atau ke file. Ini bekerja dengan satu atau beberapa baris. Ini berfungsi apakah ada baris tambahan atau tidak.

# 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

Detail:

• head -c -1memotong karakter terakhir dari string, terlepas dari apa karakternya. Jadi jika string tidak diakhiri dengan baris baru, maka Anda akan kehilangan karakter.
• Jadi untuk alamat bahwa masalah, kita tambahkan perintah lain yang akan menambahkan baris baru Trailing jika tidak ada satu: sed '$s/$//'. Yang pertama $berarti hanya menerapkan perintah ke baris terakhir. s/$//berarti mengganti "ujung garis" dengan "tidak ada", yang pada dasarnya tidak melakukan apa-apa. Tetapi ini memiliki efek samping menambahkan baris baru setelah tidak ada.

Catatan: Default Mac headtidak mendukung -copsi. Anda bisa melakukannya brew install coreutilsdan menggunakannya ghead.

Satu-satunya waktu saya ingin melakukan ini adalah untuk kode golf, dan kemudian saya baru saja menyalin kode saya keluar dari file dan menempelkannya ke dalam echo -n 'content'>filepernyataan.

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

Saya memiliki masalah yang sama, tetapi bekerja dengan file windows dan perlu menjaga CRLF - solusi saya di 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

Seharusnya menghapus kejadian terakhir dari \ n dalam file. Tidak berfungsi pada file besar (karena keterbatasan buffer sed)

rubi:

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

atau:

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