使用perl将只包含一个字符串的行添加到上一行

Question

我有一个这类名字的文件：

  

JoséeMaria   桑切斯
  Marco Robert
  费加罗
  Max Theodor Schmitz
  约翰史密斯   Maria Catharina Luise
  Armino

我希望将包含一个字符串（只有一个名字）的每一行添加到上一行：

  

JoséeMariaSanchez
  Marco Robert Figaro
  Max Theodor Schmitz
  约翰史密斯   Maria Catharina Luise Armino

使用perl是否有一个好的单行？

Answer 1

perl -0777 -pe 's/\n(\S+)$/ $1/mg'

未经测试，但想法是将整个文件啜饮成一个字符串，然后用空格替换单字符行之前的所有换行符。