首页 > 代码库 > perl原格式输出

perl原格式输出

sub ShowUsage
 {

    print STDOUT << "EOF";

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

EOF
    
 }