这些代码是什么意思？

superdoctor

最近使用webmin看到里面的很多cgi用perl写的，其中总是看到在程序的前面有这样一些话
require './web-lib.pl';
&init_config();
$m = $ARGV[0];
%access = &get_module_acl(undef, $m);
$access{'noconfig'} &&
        &error($text{'config_ecannot'});

每一行分别什么意思呢？有那位大侠能给象我辈一样的新手注释一下吗？
多谢！

apile

require './web-lib.pl';

#等同C裡面的include...

&init_config();

#initialize some basic configuration of webmin

$m = $ARGV[0];

#get the executed filename

%access = &get_module_acl(undef, $m);

# get access control list  it will return a hash

$access{'noconfig'} &&
&error($text{'config_ecannot'});
# if access{'noconfig'} eq TRUE, then execute
   &error(text{'config_ecannot'});

相關subroutine 你得看web-lib.pl裡面的source code對他們的定義