关于全局变量的警告问题

brant_chen

我是这样的：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. our $m=undef;
   
6. 
   
7. sub te_init {
   
8.    $m="test";
   
9. }
   
10. 
    
11. if ($m =~ m/te/) {
    
12.    print "OK\n";
    
13. }
    
14. else {
    
15.    print "failed\n";
    
16. }
    
17. 
    
18. exit 0;
    

复制代码

老是提示：
Use of uninitialized value in pattern match (m//) at p.pl line 29.

怎么取消这个警告啊？！！
谢谢！


备注：
我明白是没有进行defined 判断，但是，我的$m是全局变量，难道我要在每个$m全局变量出现的地方进行一次defined判断？太繁琐了吧！

不好意思，我把 te_init 加到if判断以前，就正常了，片段如下：

1. our $m=undef;
   
2. 
   
3. sub te_init {
   
4.    $m="test";
   
5. }
   
6. te_init ;
   
7. 
   
8. if ($m =~ m/te/) {
   
9.    print "OK\n";
   
10. }...

复制代码

但是我正式的perl代码里头，流程非常多，是这样设计的：

package a被调用了很多次，但是外面会在所有任何调用之前，传值进来把package a里面的全局变量进行初始化，貌似，是不是我第二次调用的时候，
perl会认为package a里面的全局变量时新的而没有初始化的，导致出现警告的呢？
谢谢。

yybmsrs

你是怎么进行初始化的呢？每次调用前都初始化？

zhlong8

你这最多只算声明，怎么算初始化。在执行到
if ($m =~ m/te/) {
时 $m 本来就是末初始化值，有这个warning很正常啊。不想要关了warnings就是了

brant_chen

回复 3# zhlong8


    哦！就是，undef怎么算初始化呢？⊙﹏⊙b汗
    多谢楼上！

bruclan

你根本就没有执行te_init子例程，怎么能初始化$m变量呢！

ddgfff

our $m=undef;      这句等于是没写呀~
our $m="";          这样也好啊~