如何编辑Perl多行标量：打印并移除含大写/特殊字符的行？

直接上可运行的解决方案代码，完全匹配你的需求：

my $text = "$omething\n nothing\n Everything\n";

# 将多行标量拆分为行数组，-1参数确保不忽略末尾空元素
my @lines = split /\n/, $text, -1;
my @keep_lines;

foreach my $line (@lines) {
    # 匹配包含大写字母或非小写字母/空格的特殊字符的行
    if ($line =~ /[A-Z]|[^a-z\s]/) {
        print "$line\n";
    } else {
        push @keep_lines, $line;
    }
}

# 重新构建移除目标行后的$text
$text = join "\n", @keep_lines;

# 可选：验证处理后的结果
# print "处理后的text内容:\n$text";

代码说明 #

1. 拆分多行字符串：用split /\n/, $text, -1把原标量拆成每行的数组，-1是关键，避免丢失末尾的空行（原字符串末尾的换行会生成空元素）。
2. 行筛选逻辑：正则表达式/[A-Z]|[^a-z\s]/精准匹配两种目标行：
   • 包含大写字母（如Everything）
   • 包含特殊字符（如$omething里的$，只要不是小写字母或空格都算特殊字符）
3. 移除并重建：符合条件的行直接打印，不符合的存入保留数组，最后用join把保留行重新拼成新的$text，完成移除操作。

运行这段代码会依次打印$omething和Everything，原$text最终只剩 nothing和末尾的空行（和原格式一致）。

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