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