Perl¿¡¼­ getopt¸¦ ÀÌ¿ëÇÑ ÀÎÀÚó¸®
ÃÑ ÆäÀÌÁö ¼ö : 3224

Àüü ÇÔ¼ö/¿ë¾î»çÀü
Facebook Joinc ±×·ì   Joinc QA »çÀÌÆ®
ÇöÀçÀ§Ä¡ : Code>JPerl>getopt



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À» ±âÀÔÇϸé, ´ñ±ÛÀÌ ¸ÞÀÏ·Î Àü´ÞµË´Ï´Ù.