use Getopt::Std;
getopt('oDI', \%opts); # -o, -D, -I 인자를 처리해서 해쉬변수인 opts에 저장한다.
getopt('oif:'); # -o, -i 는 boolean flag 이다. -f 는 값을 필요로 한다.
#!/usr/bin/perl
use Getopt::Std;
sub myfunc
{
$file = shift;
print "file name : $file\n";
}
sub version
{
print "Version 1.1\n";
}
sub help
{
print "Usage : ./getopt -h -v -f [file name]\n";
}
###########
# MAIN
###########
### GETOPT ###############
%opts = ();
getopts("hvf:", \%opts);
my $command;
# GET MODULE LIST & VERSION
if (defined $opts{h})
{
help();
exit 0;
}
if (defined $opts{f})
{
myfunc($opts{f});
}
if (defined $opts{v})
{
version();
}
Perl에서 getopt 사용
use Getopt::Std; getopt('oDI', \%opts); # -o, -D, -I 인자를 처리해서 해쉬변수인 opts에 저장한다. getopt('oif:'); # -o, -i 는 boolean flag 이다. -f 는 값을 필요로 한다.#!/usr/bin/perl use Getopt::Std; sub myfunc { $file = shift; print "file name : $file\n"; } sub version { print "Version 1.1\n"; } sub help { print "Usage : ./getopt -h -v -f [file name]\n"; } ########### # MAIN ########### ### GETOPT ############### %opts = (); getopts("hvf:", \%opts); my $command; # GET MODULE LIST & VERSION if (defined $opts{h}) { help(); exit 0; } if (defined $opts{f}) { myfunc($opts{f}); } if (defined $opts{v}) { version(); }히스토리
Recent Posts
Archive Posts
Tags