如果它是文件中的最后一个字符，如何删除换行符？
我有一些文件，如果它是文件中的最后一个字符，我想删除最后一个换行符。 od -c显示我运行的命令是用一个新的尾行写入文件：
0013600 nt > \n
我已经尝试了一些与sed技巧，但最好的我可以想到的是不是在做的伎俩：
sed -e '$s/\(.*\)\n$/\1/' abc
任何想法如何做到这一点？
perl -pe 'chomp if eof' filename >filename2
或者，编辑文件到位：
perl -pi -e 'chomp if eof' filename
[编者注： -pi -e本来就是-pie ，但正如几位评论者所指出的那样，由@hvd解释，后者不起作用。]
这在我看到的awk网站上被形容为“perl blasphemy”。
但是，在一个testing中，它的工作。
您可以利用shell 命令replace删除结尾换行符的事实：
在bash，ksh，zsh中工作的简单forms：
printf %s "$(< in.txt)" > out.txt
便携式（符合POSIX）替代scheme（效率稍低）：
printf %s "$(cat in.txt)" > out.txt
注意：
- 如果
in.txt以多个换行符结尾，则命令replace将删除所有这些 – 谢谢@Sparhawk。 （它不会删除尾随换行符以外的空格字符。） - 由于此方法将整个input文件读入内存 ，因此build议使用较小的文件。
-
printf %s确保没有新行被添加到输出（这是符合POSIX标准的非标准echo -n;请参阅http://pubs.opengroup.org/onlinepubs/009696799/utilities/echo.html和https：; //unix.stackexchange.com/a/65819 ）
其他答案的指南 ：
-
如果Perl是可用的，去接受的答案 – 它是简单的和高效的内存 （不会一次读取整个input文件）。
-
否则，考虑ghostdog74的awk答案 – 这是晦涩的，但也是内存效率 ; 一个更具可读性的等价物 （POSIX兼容）是：
-
awk 'NR > 1 { print prev } { prev=$0 } END { ORS=""; print }' in.txt - 由于将输出logging分隔符（
OFS）设置为空string，因此打印被延迟一行，因此最后一行可以在END块中处理，在该块中打印时没有尾随\n。
-
-
如果你想要一个详尽而又快速和健壮的解决scheme来真正地进行编辑 （而不是创build一个临时文件，然后replace原来的文件），请考虑jrockway的Perl脚本 。
你可以用GNU coreutils来做这个，它支持相对于文件末尾的参数。 所以要放弃最后一个字节的使用：
head -c -1
要testing一个结束的换行符，你可以使用tail和wc 。 以下示例将结果保存到临时文件，然后覆盖原始文件：
if [[ $(tail -c1 file | wc -l) == 1 ]]; then head -c -1 file > file.tmp mv file.tmp file fi
您还可以使用moreutils sponge进行“就地”编辑：
[[ $(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 }
head -n -1 abc > newfile tail -n 1 abc | tr -d '\n' >> newfile
编辑2：
这是一个 awk版本（更正） ，不积累潜在的巨大数组：
awk'{if（line）print line; line = $ 0} END {printf $ 0}'abc
呆子
awk '{q=p;p=$0}NR>1{print q}END{ORS = ""; print p}' 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来得到文件末尾的数字位置。 我们用这个数字来找回一个字符，然后我们读取这个字符。 如果是换行符，我们将文件截断到换行符之前的字符，否则，我们什么也不做。
这在任何input的恒定时间和恒定的空间运行，并且不需要更多的磁盘空间。
这是一个不错的，整洁的Python解决scheme。 我没有试图在这里简洁。
这会在原地修改文件，而不是复制文件并从副本的最后一行剥离换行符。 如果文件很大，这将比select最佳答案的Perl解决scheme快得多。
如果最后两个字节是CR / LF，它将截断一个文件两个字节，如果最后一个字节是LF，则截断一个文件。 如果最后一个字节不是（CR）LF，它不会尝试修改文件。 它处理错误。 在Python 2.6中testing
把它放在一个名为“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)
PS本着“Perl高尔夫”的精神，这里是我最短的Python解决scheme。 它将整个文件从标准input缓冲到内存中，并将所有换行清除，并将结果写入标准输出。 不像Perl那样简洁; 你只是不能打败Perl这样的小棘手快速的东西。
从调用.rstrip()删除“\ n”，它将从文件末尾剥离所有空白，包括多个空白行。
把它放到“slurp_and_chomp.py”中，然后运行python slurp_and_chomp.py < inputfile > outputfile 。
import sys sys.stdout.write(sys.stdin.read().rstrip("\n"))
还有另外一个WTDI：
perl -i -p0777we's/\n\z//' filename
$ perl -e'local $ /; $ _ = <>; S / \ n $ //; 打印'a-text-file.txt
另请参阅在sed中匹配任何字符（包括换行符） 。
一个非常简单的单行文件的方法，需要coreutils的GNU回显：
/bin/echo -n $(cat $file)
使用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文件types，你只想要最后一个换行符。
sed -e '${/^$/d}'
它不会在多个换行符上工作…
* 仅在最后一行是空白行时有效。
一个快速的解决scheme是使用gnu实用程序截断：
[ -z $(tail -c1 file) ] && truncate -s-1
如果文件有新的尾行，则testing结果为真。
删除速度非常快，真正到位，不需要新文件，search也从最后一个字节读取（tail -c1）。
还有另外一个回答FTR（和我最喜欢的！）：echo / cat你想要通过反引号去除和捕获输出。 最后的换行符将被删除。 例如：
# 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
我唯一想做的就是代码高尔夫，然后我把代码从文件中拷贝出来并粘贴到echo -n 'content'>file语句中。
sed ':a;/^\n*$/{$d;N;};/\n$/ba' file
我有一个类似的问题，但正在与Windows文件，并需要保持这些CRLF – 我的解决scheme在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。 无法处理大文件（由于sed缓冲区限制）
ruby：
ruby -ne 'print $stdin.eof ? $_.strip : $_'
要么：
ruby -ane 'q=p;p=$_;puts q if $.>1;END{print p.strip!}'
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.
