关于perl 一个赋值问题

maodou888

Use of uninitialized value in concatenation (.) or string at cook_name.pl line 39.
<TD></td>
</tr>
<TR>
Use of uninitialized value in concatenation (.) or string at cook_name.pl line 39.  
Use of uninitialized value in concatenation (.) or string at cook_name.pl line 46.
<TD></td>
</tr>
<TR>
Use of uninitialized value in concatenation (.) or string at cook_name.pl line 46.
<TD></td>
</tr>
<TR>
Use of uninitialized value in concatenation (.) or string at cook_name.pl line 46.
<TD></td>

代码如下：
#!/usr/bin/perl -w
use strict;
use DBI;
use CGI qw(:standard);
my $data;       
my $dbh=DBI->connect("DBI:mysql:configServer","root","123456" or die "ErrorDBI::errstr\n";
        $dbh->do("SET character_set_client = 'gb2312'";
        $dbh->do("SET character_set_connection = 'gb2312'";
        $dbh->do("SET character_set_results= 'gb2312'";  
                my $sql="select a.name from name  a  inner join cook_name b on a.n_id=b.n_id;";
                my $sql1="select a.name from cook  a  inner join cook_name b on a.n_id=b.n_id;";


                my $sth=$dbh->prepare($sql);
                my $sth1=$dbh->prepare($sql1);
        $sth->execute;
        $sth1->execute;


while($data=$sth->fetchrow_hashref){
        print qq(<TR>\n);
       
        print qq(<TD>$data->{a.name}</td>\n);
print qq(</tr>\n);
}

while(my ($a.name)=$sth1->fetchrow_hashref){
        print qq(<TR>\n);
       
        print qq($a.neme<BR>;
print qq(</tr>\n);



}

这样赋值是不是有问题，直接查询语句写成select name from cook 这样在下边 $data 赋值就没 问题。

下边我也试着写成 print qq($'a.neme'<BR>; 这样也不出
不知道 perl 是不是对 “.”有特殊的用法

guap514

不可以这样搞吧

$data->{a.name}  
改成
$data->{name}

Perl_Er

. is an operator

maodou888

搞定 谢谢

guap514