在文件的其中几行加入后缀

Question

文件内容如上，想要在文件中的2 4 6行末尾加上GCT，并重新生成一个新文档的Perl语言代码怎么写啊

Answer 1

以下回复参考：皆我百晓生、券券喵儿等免费微信小程序作答:

要实现你的需求，你可以使用Perl语言来处理文本文件。下面是一个简单的Perl脚本示例，它会读取一个文本文件，并在特定的行末尾添加"GCT"，然后将结果写入一个新文件。请注意替换原文件的步骤不是简单的“就地编辑”，通常使用这种方法之前会创建新文件以防止原数据丢失。确保在运行脚本之前备份你的原始文件。

假设你的原始文件名为 file.txt，你可以创建一个名为 add_suffix.pl 的Perl脚本文件，内容如下：

#!/usr/bin/perl
use strict;
use warnings;

# 定义输入和输出文件名
my $input_file = 'file.txt';  # 输入文件名
my $output_file = 'modified_file.txt';  # 输出文件名（包含后缀的文件名）

# 打开输入文件和输出文件句柄（分别使用读写和写模式）
open(my $input, '<', $input_file) or die "无法打开输入文件 '$input_file': $!";
open(my $output, '>', $output_file) or die "无法创建输出文件 '$output_file': $!";

# 行号初始化为 1（从第一行开始计数）
my $line_number = 1;

# 循环读取输入文件的每一行并检查是否是要处理的特定行（比如第二行，第四行等）
while (my $line = <$input>) {
    chomp($line);  # 删除行尾的换行符（如果有的话）
    if ($line =~ /^>/ && ($line_number == 2 || $line_number == 4 || $line_number == 6)) {  # 判断是否是需要处理的行并且行号符合要求（这里假设每行的编号是连续的）
        $line .= "GCT";  # 在行末尾添加GCT字符串
    }
    print $output $line."\n";  # 将处理后的行写入输出文件，并添加换行符（如果输入行本身没有换行符的话）
    $line_number++;  # 行号递增以处理下一行
}

# 关闭文件句柄以确保所有更改都已保存并释放资源
close($input);
close($output);

保存这个脚本后，你可以通过命令行运行它：

perl add_suffix.pl  # 执行脚本以修改文件内容并生成新文件 modified_file.txt 包含后缀的文件名可以更改为你想要的名称。
```运行这个脚本后，你应该会在相同的目录下找到名为 `modified_file.txt` 的新文件，其中包含你所期望的修改内容。请注意这个脚本会根据你的需要处理指定的行并在这些行的末尾添加"GCT"。如果你想修改不同的行或添加不同的后缀，你需要相应地调整脚本中的条件判断语句。此外，如果文件非常大，或者行的数量不是连续的偶数等情况下，可能需要更复杂的逻辑来处理这些情况。