Perl脚本问题：删除方括号及内容失效，仅输出文件首行

你的代码主要存在三个核心问题：正则表达式逻辑错误、子例程参数处理错误，以及输入记录分隔符设置错误，下面逐个拆解并给出修正方案：

1. 正则表达式完全不符合需求 #

你写的正则s/[^$del1[^$del1$del2]*$del2$]//g逻辑完全混乱：

• [^...]是否定字符类，表示匹配任意不在字符集中的字符，而你嵌套了字符类（[^$del1$del2]*放在另一个[^...]里），这在正则中是无效的，实际会被解析为匹配除了[、]、^、*、$之外的字符，和你要删除[]片段的需求完全相反。
• 另外，[和]在正则中是特殊字符，直接用变量插入会被解析为字符类的开头/结尾，必须转义。

正确的正则写法：
要匹配所有[开头、]结尾的片段（包括括号），可以用两种方式：

• 非贪婪匹配：/\[.*?\]/g（匹配最短的[]块）
• 更高效的写法：/\[[^\]]*\]/g（匹配从[到第一个]的所有内容）

如果要通过变量构建模式，记得用quotemeta转义特殊字符：

my $pattern = quotemeta($del1) . '[^' . quotemeta($del2) . ']*' . quotemeta($del2);

2. 子例程参数处理错误 #

你的rings子例程里my ($line) = $_;是错误的：
Perl中子例程的参数是通过@_数组传递的，不是默认变量$_。这会导致你实际处理的不是传入的$seq，而是当前的$_（在while循环里是整个文件记录，而非你传入的字符串），所以替换操作根本没作用在目标内容上。

修正后的子例程：

sub rings {
    my ($line) = @_;  # 正确获取传入的参数
    my $noSquareBrackets = $line;
    $noSquareBrackets =~ s/$pattern//g;
    print "check: ", $noSquareBrackets, "\n";
    return $noSquareBrackets;  # 显式返回处理后的字符串（可选，但更规范）
}

3. 输入记录分隔符设置错误 #

你设置了$/ = "\n>";，这会让Perl把\n>作为输入记录的分隔符，但你的输入文件里根本没有这种格式的内容，导致while(<>)一次性读取整个文件作为一个记录，而不是逐行处理。另外，后面的/([^>]*)/匹配完全无意义，因为输入里没有>，$1会是空字符串。

修正输入处理逻辑：
恢复默认的逐行读取行为（去掉$/的自定义设置），并去掉无意义的匹配：

while (<>) {
    chomp;  # 去掉行尾的换行符
    my $seq = $_;
    # 如果不需要删除所有空格，就注释掉下面这行（你的原代码会删除所有空格，可能不符合预期）
    # $seq =~ s/\s//g;
    $seq = rings($seq);
}

完整修正后的代码 #

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

my $del1 = '[';
my $del2 = ']';
# 构建安全的正则模式
my $pattern = quotemeta($del1) . '[^' . quotemeta($del2) . ']*' . quotemeta($del2);

sub rings {
    my ($line) = @_;
    my $noSquareBrackets = $line;
    $noSquareBrackets =~ s/$pattern//g;
    print "check: ", $noSquareBrackets, "\n";
    return $noSquareBrackets;
}

# 逐行处理输入文件
while (<>) {
    chomp;
    my $seq = $_;
    # $seq =~ s/\s//g;  # 若不需要删除空格则注释
    $seq = rings($seq);
}

测试效果 #

用你提供的输入文件测试，输出会是：

check: line 1) c1(ccc(cc1)N)S(=O)(=O).c1(ccc(cc1)C) 1519987
check: line 2) 123456(789(=Cc%10c7c(5CC)ccc%10)CC8=Cc5cccc(c519)2CC)(ON(=O)=6)(ON(=4)=O)=N(=O)O3 1100946

所有[]片段都被正确删除，并且逐行处理了所有输入内容。

内容的提问来源于stack exchange，提问作者me_gone