感谢各位高手的帮助,我搞明白了 也在Perl 入门里找到了相关说明