Perl基本技一：马克输出——OUTPUT原格式输出（print STDOUT << "EOF"）

sub ShowUsage
 {

    print STDOUT << "EOF";

moniter my computer disk
usage: $0  
    
    file [-d] [-h]
    -d: excute               
    -h: this (help) message

EOF
    
 }

EOF 是一个标记的名字，自定义标记名称

执行：

ShowUsage();

显示：

用途：

常用做命令 --help信息.

PS：转载请注明出处. 作者：No. Liu