#!/usr/bin/perl |
use strict; |
use Getopt::Std; |
my %opts ; |
getopts ( "c:hv" , %opts ); |
foreach ( keys %opts ) |
{ |
/c/ && print "welcome to " , $opts { $_ } || "ChinaUnix" , "!\n" ; |
/h/ && print "Usage : $0 -[hv] -[c msg] \n" ; |
/v/ && print "This is demo, version 0.001.001 built for $^O\n" ; |
} |
exit 0; |
by: 发表于:2017-09-11 11:53:01 顶(0) | 踩(0) 回复
??
回复评论