关于 =~ s/../../g 转换的问题

bestnet009

#!/usr/bin/perl
$aa = "<a>asfsafasdfsa<c>";
$ab = "(<a>)(.*)(<c>)";
$aa =~ s/$ab/$3$2$1/g;
print "$aa\n";
输出结果为: <c>asfsafasdfsa<a>


为什么上面的程序程序改成下面的(红色部份), 就不能执行了?

#!/usr/bin/perl
$aa = "<a>asfsafasdfsa<c>";
$ab = "(<a>)(.*)(<c>)";
$cc = "$3$2$1";
$aa =~ s/$ab/$cc/g;
print "$aa\n";

Perl_Er

$cc = "$3$2$1"; 这个会取$3,$2,$1的值,因为他们都是undef,$cc为空，所以你替换后是空的
试下下面的代码，打印一下$1$2$3.

1. $aa = "<a>asfsafasdfsa<c>";
   
2. $ab = "(<a>)(.*)(<c>)";
   
3. $cc = "$3$2$1";
   
4. [color=Red]print $1;
   
5. print $2;
   
6. print $3;[/color]
   
7. $aa =~ s/$ab/$cc/g;
   
8. print "$aa\n";

复制代码

[ 本帖最后由 Perl_Er 于 2009-7-28 09:02 编辑 ]

blackold

在双引号中会产生interpolation

maklive8

$cc = "$3$2$1"这句给$cc赋值了，后面即使$3$2$1变化，$cc也不跟着变了

bestnet009

加了
print $1;
print $2;
print $3;
还是不行

Perl_Er

加这些是为了打印的值,debug.

bestnet009

程序还是执行不了, 显示的错误报告是:

Use of uninitialized value $3 in concatenation (.) or string at Untitled line 4.
Use of uninitialized value $2 in concatenation (.) or string at Untitled line 4.
Use of uninitialized value $1 in concatenation (.) or string at Untitled line 4.

maklive8

原帖由 bestnet009 于 2009-7-28 21:19 发表
程序还是执行不了, 显示的错误报告是:

Use of uninitialized value $3 in concatenation (.) or string at Untitled line 4.
Use of uninitialized value $2 in concatenation (.) or string at Untitled l ...

确实在$aa =~ s/$ab/$3$2$1/g;这句之前$1 $2 $3都是uninitialized呀，吧uninitialized的值赋给$cc才出错的

MMMIX

原帖由 bestnet009 于 2009-7-28 00:37 发表
为什么上面的程序程序改成下面的(红色部份), 就不能执行了?

#!/usr/bin/perl
$aa = "<a>asfsafasdfsa<c>";
$ab = "(<a>)(.*)(<c>)";
$cc = "$3$2$1";

把最后一行中的双引号换成单引号。

linuxty

原帖由 MMMIX 于 2009-7-29 09:14 发表

把最后一行中的双引号换成单引号。

还是不行的,这样直接就把$aa 赋值成字符串 $1$2$3 了