初学模式匹配的问题

afoxwwk

#!/usr/local/perl5/bin/perl -w
use strict;
my $date="2005-09-24";

if( $date=~s/(\d{2}$)/(\1+1)/)
{
print "$date\n";
}

-------想把2005-09-24替换为2005-09-25，而上面的脚本运行后只得到：
2005-09-(24+1)--------------------

兰花仙子

原帖由 "afoxwwk" 发表：
#!/usr/local/perl5/bin/perl -w
use strict;
my $date="2005-09-24";

if( $date=~s/(\d{2}$)/(\1+1)/)
{
print "$date\n";
}

-------想把2005-09-24替换为2005-09-25，而上面的脚本运行后只得到：
2005..........

1. $date=~s/(\d{2})$/$1+1/e

复制代码