| Áö¼Ó¼º :: µ¥ÀÌÅͺ£À̽º :: SQL. SQL µ¥ÀÌÅͺ£À̽ºÀÇ °´Ã¼ Áö¼Ó¼º. |
Áö±Ý ´Ù¿î·Îµå |
Áö¼Ó¼º :: µ¥ÀÌÅͺ£À̽º :: SQL. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Ashish Gulhati
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~agul/
Áö¼Ó¼º :: µ¥ÀÌÅͺ£À̽º :: SQL. ű×
Áö¼Ó¼º :: µ¥ÀÌÅͺ£À̽º :: SQL. ¼³¸í
SQL µ¥ÀÌÅͺ£À̽ºÀÇ °´Ã¼ Áö¼Ó¼º. persistence :: database :: SQLÀº SQL Databases¿¡¼ °´Ã¼ Áö¼Ó¼ºÀ¸·Î »ç¿ëÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Synopsis Persistence :: Database :: SQLÀ» »ç¿ëÇÕ´Ï´Ù. MY $ DB = NEW PROSSISTENCE :: DATABASE :: SQL (ENGINE => POSTGRES ', DATABASE => $ database_name, table => $ table_name, ÅÛÇø´ => $ template_hashref); my (@Objects) = $ DB-> °Ë»ö (Å° => $ Å°, regex => $ regex); $ OBJ (@Objects) {$ DB-> Å×À̺í ( '¸¸·á'); $ obj-> commit (); $ DB-> Å×À̺í ($ table_name); $ obj-> ¸¸·á (); } My $ dbhandle = $ DB-> dbhandle (); MY $ QUERY = "$ TABLE_NAME¿¡¼ oid¸¦ ¼±ÅÃÇϽʽÿÀ. ¿©±â¼ $ field = $ °ª"; ³» $ sth = $ dbhandle-> Áغñ ($ Äõ¸®); $ sth-> ½ÇÇà (); while (@row = $ sth-> fetchrow ()) {My $ obj = new persistence :: object :: postgres (__dope => $ db, __oid => $ row ); $ obj-> ¸¸·á (); }ÀÌ ¸ðµâÀº ´Ù¾çÇÑ DBMS ¿£ÁøÀ» »ç¿ëÇÏ¿© ¿µ±¸ °´Ã¼ÀÇ ÀúÀå¼Ò¸¦ Á¦°øÇÕ´Ï´Ù. ±×°ÍÀº Áö¼Ó¼º :: object :: postgres.Using ÅÛÇø´ ¸ÅÇÎ °´Ã¼ ¼Ó¼ºÀ» PostgreSQL Ŭ·¡½º Çʵ忡 ÀÚµ¿À¸·Î ÀÚµ¿ »ý¼º ÇÒ ¼ö ÀÖÀ¸¹Ç·Î °´Ã¼ µ¥ÀÌÅ͸¦ ÀÚµ¿À¸·Î »ý¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. Áö¼Ó¼º ¿ÀºêÁ§Æ® µ¥ÀÌÅͺ£À̽º¿¡¼ SQL Àε¦½Ì ¹× Äõ¸® ±â´ÉÀ» »ç¿ëÇÏ·Á¸é ¿ä±¸ »çÇ× : ¡¤ Perl.
Áö¼Ó¼º :: µ¥ÀÌÅͺ£À̽º :: SQL. °ü·Ã ¼ÒÇÁÆ®¿þ¾î