regex - 将正则表达式结果存储在新变量中

Question

下面的程序是重新排列一个字符串。对于第 8 行，我试图将正则表达式的结果存储到一个新变量 $newdate 中，但是当 $newdate 在第 9 行中打印时，它只显示一个 1。如何更改我的代码以便 $newdate 将存储正则表达式操作中的 $date 值？

1 #!/usr/bin/perl
2 
3 # This program changes the date format from mm/dd/yyyy to yyyy,mm,dd
4 
5 $date = '21/11/2011';
6 print "Current: $date\n";
7
8 $newdate = $date =~ s/(..)\/(..)\/(....)/$3,$2,$1/;
9 print "New: $newdate\n";

Answer 1

你也可以这样做:

my $date = '21/11/2011';
print "Current: $date\n";
my $newdate;
($newdate = $date) =~ s/(..)\/(..)\/(....)/$3,$2,$1/;
print $newdate;