Use of uninitialized value in pattern match(已定义)

醒目

UID: 9071
帖子: 141
积分: 324
在线时间: 1 天 3 小时

1^# 醒目发表于 2009-01-08 11:38

Use of uninitialized value in pattern match(已定义)

34       #遍历

35       foreach my $media( @t_media_info_list )
36       {
37                if( $referer = ~/$media->[2]/ )
38                {
39                my $media_id = $media ->[0];
40                my $media_name =  $media ->[1];
41                }
42                else
43                {
44                $media_id = '';
45                $media_name =  '';
46                }
47       }

请问是什么原因出这个警告？谢谢

Use of uninitialized value in pattern match (m//) at include/t_showdata.pl line 37.
Use of uninitialized value in pattern match (m//) at include/t_showdata.pl line 37.
Use of uninitialized value in pattern match (m//) at include/t_showdata.pl line 37.

@t_media_info_list是二维数组。

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cobrawgl 发表于 2009-01-08 11:51

uninitialize

撒哈拉里的鱼

UID: 25861
帖子: 2
积分: 4
在线时间: 10 分钟

3^# 撒哈拉里的鱼发表于 2009-01-08 11:52

my $expr = quotemeta($media->[2]);
if( $referer =~ /$expr / )
试试看。

撒哈拉里的鱼

UID: 25861
帖子: 2
积分: 4
在线时间: 10 分钟

4^# 撒哈拉里的鱼发表于 2009-01-08 11:53

之前先把$media->[2]打印一下。
顺便，你要讲一下37行是哪一行啊。

醒目

UID: 9071
帖子: 141
积分: 324
在线时间: 1 天 3 小时

5^# 醒目发表于 2009-01-08 12:37

QUOTE:

原帖由 cobrawgl 于 2009-1-8 11:51 发表
uninitialize

笑啥子哇！

醒目

UID: 9071
帖子: 141
积分: 324
在线时间: 1 天 3 小时

6^# 醒目发表于 2009-01-08 12:38

QUOTE:

原帖由撒哈拉里的鱼于 2009-1-8 11:52 发表
my $expr = quotemeta($media->[2]);
if( $referer =~ /$expr / )
试试看。

试了，相同的错哦。

字面上好是说没有初始化变量。。

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

7^# ly5066113 发表于 2009-01-08 13:34

if( defined $media->[2] && $referer = ~/$media->[2]/ )