| ¾Û :: ¿É¼Ç App :: Options´Â Perl ¸ðµâÀÌ ¸í·É Çà ¿É¼Ç, ȯ°æ VAR ¹× ¿É¼Ç ÆÄÀÏ °ªÀ» °áÇÕÇÕ´Ï´Ù (ÇÁ·Î±×·¥ ±¸¼ºÀÇ °æ¿ì). |
Áö±Ý ´Ù¿î·Îµå |
¾Û :: ¿É¼Ç ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Stephen Adkins
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~spadkins/
¾Û :: ¿É¼Ç ű×
¾Û :: ¿É¼Ç ¼³¸í
¾Û :: ¿É¼ÇÀº Perl ¸ðµâ ¸í·É ÁÙ ¿É¼Ç, ȯ°æ VAR ¹× ¿É¼Ç ÆÄÀÏ °ªÀ» °áÇÕÇÕ´Ï´Ù (ÇÁ·Î±×·¥ ±¸¼ºÀÇ °æ¿ì). App :: Options´Â ¸í·É ÁÙ ¿É¼Ç, ȯ°æ VAR ¹× ¿É¼Ç ÆÄÀÏ °ª (ÇÁ·Î±×·¥ ±¸¼ºÀÇ °æ¿ì ¿É¼Ç)À» °áÇÕÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .Snopsis #! / usr / local / bin / perluse app :: ¿É¼Ç; # ¿É¼Ç °ªÀ» % ¾ÛÀ¸·Î ÀнÀ´Ï´Ù. ±âº»ÀûÀ¸·Î # ¿É¼ÇÀ» »ç¿ëÇÏ¿© ¹º°¡¸¦ ¼öÇàÇÕ´Ï´Ù (% app :: ¿É¼Ç) dbi¸¦ »ç¿ëÇϽʽÿÀ. $ dsn = "dbi : mysql : database = $ app :: ¿É¼Ç {dbname}"; $ dbh = dbi-> connect ($ dsn, $ app :: ¿É¼Ç {dbuser}, $ app :: ¿É¼Ç {dbpass}); ... ¸í·É ÁÙ¿¡¼ µµ¿ò¸»À» ¾òÀ¸½Ê½Ã¿À (ÇÁ·Î±×·¥ À̸§ÀÌ ÁöÁ¤µÈ "PROG"·Î °¡Á¤) ... PROG -? ¿É¼Ç °ªÀº ¸í·É Çà, ȯ°æ º¯¼ö ¹× ¿É¼Ç ÆÄÀÏ¿¡ Á¦°ø µÉ ¼ö ÀÖ½À´Ï´Ù. (Áï, $ env {app_dbname}Àº % app :: options {dbname}ÀÇ °ªÀ» ±âº»ÀûÀ¸·Î ¼³Á¤ÇÕ´Ï´Ù. Conf $ home / .app / app.conf $ progdir / prog.conf $ progdir / app.conf $ prefix / etc / app / prog.conf $ prefix / etc / app / app.conf /etc/app/app.conf DBNAME = PROD DBUSER = SCORT DBPASS = Tigersee¿Í °°Àº ÆÄÀÏ Çü½ÄÀÌ ´ÙÀ½°ú °°Àº °í±Þ ±â´É¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ¼³¸íÀ» º¸·Á¸é ¾Æ·¡ÀÇ ¼³¸íÀ» º¸·Á¸é ´ÙÀ½À» ¼öÇàÇÕ´Ï´Ù. ¿É¼ÇÀº ¸í·É ÁÙ Àμö, ȯ°æ º¯¼ö, ¿É¼Ç ÆÄÀÏ ¹× ÇÁ·Î±×·¥ ±âº»°ªÀ» °áÇÕÇÕ´Ï´Ù. ¿É¼Ç °ªÀÇ Çؽø¦ »ý¼ºÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
¾Û :: ¿É¼Ç °ü·Ã ¼ÒÇÁÆ®¿þ¾î