为什么$main::cbus 没有值

yuanpin318

正在学习Perl, 想试一下global variable的访问。脚本如下：#!/usr/bin/perl

my $cbus = 3;

sub add {
    my $a = shift;
    my $b = shift;
    return $a+$b;
}

sub addc {
    my $a = shift;
    my $b = shift;
    my $cbus = 2;

    print "$a+$main::cbus = ", add($a, $main::cbus), "\n";
    print "$a+$cbus = ", add($a, $cbus);
}

print "Start\n";
addc(5, 6);



希望得到的结果是
5+3 =8
5+2=7


但是运行perl global.pl后，得到
5+ =5
5+2=7

没看懂错在哪，哪位大大可以指点一下？

A1985

our $cbus

yuanpin318

A1985 发表于 2022-7-28 11:08
our $cbus

谢谢，知道怎么做了。

我自己的理解是，my声明了一个局部变量。但addc中的our $c需要去全局变量表中找$c, 明显没有，所以就是NULL。

我的理解对吗？