Getopt::Std

명령 행 매개 변수 분석.
#!/usr/bin/perl 
use strict; 
use Getopt::Std; 

my %opts; 
getopts("c:hv", %opts); 

foreach(keys %opts) 
{ 
   /c/ && print "welcome to ", $opts{$_} || "ChinaUnix", "!
"; /h/ && print "Usage : $0 -[hv] -[c msg]
"; /v/ && print "This is demo, version 0.001.001 built for $^O
"; } exit 0;

좋은 웹페이지 즐겨찾기