• perl子程序调用 use strict 使用严格的编程方式 sub用来定义子程序 参数在 这个数组里 数组里的第一个元素是 0 sub large if 0 gt 1 print 0 else print 1 large 15 12 su