| openInteract2 :: Sqlinstall. OpenInteract2 :: Sqlinstall Perl ¸ðµâÀº ÆÐÅ°Áö¿¡¼ µ¥ÀÌÅͺ£À̽º¿¡ ´Ù¾çÇÑ SQL µ¥ÀÌÅ͸¦ ¼³Ä¡ÇϱâÀ§ÇÑ µð½ºÆÐó¸¦ Á¦°øÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
openInteract2 :: Sqlinstall. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Chris Winters
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~cwinters/SPOPS-0.87/SPOPS/SQLInterface.pm
openInteract2 :: Sqlinstall. ű×
openInteract2 :: Sqlinstall. ¼³¸í
openInteract2 :: Sqlinstall Perl ¸ðµâÀº ÆÐÅ°Áö¿¡¼ µ¥ÀÌÅͺ£À̽º¿¡ ´Ù¾çÇÑ SQL µ¥ÀÌÅ͸¦ ¼³Ä¡ÇϱâÀ§ÇÑ µð½ºÆÐó¸¦ Á¦°øÇÕ´Ï´Ù. openInteract2 :: sqlinstall perl ¸ðµâÀº ÆÐÅ°Áö¿¡¼ database.synopsis # ÆÐÅ°Áö·Î ´Ù¾çÇÑ SQL µ¥ÀÌÅ͸¦ ¼³Ä¡ÇϱâÀ§ÇÑ µð½ºÆÐó¸¦ Á¦°øÇÕ´Ï´Ù. ÆÐÅ°Áö ÀÛ¼ºÀÚ # ÆÐÅ°Áö ÆÐÅ°Áö¿¡ ´ëÇÑ SQLInstaller¸¦ Á¤ÀÇÇÕ´Ï´Ù. Package Package Package Package Package 2 :: Sqlinstall :: Sqlinstall :: MyPackage; ¾ö°ÝÇÑ »ç¿ë; ±âº» QW (OpenInteract2 :: Sqlinstall)¸¦ »ç¿ëÇϽʽÿÀ. #ÀÌ ÆÐÅ°Áö¿¡¼ ÇϳªÀÇ °´Ã¼ ¸¸ Á¤ÀÇÇÕ´Ï´Ù. get_structure_set {return 'myobj'; } # ¿ì¸®´Â ´ÜÁö ÇϳªÀÇ ¼³Á¤À» °¡Áö°í Àֱ⠶§¹®¿¡, ¿ì¸®´Â IT SUB GET_STRUCTURE_FILE {MY ($ Self, $ SET, $ type) = @_; 'myobj_sybase.sql'($ type eq 'sybase')À» ¹ÝȯÇÕ´Ï´Ù. ($ TYPE EQ 'Oracle') if ( 'myobj_eoracle.sql', 'myobj_sequence.sql', 'myobj_sequence.sql')À» ¹ÝȯÇϽʽÿÀ. 'myobj.sql'À» µ¹·ÁÁÝ´Ï´Ù. } # Installer »ç¿ëÀÚ #ÀÌ ÀÛ¾÷À» ¼öÇàÇϱâÀ§ÇÑ °ü¸® ÀÛ¾÷À» ÂüÁ¶ÇϽʽÿÀ.ÇÏÁö¸¸ º°µµÀÇ ÇÁ·Î±×·¥ ¿¡¼ÀÌ Å¬·¡½º¸¦ »ç¿ëÇϸé OpenInteract2 :: Context QW (CTX)¸¦ »ç¿ëÇϽʽÿÀ. OpenInteract2 :: SqlinstallÀ» »ç¿ëÇϽʽÿÀ. MY $ PACKAGE = CTX-> ÀúÀå¼Ò -> FETCH_PACKAGE ( 'myPackage') ;; MY $ Installer = OpenInteract2 :: Sqlinstall-> New_From_Package ($ ÆÐÅ°Áö); # $ Installer-> install_structure ½Ã°£¿¡ Çϳª¾¿ ¼öÇàÇϽʽÿÀ. # .. ´ÜÀÏ ÆÄÀÏÀ» ó¸®Çϵµ·Ï Á¦ÇÑ $ Installer-> install_structure ( 'table-a.sql'); $ Installer-> install_data; $ Installer-> install_security; # ... ¶Ç´Â ¸ðµç $ Installer-> install_all; _ # ... ¶Ç´Â ÀÌÀü ÆÐÅ°Áö¿¡¼ ÀÌÀü ÆÐÅ°Áö¿¡¼ ¸¶À̱׷¹ÀÌ¼Ç -> install_structure; $ Installer-> migrate_data ( 'old_dataSource_name'); ¿ä±¸ »çÇ× : ¡¤ Perl.
openInteract2 :: Sqlinstall. °ü·Ã ¼ÒÇÁÆ®¿þ¾î