| ¿µ±¸ :: MSQL. Persistent :: MSQLÀº MSQL µ¥ÀÌÅͺ£À̽º¸¦ »ç¿ëÇÏ¿© ±¸Çö µÈ ¿µ±¸ Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¿µ±¸ :: MSQL. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- David Winters
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dwinters/Persistent-mSQL-0.50/lib/Persistent/mSQL.pm
¿µ±¸ :: MSQL. ű×
¿µ±¸ :: MSQL. ¼³¸í
Persistent :: MSQLÀº MSQL µ¥ÀÌÅͺ£À̽º¸¦ »ç¿ëÇÏ¿© ±¸Çö µÈ ¿µ±¸ Ŭ·¡½ºÀÔ´Ï´Ù. Persistent :: MSQLÀº MSQL Database.Synopsis¸¦ »ç¿ëÇÏ¿© ±¸Çö µÈ ¿µ±¸ Ŭ·¡½ºÀÔ´Ï´Ù. ¿µ±¸ :: MSQL »ç¿ë; ¿µ¾î »ç¿ë; # $ eval_error eval {###°ú °°Àº ÀÐÀ» ¼öÀÖ´Â º¯¼ö À̸§ °¡Á® ¿À±â ### ### ###############################. Å×À̺í); ### ¿ÀºêÁ§Æ®ÀÇ ¼Ó¼º Á¤ÀÇ ### $ emp-> add_attribute ( 'Empno', 'ID', 'number', Undef, 4); $ emp-> add_attribute ( 'ename', 'persistent', 'varchar', undef, 10); $ emp-> add_attribute ( 'ÀÏ', 'Áö¼Ó¼º', 'varchar', undef, 9); $ emp-> add_attribute ( 'mgr', 'persistent', 'number', undef, 4); $ emp-> add_attribute ( 'Hiredate', '¿µ±¸', 'datetime', undef); $ emp-> add_attribute ( 'sal', 'persistent', 'number', undef, 7, 2); $ emp-> add_attribute ( 'COMM', 'Áö¼Ó¼º', '¼ýÀÚ', Undef, 7, 2); $ emp-> add_attribute ( 'deptno', 'persistent', 'number', undef, 2); ### ÀϺΠ¿ÀºêÁ§Æ®¿¡ ´ëÇÑ µ¥ÀÌÅÍ ½ºÅä¾î Äõ¸® ### $ emp-> restore_where (QQ {sile> 1000 ¹× Job = 'Clerk'¹× Ename 'm %'}, "Sal, Ename"); ($ emp-> restore_next ()) {printf "ename = % s, emp # = % s, sal = % s, hiredate = % sn", $ emp-> ename, $ emp-> empno, $ emp- > sal, $ emp-> È÷ ƼÅ×; }}; if ($ eval_error) {###ÀÌ ÇØ´ç ¿¹¿Ü¸¦ ÀâÀ¸½Ê½Ã¿À! ### Àμâ "¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù : $ eval_errorn"; } AbstractThis´Â MSQL µ¥ÀÌÅͺ£À̽º Å×À̺íÀ» »ç¿ëÇÏ¿© °´Ã¼¸¦ ÀúÀåÇÏ°í °Ë»öÇÏ´Â ¿µ±¸ Ŭ·¡½ºÀÔ´Ï´Ù. ÀÌ Å¬·¡½º´Â Á÷Á¢ ¶Ç´Â ¼ºê Ŭ·¡ ½ÌÀ» ÀνºÅϽºÈ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¾Æ·¡¿¡ ¼³¸í µÈ ¹æ¹ýÀºÀÌ Å¬·¡½º¿¡ °íÀ¯ ÇϸçÀÌ Å¬·¡½º¿¡¼ Á¦°øÇÏ´Â ´Ù¸¥ ¸ðµç ¸Þ¼Òµå´Â ¿µ±¸ ¹®¼¿¡ ¼³¸íµÇ¾î ÀÖ½À´Ï´Ù. Áö¼ÓÀûÀÎ ¹®¼´Â Áö¼ÓÀûÀΠŬ·¡½º ÇÁ·¹ÀÓ ¿öÅ©¸¦ »ç¿ëÇÏ´Â µ¥ ¸Å¿ì öÀúÇÑ ¼Ò°³¸¦ Á¦°øÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
¿µ±¸ :: MSQL. °ü·Ã ¼ÒÇÁÆ®¿þ¾î