perl函数调用问题

iwanthome

在copy中调用了_ckftp，但是调用的时候只给了两个参数，为什么在_ckftp中可以shift三次呢？是不是调用的时候第一个参数是系统给的什么东西？

sub _cktftp {
###
### -- Check tftp arguments

my($self) = shift;
my($addr) = shift;
my($file) = shift;
}

sub copy {
###
### -- Copy a running-config to a tftp server file

my($self) = shift;
my($addr) = shift || return undef;
my($file) = shift || return undef;
$self->;{rand} = int(rand(1 << 24));
unless($self->;_cktftp($addr, $file)){
return undef;
}

apile

module name 會偷偷放在第一個argument傳過去..