概念 / 简单应用上, 可以这样写: sub help { ... } help() if ( grep {$_ eq "-h"} @ARGV ) ; 不过, 实际的应用上, 你可能需要有更专业的模块帮你完成, 其实应该是说... 更不费劲.. 有空可以参考一下 Getopt::Long 或 Getopt::Std
