| ÈÇÐ :: SQL. ÈÇÐ :: SQLÀº ¾×¼¼½º µ¥ÀÌÅͺ£À̽º ±â´É ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÈÇÐ :: SQL. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Bernat Requesens
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~brequesen/Chemistry-Artificial-SQL-0.01/lib/Chemistry/Artificial/SQL.pm
ÈÇÐ :: SQL. ű×
ÈÇÐ :: SQL. ¼³¸í
ÈÇÐ :: SQLÀº ¾×¼¼½º µ¥ÀÌÅͺ£À̽º ±â´É ¸ðµâÀÔ´Ï´Ù. ÈÇÐ :: SQLÀº ¾×¼¼½º µ¥ÀÌÅͺ£À̽º ±â´É ¸ðµâÀÔ´Ï´Ù. Synopsis´Â ¾ö°ÝÇÕ´Ï´Ù. ÈÇÐ :: SQL »ç¿ë; ÈÇÐ :: Àΰø :: SQL; MY $ DB_NAME = $ ARGV ; ³» $ FILE = $ ARGV ; MY $ DB1 = ÈÇÐ :: SQL :: NEW (db_host => "root", db_port => "root", db_pwd => "root", db_pwd => ", db_name => $ db_name, db_driver => "mysql"); if ($ db1-> db_exist) {$ DB1-> connect_db; $ DB1-> del_tables; $ DB1-> create_tables_mysql; $ DB1-> inscomp_from_file ( "$ file"); } else {$ DB1-> create_db; $ DB1-> connect_db; $ DB1-> create_tables_mysql; $ DB1-> inscomp_from_file ( "$ file"); } # ¹ÝÀÀ »ðÀÔ MY $ QART = ÈÇÐ :: Àΰø :: SQL :: NEW ($ DB1); MY $ QR = $ QART-> Q_REACCION ( 'C = CC = C = C >> C1 = CCCCCC1', '¹Ì¼Ò'); $ DB1-> Requctionsert ($ qr, "", "0");ÀÌ ÆÐÅ°Áö´Â µ¥ÀÌÅͺ£À̽º¿Í »óÈ£ ÀÛ¿ëÇÏ´Â µ¥ ÇÊ¿äÇÑ ±â´ÉÀ» Á¦°øÇÕ´Ï´Ù. ÀÌ ¸ðµâ¿¡¼ ±¸Çö µÈ ¸Þ¼Òµå´Â SQL Äõ¸®¸¦ »ç¿ëÇÏ´Â ¹æ¹ýÀ» ¾ËÁö ¸øÇÏÁö ¾Ê°í µ¥ÀÌÅͺ£À̽º¸¦ »ç¿ëÀÚ¿¡°Ô Á¦¾î ÇÒ ¼ö ÀÖµµ·Ï ÁöÇâµË´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
ÈÇÐ :: SQL. °ü·Ã ¼ÒÇÁÆ®¿þ¾î