perl读取一个文本12.c，将文本中包含ccc的行下面新增一行ddd，同时将包含ccc的行注释掉，将文本中包含aaa的行删除,操作完毕仍只有文本12.c

可以使用 Perl 的原地编辑 `-i` 参数实现对同一文件的读写操作。以下是一个可能的实现：

use strict;
use warnings;

# 备份原始文件
my $backup_file = '12.c.bak';
rename('12.c', $backup_file) or die "无法备份文件：$!";

# 打开文件并逐行读取和写入
local @ARGV = ('12.c');
local $^I = '.bak'; # 生成备份文件
while (my $line = <>) {
  # 包含"ccc"的行
  if ($line =~ /ccc/) {
    # 注释掉该行
    $line = '#' . $line;
    print $line;
    # 新增"ddd"行
    print "ddd\n";
  }
  # 包含"aaa"的行
  elsif ($line =~ /aaa/) {
    # 跳过该行
    next;
  }
  # 其他行
  else {
    print $line;
  }
}

# 删除备份文件
unlink $backup_file or die "无法删除备份文件：$!"; 

在该实现中，我们通过 `local` 关键字来修改全局变量 `@ARGV` 和 `$^I`，使得输入文件为 `12.c`，同时生成备份文件 `12.c.bak`。然后，我们使用 `while (my $line = <>)` 循环逐行读取输入文件，同时将输出重定向到同一个文件中。最后，我们删除备份文件。

请注意，通过原地编辑方式修改文件可能会有一定风险，请在操作前备份文件并谨慎操作。