如果它是文件中的最后一个字符,如何删除换行符?

我有一些文件,如果它是文件中的最后一个字符,我想删除最后一个换行符。 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一个结束的换行符,你可以使用tailwc 。 以下示例将结果保存到临时文件,然后覆盖原始文件:

 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.