| dbix :: ÆÄÀÏ ½Ã½ºÅÛ DBIX :: FileSystemÀº ÆÄÀÏ ½Ã½ºÅÛ°ú °°Àº Å×À̺íÀ» °ü¸® ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
dbix :: ÆÄÀÏ ½Ã½ºÅÛ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Alexander Haderer
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~afrika/DBIx-FileSystem-1.7/FileSystem.pm
dbix :: ÆÄÀÏ ½Ã½ºÅÛ Å±×
dbix :: ÆÄÀÏ ½Ã½ºÅÛ ¼³¸í
DBIX :: FileSystemÀº ÆÄÀÏ ½Ã½ºÅÛ°ú °°Àº Å×À̺íÀ» °ü¸® ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. DBIX :: FileSystemÀº FileSystem.Synopsis ########################¿Í °°Àº Å×À̺íÀ» °ü¸® ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ########################################################### ###################################################### DBIX :: FileSystem QW (: ±âÈ£)¸¦ »ç¿ëÇϽʽÿÀ. MY $ FS = »õ DBIX :: FILESYSTEM (dbconn => $ dbconn, dbuser => $ dbuser, dbpasswd => $ dbpwd, progdbver => $ progdbver); my % VARS = (column_1 => db column_2 => undef¿¡¼ ÀÐÀ» ¼öÀÖ´Â # ¿); MY % searchvars = (countr_a => "myValue", # ¿©±â¼ part part column_b => 1234, column_c => ); $ r = $ fs-> get_conf_by_var ($ dir, $ default_filename, $ filename_column, % vars, % searchvars); $ FS-> GET_ERR $ R! = OK; ###################################################### ############ # ´ëÈ Çü ±¸¼º ¼Ð ±¸Çö ############################### ###################### DBIX :: FILESYSTEM QW (MainLoop Recreatedb)¸¦ »ç¿ëÇϽʽÿÀ. my % vdirs = (table_one => {# ... ¿©±â¼´Â ¿©±â¿¡ ...}, table_two => {# ... ¿©±â¼ ¼³¸í ...},); ³» % customcmds = (); if ($ # argv == 0 ¹× $ argv [0 eq 'Requeatedb') {Refreatedb (% vdirs, $ progname, $ ¹öÀü, $ dbconn, $ dbuser, $ dbpwd); } else {# ¸í·É ÁÙ ¼Ð MainLoop (% vdirs, $ ProGI, $ ¹öÀü, $ dbconn, $ dbuser, $ dbpwd, % customcmds); } À§ÂÊ °³¿ä´Â ¾×¼¼½º Ŭ·¡½º¸¦ »ç¿ëÇÏ¿© µ¥ÀÌÅÍ¿¡ ¾×¼¼½ºÇÏ´Â ¹æ¹ýÀ» º¸¿©ÁÝ´Ï´Ù. ÇÏÀ§ ½Ã³ñ½Ã½º´Â Çؽà % VDIRS¿¡ ÁÖ¾îÁø µ¥ÀÌÅͺ£À̽º Å×À̺íÀ» °ü¸®Çϱâ À§ÇØ ÇÁ·Î±×·¥ (Àϸí '½©')À» º¸¿©ÁÝ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
dbix :: ÆÄÀÏ ½Ã½ºÅÛ °ü·Ã ¼ÒÇÁÆ®¿þ¾î