[求助]正则替换时如何把匹配的数值加8在替换

僵尸

1. s/;(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/;$1-$2-$3 $4:$5:$6/g;

复制代码

我想$4+8替换,不知怎么弄.

mcshell

1. s/;(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/$num =$4+4;print ";$1-$2-$3 $num:$5:$6"/eg;

复制代码

zhlong8

s///e 这里的 /e 会让替换部分变成 Perl 代码，替换为求值的结果。

$a = 'a12';
$a =~ s/(\d+)/say "num is $1"; $1 * 100/e;

僵尸

1.     my $num;
   
2.     my $num1;
   
3.     /;(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/;
   
4.     $num =$4+8;
   
5.     if ($num < 24) {$num =$4+8;$num1=$3;} else {$num =$4-16;$num1=$3+1;}
   
6.     s/;(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/;$1-$2-$num1 $num:$5:$6/g;

复制代码

我用这个可以