如何用 Perl 中的计算表达式替换？

Question

有一个文件 dummy.txt

内容是：

 9/0/2010
 9/2/2010
 10/11/2010

我必须将月份部分（0,2,11）更改为+1，即（1,3,12） 我编写了替换正则表达式，如下所示

 $line =~ s/\/(\d+)\//\/\1+1\//;

它正在打印

9/0+1/2010
9/2+1/2010
10/11+1/2010

如何使其在数字上添加 - 3 而不是执行字符串连接？ 2+1??

Answer 1

这个怎么样？

$ cat date.txt 
9/0/2010
9/2/2010
10/11/2010
$ perl chdate.pl 
9/1/2010
9/3/2010
10/12/2010
$ cat chdate.pl 
use strict;
use warnings;

open my $fp, '<', "date.txt" or die $!;

while (<$fp>) {
    chomp;
    my @arr = split (/\//, $_);
    my $temp = $arr[1]+1;
    print "$arr[0]/$temp/$arr[2]\n";
}

close $fp;
$ 

Answer 2

三处变化：

• 您必须使用 e 修饰符
  允许表达式
  更换零件。
• 进行全球替换
  您应该使用 g 修饰符。如果每行只有一个日期，则不需要这一点。
• 您在替换端使用 $1 ，而不是反向引用

这应该可行：

$line =~ s{/(\d+)/}{'/'.($1+1).'/'}eg;

此外，如果您的正则表达式包含您正在使用的分隔符（在您的情况下为 / ），最好选择不同的分隔符（上面的{}），这样您就不必转义正则表达式中的分隔符，从而使您的正则表达式变得干净。

Answer 3

这有效：（e 是评估替换字符串：请参阅 perlrequick 文档）。

$line = '8/10/2010';
$line =~ s!/(\d+)/!('/'.($1+1).'/')!e;

print $line;

如果您的正则表达式本身具有 / ，那么使用 ! 或其他字符作为分隔符会有所帮助。

---

您还可以使用Can Perl string interpolation Perform any expression中的这个问题评估？

$line = '8/10/2010';
$line =~ s!/(\d+)/!("/@{[$1+1]}/")!e;

print $line;

但如果这是一个家庭作业问题，当老师问你如何得出这个解决方案时，准备好解释。