初學(xué)模式匹配的問題

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" 發(fā)表：
#!/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

復(fù)制代碼