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