请教perl 子程序 使用use strict 问题

ynchnluiti

1. 
   
2. ...
   
3. use strict;
   
4. my $w = 2;
   
5. sub marine {
   
6. ...
   

复制代码

DQP

1. 
   
2. 
   
3. sub marine {
   
4.    my $n = $w;
   
5.    print "Hello ,sailor number $n!\n";
   
6. }
   
7. local $w = 2;
   
8. marine;
   
9. 
   

复制代码

ynchnluiti

DQP 发表于 2010-07-15 11:37

    use strict; 然后可以这样？

toniz

回复 4# ynchnluiti

1.     use vars qw($w);
   

复制代码

Wayne_sama

$w = 2;应该是这儿的问题
my $w = 2;

shangat

看看这个：
http://bbs.chinaunix.net/viewthread.php?tid=1701085