
#!/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) 回复
??
回复评论