如何使用正则表达式删除/ 1或/ 2？

我认为您要编写的是/(\@.* .*)(?=\/\d)/（您需要转义at符号@以防止Perl将其视为数组），但是您需要一个积极的前瞻性，因为您要匹配所有内容，直到后面的字符都用斜杠代替一个数字。

这是一个演示程序。

use strict;
use warnings;
use 5.010;

my $s = '@ERR030882.2595 HWI-BRUNOP16X_0001:3:1:6649:5175#0/1';

$s =~ /(\@.* .*)(?=\/.)/;

print $1, "\n";

但是，最好复制整个字符串并删除斜杠及其后的所有内容，就像这样

use strict;
use warnings;

my $s = '@ERR030882.2595 HWI-BRUNOP16X_0001:3:1:6649:5175#0/1';

(my $fixed = $s) =~ s{/\d+$}{};

print $fixed, "\n";

输出

@ERR030882.2595 HWI-BRUNOP16X_0001:3:1:6649:5175#0