sed 文件的内容附加到另一个文件中的特定行

Question

我有一个相当复杂的sed 脚本，它将文件的内容写入新文件中的单行逗号分隔列表。

我想读取该文件并将其写入另一个文件的特定行的末尾。真正更好的是读取原始文件，将逗号分隔的列表直接写入新文件中的指定行并跳过中间人。

sed -n '/# FirstMark/,/# EndMark/p' client_list.formal|grep -v "#"|awk -F\< '{print $2}'|awk -F\> '{print $1}'|xargs|sed -e 's/ /,\ /g'|sort -u|sed -i /writes all this stuff to end of specified line > file.txt

细分是：

1. sed -n '/ # FirstMark/（从这个字符串开始阅读）

2. ,/# EndMark/p'（在此字符串处停止阅读）

3. client_list.formal（来自此文件）

4. grep -v "#"（删除所有注释掉的行）

5. awk -F\< '{print$2}'|awk-F\> '{print $1}'（打印 之间的所有内容）

6. xargs|sed -e 's/ /,\ /g'|sort -u（全部放在同一行，添加逗号，并仅排序）

7. 最后一位应将所有输出写入新文件中指定行的末尾。

我目前的工作只是将其写入文件。然后我 sed -i 该文件到另一个文件的每一行的末尾（该文件只有一行。但是会有其他文件有多行，每一行都有自己的列表，所有列表都将从一个构建源文件。）

到目前为止，我已经看到了如何将它插入到文件中的特定行中，将其附加到文件末尾，而不是附加到指定行的末尾。我是不是想多了？我觉得我想多了。

client_list.formal 示例

# Formal Client Name1
Contact Lastname,Firstname <email@address.tld>
Contact Lastname,Firstname <email@address.tld>
# Formal Client Name2
Contact Lastname,Firstname <email@address.tld>

示例文件写入：

email@address.tld、email@address.tld、email@address.tld、email@address.tld、email@address.tld

要插入的示例文件：

alias1: email@address.tld, email@address.tld, email@address.tld, email@address.tld
alias2:
alias3:email@address.tld, email@address.tld, email@address.tld, email@address.tld

操作完成时的预期文件格式：

alias1: email@address.tld, email@address.tld, email@address.tld, email@address.tld
alias2: email@address.tld, email@address.tld, email@address.tld, email@address.tld,
alias3: email@address.tld, email@address.tld, email@address.tld, email@address.tld

Answer 1

老实说 - 命令链足够大，我认为是时候打破像 perl 这样的编程语言了。

您尝试执行的任务可以像这样完成：

#!/usr/bin/env perl

use strict;
use warnings;

#open your input file
open ( my $email_file, '<', 'client_list') or die $!;
#read all the lines with <email@somewhere>, and join them on a ','
my $address_list = join ( ",", map { m/<(.*)>/ } <$email_file> );
print "Inserting $address_list\n"; 
close ( $email_file ); 

#open filename     
open ( my $file2, '<', "insert_file_name" ) or die $!;
open ( my $results_file, '>', "output_file" ) or die $!;
#iterate file2.  
while ( my $line = <$file2> ) {
    # if condition matches, replace end of line with the address list above; 
    if ( $line =~ m/alias2/ ) { $line =~ s/$/$address_list/ };
    print {$results_file} $line;
}
close ( $file2 );
close ( $results_file );