帮忙看以下代码

帮忙看以下代码
#!/usr/bin/perl
$var="ttt";
# my $var="ttt";
my $a="<font color=red>*var*</font>";
$a=~s/\*(\w+)\*/$$1/g;
print "Content-type: text/html\n\n";
print $a;

以上第2行就可以成功的将$$1替换成ttt,而一但在前面加my 就报"Use of uninitialized value in substitution iterator at Untitled line 4",应该是my 的作用域的问题吧

谁能解释下,谢谢!!!

好象和$a,$b无关吧
我替换成了其他发变量名称仍然是不行的哦.
Use of uninitialized value in substitution iterator at Untitled line 4如何消除这种提示呢

改为 our $var=
改为 our $var="ttt";

这篇有讲my与our的区别：[url]http://www.chinaunix.net/jh/25/556778.html[/url]