如何修改Perl程序，移除特定字符+及其后的所有内容？

你的现有代码存在两个关键问题：

• 正则表达式/+/写法错误：+是正则元字符，需要转义成/\+/才能匹配字面意义的加号
• substr($line, -3)的作用是提取字符串最后3个字符，和你要删除后续内容的需求完全相反

下面给你两种符合需求的实现方式：

方法一：正则替换（最简洁） #

直接用正则把+及其后面的所有内容替换为空，不需要额外判断——没有加号的行不会被修改，直接输出即可：

open my $hfile, $ARGV[0] or die "Can't open $ARGV[0] for reading: $!";
while( my $line = <$hfile> ){
    $line =~ s/\+.*//;  # 替换加号及后面所有内容为空
    print $line;
}
close $hfile;

方法二：用index + substr实现 #

先通过index找到+的位置，再用substr截取该位置之前的内容：

open my $hfile, $ARGV[0] or die "Can't open $ARGV[0] for reading: $!";
while( my $line = <$hfile> ){
    my $plus_pos = index($line, '+');
    if ($plus_pos != -1) {  # 找到加号才处理
        $line = substr($line, 0, $plus_pos);
    }
    print "$line\n";  # 若原行末尾换行被截断，需手动补换行
}
close $hfile;

测试验证 #

用你提供的输入文件测试，两种方法都会输出：

hello_aba
gaww_ajnd_arhb
ajnbjsdsjn

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