ÃÑ ÆäÀÌÁö ¼ö : 3224
![]()
|
Facebook Joinc ±×·ì
Joinc QA »çÀÌÆ®
![]()
Tweet
joinc´Â Firefox¿Í chrome¿¡¼ Å×½ºÆ® Çß½À´Ï´Ù. IE¿¡¼´Â Å×À̺íÀÌ ±úÁö°Å³ª À̹ÌÁö°¡ º¸ÀÌÁö ¾ÊÀ» ¼ö ÀÖ½À´Ï´Ù. ƯÈ÷ ±¸±Û DocsÀ̹ÌÁöÀÇ °æ¿ì ¿¢¹Úó¸®µÉ ¼ö ÀÖ½À´Ï´Ù.
C ¾ð¾î¸¦ ÀÌ¿ëÇÒ °æ¿ì getopt(3)ÇÔ¼ö¸¦ ÅëÇØ¼ ½ÇÇà¶óÀÎ ÀÎÀÚ¸¦ öÇÒ ¼ö ÀÖ´Ù. perlÀÇ °æ¿ì getopts¸¦ ÀÌ¿ëÇØ¼ ÀÎÀÚ¸¦ ó¸®ÇÒ ¼ö ÀÖ´Ù. »ç¿ë¹æ¹ýµµ CÀÇ ±×°Í°ú ºñ½ÁÇÏ´Ù. 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();
}
|
|
|
EmailÀ» ±âÀÔÇϸé, ´ñ±ÛÀÌ ¸ÞÀÏ·Î Àü´ÞµË´Ï´Ù. |
|